台账程序下载地址:http://www.qejc.cn/9/33/2020-05-13/29739.php
请用电脑端登录下载
Sub 生成台账表内目录() Dim sht As Worksheet If Not ShtExists("目录") Then Set sht = Sheets.Add(before:=Sheets(1)) sht.Name = "目录" Else Set sht = Sheets("目录") End If sht.[A1] = "序号" sht.[B1] = "目录" sht.[2:10000].ClearContents For i = 2 To Sheets.Count sht.Cells(i, 1) = i - 1 sht.Cells(i, 2) = Sheets(i).Name'升级网站会员获取完整excel宏代码'如有需要可联系客服定制自动程序' **********七二检测**********' ***********qejc.cn**********'升级网站会员获取完整excel宏代码'如有需要可联系客服定制自动程序 Next sht.[D4] = "七二检测" sht.[D5] = "qejc.cn"End SubFunction ShtExists(shtname) On Error Resume Next Dim s Err.Clear s = Sheets(shtname & "").Name If Err.Number = 0 Then ShtExists = True Else ShtExists = False End IfEnd Function
· END ·
往期推荐
常规C10、C15、C20、C25、C30混凝土配合比
市政工程竣工验收及资料归档!真的不能再齐全啦!
百套一建、二建、检测考试真题下载
百套试验仪器操作规程下载
百套试验检测表格模板下载
百套工程质量验收记录下载
百套施工工艺工法下载
百套试验检测表格模板下载
百套招标投标技术资料下载
公路工程、隧道盾构工程、城市桥梁工程等竣工验收记录下载
(2020年更新)历年工程行业试验规范、法律、法规领取
2020年考试大纲
百套仪器设备校准确认报告、履历表(档案)、购置申请表、验收记录表下载
百套试验检测程序公式下载
百套试验检测报告模板下载
百套节能、钢结构、桩基、室内环境、防雷等真题、题库下载
百套试验检测报告、原始记录(含数据)下载
百套建筑节能试验检测报告、原始记录下载
百套试验作业指导下载
现行常用技术标准--铁路通用类
现行常用技术标准--普通铁路类
现行常用技术标准--高速铁路类
现行常用技术标准--公路类
现行常用技术标准--城市轨道交通类、地铁、市政
现行常用技术标准--房建类
现行常用技术标准--铁路制梁场
百套一建、二建、造价、消防、检测师、节能真题等真题、题库下载
百套节能、钢结构、桩基、室内环境、防雷等真题、题库下载
百套试验委托单模板等下载
。。。
领取方式
登录: 七二检测 qejc.cn分享本文到朋友圈,或分享本文到2个检测行业微信群,登陆上面网站或者点击底部“”进入网站(找客服领取本站周卡会员下载体验),暂不支持手机端非会员下载,请用电脑端下载。