摘要: 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 阅读全文
posted @ 2022-04-01 15:34 保罗php 阅读(29) 评论(0) 推荐(0) 编辑
摘要: 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 & " 阅读全文
posted @ 2022-03-23 12:02 保罗php 阅读(76) 评论(0) 推荐(0) 编辑
摘要: VBA大算标签代码存档 Sub test() Dim i As Integer Dim M Dim N N = InputBox("请输入打印初始值:", "生产大箱标签模块___华益IT部开发", 1) If N = "" Then Exit Sub End If M = InputBox("请输 阅读全文
posted @ 2022-03-22 13:26 保罗php 阅读(14) 评论(0) 推荐(0) 编辑
摘要: 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("表 阅读全文
posted @ 2022-03-21 17:55 保罗php 阅读(30) 评论(0) 推荐(0) 编辑
摘要: 非生产部门 ! $字符串.包含$($申请部门$, "车间") && ! $字符串.包含$($申请部门$, "保障") && ! $字符串.包含$($申请部门$, "生产总监办公室") 生产部门 $字符串.包含$($申请部门$, "车间")||$字符串.包含$($申请部门$, "保障")||$字符串. 阅读全文
posted @ 2022-03-14 13:29 保罗php 阅读(34) 评论(0) 推荐(0) 编辑