TOP

资料名称: 【工程应用】浆砌石重力坝稳定计算(VBA)
提交者: gljwm
提交日期: 2021-02-18 10:15:52
浏览量: 2
总下载量:
本月下载量: 0
本周下载量: 0
今日下载量: 0
最后下载日期:
软件作者:  
软件语言: 简体中文 
软件大小: 10.2KB 
软件地址: 【工程应用】浆砌石重力坝稳定计算(VBA)    
资料介绍:


一、前言

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


图片

二、思路

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

本文以浆砌石重力坝正常蓄水位为例,进行稳定计算,方法是用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及以上版,则可以将工作簿保存为”启用宏的工作簿“,则可以直接打开。


下载说明: ☉如果下载设置了收费等权限,则无法使用迅雷,快车下载。
☉推荐使用迅雷下载本站软件,使用 WinRAR v3.10 以上版本解压本站软件。
☉如果这个软件总是不能下载的请联系我们,谢谢合作!!
☉下载本站资源,如果服务器暂不能下载请过一段时间重试!
☉如果遇到什么问题,请到本站论坛去咨寻,我们将在那里提供更多 、更好的资源!
☉本站提供的一些商业软件是供学习研究之用,如用于商业用途,请购买正版。

评论

帐  号: 密码: (新用户注册)
验 证 码:
表  情:
内  容:

相关栏目

最新资料

热门资料

推荐资料

相关资料

广告位