VBA
HappyDelano
这个作者很懒,什么都没留下…
展开
-
excel vba 将多张数据表的内容合并到一张数据表
vba实现:一个Excel文件有很多个 样式相同 的数据表,将多张数据表的内容合并到一张数据表里原创 2023-08-21 11:51:16 · 3443 阅读 · 0 评论 -
excel 有VBA程序的文件重命名后,找不到文件,请检查文件名的拼写,并验证文件位置是否正确... ...
excel vba:找不到文件,请检查文件名的拼写,并验证文件位置是否正确。如果您正视图从最近使用的文件列表中打开该文件,请确保该文件未被重命名、移动或删除。原创 2023-02-25 16:27:27 · 2217 阅读 · 0 评论 -
WPS VBA遇到的问题小记
WPS VBA环境配置原创 2022-02-28 10:53:09 · 8224 阅读 · 1 评论 -
中燃料场报表保存到文件--出库报表
Sub CmdGroup1Save()'' 保存出库报表到文件' '判断当前数据表是否为刚生产的出库报表 If Range("A1") <> "材料出库明细表" Then MsgBox "当前数据表不是 《材料出库明细表》,请确认!" End '结束程序的运行 End If '在桌面上...原创 2018-10-17 16:47:01 · 190 阅读 · 0 评论 -
中燃料场报表生成器--出库报表
从进销存系统导出的销售明细表 一键 生成 出库报表---V1.0版本 Sub CmdGroup1()'' CmdGroup1 宏' 从进销存到处的销售明细表生成料场出库报表'' 判断当前数据表是否为进销存的销售明细表 If Range("A1") <> "销售明细表" Then MsgBox "当前数据表不是 《销售明细表》 ...原创 2018-10-16 16:57:45 · 235 阅读 · 0 评论 -
中燃料场报表保存到文件--库存报表
Option ExplicitSub CmdGroup3Save() '判断当前数据表是否为刚生产的库存报表 If Range("A1") <> "工程材料盘点表" Then MsgBox "当前数据表不是 《工程材料盘点表》,请确认!" End '结束程序的运行 End If '在桌面上创建需要保存文件...原创 2018-10-18 16:51:09 · 212 阅读 · 0 评论 -
中燃料场报表生成器--库存报表
Option ExplicitSub CmdGroup3() ' 判断当前数据表是否为进销存的销售明细表 If Range("A1") <> "库存分布" Then MsgBox "当前数据表不是 《库存分布》 或者已经被修改,请确认!" End '结束程序的运行 End If ' 新建一...原创 2018-10-18 16:50:23 · 267 阅读 · 0 评论 -
中燃料场报表保存到文件--入库报表
Option ExplicitSub CmdGroup2Save() '判断当前数据表是否为刚生产的出库报表 If Range("A1") <> "材料入库明细表" Then MsgBox "当前数据表不是 《材料入库明细表》,请确认!" End '结束程序的运行 End If '在桌面上创建需要保存文件...原创 2018-10-18 16:49:42 · 222 阅读 · 0 评论 -
中燃料场报表生成器--入库报表
Option ExplicitSub CmdGroup2() ' 判断当前数据表是否为进销存的销售明细表 If Range("A1") <> "进货明细表" Then MsgBox "当前数据表不是 《进货明细表》 或者已经被修改,请确认!" End '结束程序的运行 End If ' 新建...原创 2018-10-18 16:48:46 · 192 阅读 · 0 评论 -
附近的人打招呼V1.0
//微信附近的人打招呼的脚本//开始按钮的响应事件Event Form1.Button1.ClickT1 = BeginThread (senMsg())End Event//发送打招呼信息Sub senMsg //读取文本框中要执行的人数 personNumber = Form1.InputBox1.Text// MessageBox "人数是:" & personN原创 2016-04-20 13:34:20 · 1090 阅读 · 0 评论 -
excel vba for 调配车间
Sub SetA1()'获取用户输入的序列号打印范围mNumFrom = ThisWorkbook.Worksheets("Sheet1").Range("B1").ValuemNumTo = ThisWorkbook.Worksheets("Sheet1").Range("D1").ValueFor r = mNumFrom To mNumTo Step原创 2015-11-12 09:42:37 · 760 阅读 · 0 评论