开发工具:
文件大小: 608kb
下载次数: 0
上传时间: 2013-01-09
详细说明： 自运行生成工程表票，提高工程效率. For Each cell In Selection If cell.Value = "" Or cell.Column <> 7 Then Set wshshell = CreateObject("Wscript.shell") wshshell.popup "请从CeLL段一列中选择同一Cell！", 1, "提示", 64: Exit Sub Set wshshell = Nothing Else For n = 0 To 8 With Range(cell.Address) Select Case n Case 0 BP.ZY.Ad dItem .Offset(, -3).Value '若作业名称包括不是Cell的就会出现工程名错误 Case 1 BP.LC.AddItem .Offset(, -2).Value Sheets("工程别能力表").Range("B7").Offset(f, 0).Value = .Offset(, -2).Value Sheets("标准作业票").Range("D10:N10").Offset(f, 0).Value = .Offset(, -2).Value Case 2 BP.MT.AddItem Format(.Offset(, 2).Value, "0.00") Sheets("工程别能力表").Range("F7").Offset(f, 0).Value = .Offset(, 2).Value Case 3 BP.LT.AddItem Format(.Offset(, 3).Value, "0.00") Sheets("工程别能力表").Range("D7").Offset(f, 0).Value = .Offset(, 3).Value Case 4 BP.ST.AddItem Format(.Offset(, 4).Value, "0.00") Sheets("工程别能力表").Range("H7").Offset(f, 0).Value = .Offset(, 4).Value Case 5 BP.L.AddItem Format(.Offset(, 5).Value, "0.0") Sheets("工程别能力表").Range("Q7").Offset(f, 0).Value = .Offset(, 5).Value Case 6 BP.M.AddItem .Offset(, 6).Value Sheets("工程别能力表").Range("C7").Offset(f, 0).Value = .Offset(, 6).Value If .Offset(, 6).Value <> "" Then g = g + 1 Case 7 BP.H.AddItem .Offset(, 7).Value Case 8 BP.JL.AddItem .Offset(, 1).Value End Select End With Next f = f + 1 If f > 18 Then With Sheets("工程别能力表") .Range("B7:B24").ClearContents: .Range("C7:C24").ClearContents: .Range("D7:D24").ClearContents .Range("F7:F24").ClearContents: .Range("H7:H24").ClearContents: .Range("L7:L24").ClearContents: .Range("M7:M24").ClearContents End With Set wshshell = CreateObject("Wscript.shell") wshshell.popup "流程超出18条，请先在工程别能力表插入行，再制作表票！", 1, "提示", 64: Call bpqingchu: Exit Sub '然后将此表显示，一开始只能看见原单位表 Set wshshell = Nothing End If End If Next ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
