设计资料
用户
【工程应用】浆砌石重力坝稳定计算(VBA..
发布时间:2021-02-18 10:15:52 浏览:454次


一、前言

新建重力坝或者除险加固设计时,都要进行稳定计算,其中溢流坝与非溢流都要进行计算,计算工况分为正常蓄水位、设计洪水位和校核洪水位,具体计算内容有荷载计算和弯矩计算。


二、思路

这个计算先是要确定有哪些好荷载,然后根据设计数据确定各参数,并列计算式进行计算。

本文以浆砌石重力坝正常蓄水位为例,进行稳定计算,方法是用VBA进行计算,一个表是将计算式复制进去得结果,一个表是直接得到结果。


三、VBA代码

1、VBA1工作表中,代码如下:

Private Sub Worksheet_Change(ByVal Target As Range)If Target.Column = 2Or Target.Column = 6 Then        Application.EnableEvents = FalseFor i = 4 To 13If Range("a" & i).Value <> ""And Range("b" & i).Value <> ""And Range("f" & i).Value <> "" Then                Range("d" & i).Value = "=" & Range("b" & i).Value                Range("h" & i).Value = "=" & Range("f" & i).Value                Range("i" & i).Value = Range("d" & i) * Range("h" & i)Else                Range("d" & i).Value = ""                Range("h" & i).Value = ""                Range("i" & i).Value = ""            End If        Next i        Application.EnableEvents = True    End IfEnd Sub


2、VBA2工作表中,代码如下:

Private Sub Worksheet_Change(ByVal Target As Range)If Target.Column = 2Or Target.Column = 6 Then        Application.EnableEvents = FalseFor i = 4 To 13If Range("a" & i).Value <> ""And Range("b" & i).Value <> ""And Range("f" & i).Value <> "" Then                Range("d" & i).Value = Format(Application.eva luate(Range("b" & i).Formula), "0.00")                Range("h" & i).Value = Format(Application.eva luate(Range("f" & i).Formula), "0.00")                Range("i" & i).Value = Format(Range("d" & i) * Range("h" & i), "0.00")Else                Range("d" & i).Value = ""                Range("h" & i).Value = ""                Range("i" & i).Value = ""            End If        Next i        Application.EnableEvents = True    End IfEnd Sub




四、使用方法

步骤1:

先制作好表格,列出各类荷载名称和方向,如下图:


步骤2:

在B列或F列输入数据,相应的D列和H列就自动生成了结果,如下图:


注意:如果是Excel2003,打开工作簿时要”启用宏“;如果是Excel2007及以上版,则可以将工作簿保存为”启用宏的工作簿“,则可以直接打开。


以下是《【工程应用】浆砌石重力坝稳定计算(VBA..》的详细资料:
资料作者:  
发布日期:2021-02-18 10:15:52
总浏览量:454
总下载量:
运行环境:  
资料语音: 简体中文 
资料大小: 10.2KB 
下载地址: 【工程应用】浆砌石重力坝稳定计算(VBA)    
上一篇没有了
下一篇【工程应用】浆砌石重力坝稳定计..
';?>