下载
加入VIP
  • 专属下载特权
  • 现金文档折扣购买
  • VIP免费专区
  • 千万文档免费下载

上传资料

关闭

关闭

关闭

封号提示

内容

首页 VBA钢筋计算公式.bas

VBA钢筋计算公式.bas.doc

VBA钢筋计算公式.bas

cora欣欣
2017-09-18 0人阅读 举报 0 0 暂无简介

简介:本文档为《VBA钢筋计算公式.basdoc》,可适用于IT/计算机领域

VBA钢筋计算公式basAttributeVBName="VBA钢筋计算公式"Dim工程抗震级别AsStringFunction锚固长度(抗震级别,砼标号,钢筋种类,钢筋级别,钢筋直径AsSingle)AsSingle'锚固长度'必须将表(Gp)数据放于excel的“锚固长度”工作表的d~m单元格中DimiAsInteger,jAsIntegerSelectCase砼标号Case"C":j=Case"C":j=Case"C":j=Case"C":j=Case"C":j=EndSelectIf抗震级别="三级"Thenj=jSelectCase钢筋级别Case"HRB":i=Case"HRB","RRB":i=EndSelectIf钢筋种类="环氧树脂涂层钢筋"Theni=iIf钢筋直径>Theni=iIf钢筋级别="HPB"Theni=锚固长度=Sheets("锚固长度")Cells(i,j)'*钢筋直径EndFunctionFunction箍筋个数(梁净跨AsSingle,梁高AsSingle,加密区间距AsSingle,非加密区间距AsSingle)AsIntegerDim加密箍筋个数AsInteger,非加密箍筋个数AsIntegerIf加密区间距=Then非加密箍筋个数=(梁净跨)非加密区间距Else加密箍筋个数=*(*梁高)加密区间距非加密箍筋个数=(梁净跨(加密箍筋个数)*加密区间距)非加密区间距EndIf箍筋个数=加密箍筋个数非加密箍筋个数EndFunctionFunction公称质量(直径)AsDoubleIfLeft(直径,)="A"OrLeft(直径,)="B"OrLeft(直径,)="C"OrLeft(直径,)=""OrLeft(直径,)=""OrLeft(直径,)=""Then直径=Val(Mid(直径,))SelectCase直径Case:公称质量=Case:公称质量=Case:公称质量=Case:公称质量=Case:公称质量=Case:公称质量=Case:公称质量=Case:公称质量=Case:公称质量=Case:公称质量=Case:公称质量=EndSelectEndFunctionFunction上下贯通筋长度(总外边长AsSingle,梁高AsSingle,保护层AsSingle)AsSingle上下贯通筋长度=总外边长保护层*(梁高保护层*)*EndFunctionFunction双肢箍长度(梁宽AsSingle,梁高AsSingle,保护层AsSingle,箍筋直径AsSingle)AsSingle双肢箍长度=(梁宽梁高)*保护层**箍筋直径EndFunctionFunction箍筋长度(梁宽AsSingle,梁高AsSingle,保护层AsSingle,箍筋直径)AsSingleIfLeft(箍筋直径,)="A"OrLeft(箍筋直径,)="B"OrLeft(箍筋直径,)="C"Then箍筋直径=Val(Mid(箍筋直径,))箍筋长度=(梁宽梁高)*保护层**箍筋直径EndFunctionFunction四肢箍长度(梁宽AsSingle,梁高AsSingle,保护层AsSingle,箍筋直径AsSingle)AsSingle箍筋直径=箍筋直径四肢箍长度=((梁宽保护层*箍筋直径)*箍筋直径梁高保护层*)****箍筋直径EndFunctionFunction获取工程信息()'在ThisWorkbook打开时需要运行此过程'在工程信息工作表的内容改变时,也需要运行此过程工程抗震级别=Sheets("工程信息")Cells(,)EndFunctionFunction框架梁箍筋根数至级抗震(梁净跨AsSingle,梁高AsSingle,加密区间距AsSingle,非加密区间距AsSingle)AsInteger框架梁箍筋根数至级抗震=Int(*梁高加密区间距)*Int(((梁净跨Int(*梁高加密区间距)**加密区间距)非加密区间距))EndFunctionFunction框架梁箍筋根数级抗震(梁净跨AsSingle,梁高AsSingle,加密区间距AsSingle,非加密区间距AsSingle)AsInteger框架梁箍筋根数级抗震=Int(*梁高加密区间距)*Int((梁净跨Int(*梁高加密区间距)**加密区间距)非加密区间距)EndFunctionFunction基础梁大箍筋长度(梁宽AsSingle,梁高AsSingle,保护层AsSingle,箍筋直径AsSingle)AsSingle箍筋直径=箍筋直径'是mm基础梁大箍筋长度=((梁高保护层*)(梁宽保护层*))**箍筋直径*WorksheetFunctionMax(*箍筋直径,)**箍筋直径EndFunctionFunction剪力墙纵筋长度(剪力墙高AsSingle,剪力墙纵筋直径)AsSingleIfLeft(剪力墙纵筋直径,)="A"OrLeft(剪力墙纵筋直径,)="B"OrLeft(剪力墙纵筋直径,)="C"Then剪力墙纵筋直径=Val(Mid(剪力墙纵筋直径,))剪力墙纵筋长度=剪力墙高*剪力墙纵筋直径EndFunctionFunction剪力墙横筋长度(剪力墙长AsSingle,剪力墙横筋直径)AsSingleIfLeft(剪力墙横筋直径,)="A"OrLeft(剪力墙横筋直径,)="B"OrLeft(剪力墙横筋直径,)="C"Then剪力墙横筋直径=Val(Mid(剪力墙横筋直径,))剪力墙横筋长度=剪力墙长*剪力墙横筋直径EndFunction

用户评价(0)

关闭

新课改视野下建构高中语文教学实验成果报告(32KB)

抱歉,积分不足下载失败,请稍后再试!

提示

试读已结束,如需要继续阅读或者下载,敬请购买!

文档小程序码

使用微信“扫一扫”扫码寻找文档

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/5

VBA钢筋计算公式.bas

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利