摘要:
Sub 按钮2_Click() Dim n0 As Integer, n1 As Integer, n2 As Integer, n3 As Integer, n4 As Integer, n5 As Integer, n6 As Integer n1 = WorksheetFunction.Cou 阅读全文
摘要:
Sub 宏2() ' ' 宏2 宏 Range("A1:A3").Value = Range("表1!A1:A3").Value Range("E3").Value = Range("表1!G3").Value Range("F3").Value = Range("表1!H3").Value & " 阅读全文
摘要:
VBA大算标签代码存档 Sub test() Dim i As Integer Dim M Dim N N = InputBox("请输入打印初始值:", "生产大箱标签模块___华益IT部开发", 1) If N = "" Then Exit Sub End If M = InputBox("请输 阅读全文
摘要:
Sub 宏2() ' ' 宏2 宏 Range("汇总表!A1:A2").Value = Range("表1!A1:A2").Value End Sub Sub 宏2() ' Range("C13:C14").Value = Range("A1:A2").Value ' 宏2 宏 Sheets("表 阅读全文
摘要:
非生产部门 ! $字符串.包含$($申请部门$, "车间") && ! $字符串.包含$($申请部门$, "保障") && ! $字符串.包含$($申请部门$, "生产总监办公室") 生产部门 $字符串.包含$($申请部门$, "车间")||$字符串.包含$($申请部门$, "保障")||$字符串. 阅读全文