|
TOP
|
| 资料名称: |
【工程应用】浆砌石重力坝稳定计算（VBA） |
| 提交者: |
gljwm |
 |
| 提交日期: |
2021-02-18 10:15:52 |
| 浏览量: |
1909 |
| 总下载量: |
次 |
| 本月下载量: |
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 以上版本解压本站软件。
☉如果这个软件总是不能下载的请联系我们,谢谢合作!!
☉下载本站资源，如果服务器暂不能下载请过一段时间重试！
☉如果遇到什么问题，请到本站论坛去咨寻，我们将在那里提供更多 、更好的资源！
☉本站提供的一些商业软件是供学习研究之用，如用于商业用途，请购买正版。 |
|
|
|
