查看: 130|回复: 2
急！！！请大侠帮忙做个生成台账的宏.
阅读权限20
在线时间 小时
请大侠帮忙做个生成台账的宏,在台账表里，在产品编码输入产品编码，点生成就能生成台账，期初数我可以手工录入，请哪位大侠帮忙做一下，万分感谢！谢谢！
18:22 上传
点击文件名下载附件
89.93 KB, 下载次数: 0
阅读权限90
在线时间 小时
实现台账自动生成功能
(出处: ExcelHome技术论坛)
阅读权限20
在线时间 小时
能不能帮我写个VBA呀，我不看不懂。谢谢！！！！！！
最新热点 /1
GO，当当年终最后一弹，ExcelHome图书一律4.9折，活动时间为即日起至12月13日，点击“查看”，抢购良机在此一举！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 815|回复: 7
求大神帮忙写一个简单的宏，非常感谢。
阅读权限20
在线时间 小时
求一个宏程序，打开EXECL中有五个SHEET，分别为SHEET1到SHEET5，
现在想求一个宏，把SHEET1中所有数据复制后再粘贴到原来的位置（只粘贴数值),这样做是为了取消掉公式），同理还有SHEET2、SHEET3、SHEET4，
最后再删除掉SHEET5，求大神帮下忙，我有几百个EXECL都要这样做，谢谢。
阅读权限30
在线时间 小时
请上传附件说明想达到的效果
阅读权限95
在线时间 小时
Sub 选择性粘贴()
For i = 1 To Worksheets.Count
Sheets(i).UsedRange.Copy
Sheets(i).UsedRange.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Next
Application.DisplayAlerts = False
Sheets(Worksheets.Count).Delete
End Sub复制代码
阅读权限30
在线时间 小时
我等VBA菜鸟来练习下Sub 运行宏()
Sheets(&sheet1&).UsedRange = Sheets(&sheet1&).UsedRange.Value
Sheets(&sheet2&).UsedRange = Sheets(&sheet2&).UsedRange.Value
Sheets(&sheet3&).UsedRange = Sheets(&sheet3&).UsedRange.Value
Sheets(&sheet4&).UsedRange = Sheets(&sheet4&).UsedRange.Value
Application.DisplayAlerts = False
Sheets(&sheet5&).Delete
Application.DisplayAlerts = True
End Sub复制代码
阅读权限20
在线时间 小时
goodkf 发表于
我等VBA菜鸟来练习下
大哥，神人啊，这么牛，我想拜师。
阅读权限20
在线时间 小时
changxuegu 发表于
非常感谢，问题解决了。
阅读权限20
在线时间 小时
hcy1185 发表于
请上传附件说明想达到的效果
问题解决了，谢谢
阅读权限20
在线时间 小时
goodkf 发表于
我等VBA菜鸟来练习下
(63.8 KB, 下载次数: 6)
22:32 上传
点击文件名下载附件
大哥，能不能在这程序里在加一点点，我把附件上传上去，只希望把SHEET（ 1、问题验收表）中A１单元格内容的2012-KS001　　替换为D2单元格内容。非常感谢。
最新热点 /1
GO，当当年终最后一弹，ExcelHome图书一律4.9折，活动时间为即日起至12月13日，点击“查看”，抢购良机在此一举！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 313|回复: 4
大神看看能不能写个宏程度，VBA啥的解决一个简单的问题
阅读权限10
在线时间 小时
我先描述一下，现在我是要一个文件一个文件制作一些资料，文件是重复操作比较烦恼所以想做个自动的看下有没能人帮rym。
文件名称格式：3238235)_BRACKET，其实就 {图号（物料号）_名称}，在每个文件D4单元格也需要写上文件名称即{图号（物料号）_名称}，我可以在”总表数据（在此文件输入和输出）“预先输入这个文件名称。如附件。
具体想实现的功能如下：
我在 “总表数据（在此文件输入和输出）“ 这个文件输数据。
材料序号规格件316L1δ5600×5001
1，主要是材料，规格，数量。。这几个东西最好是能做成对话框+选择的形式。比如材料，我可以选316L,A3,304或H13等等。规格那些可以选平板，圆钢，角铁，槽钢等，选择选择了这两个参数后如果是平板就长宽高三个参数，如果是圆钢就直径，长度两个参数。。这个最好是可以给个例子给我，我到时自己加上去各种不同材料需要的参数，因为种类太多，所以我想自己添加，不想麻烦各位。
2，F列想让它自动编号的，A列是一个大的合并单元格。比如A列合并的5行，那在对应的F列就是1，2，3，4，5这样。如附件。
3，第3点是重点，我自己也不确定是否可以说明白了，看不懂的话大神不要见笑，可以跟贴交流一下。
就是文件分割整理。其实就是分割成附件里面的几个小文件那样。手工整理过程如下：
第一列删除，D4单元格输入的是原来”总表数据（在此文件输入和输出）“A列的合并单元格里的值，文件名称也是这样。A列合并了多少行，右边对应的就是在那个文件里面的。行数是不确定的。在分割出来的文件的I3单元格输入客户名称。并设置可打印区域为A-R列。
表格尾部的合计那里如没有那种材料的就删除。有的就计算重量。
合计：316L86.0859341㎏×1.05＝90.39 ㎏a32.4021㎏×1.06＝2.52 ㎏3040㎏×1.1＝0.00 ㎏(材料)0㎏×1.1＝0.00 ㎏表面积：0㎡×1.1＝0.00 ㎡外购：A2-70螺母M300 件不提供：螺栓M300 件
19:46 上传
点击文件名下载附件
189.1 KB, 下载次数: 4
阅读权限10
在线时间 小时
顶顶面顶顶。。。。。
阅读权限90
在线时间 小时
看小说啊.............
阅读权限10
在线时间 小时
看小说啊.............
大神帮下忙，我不写多点怕人看不懂。
阅读权限95
在线时间 小时
光知道写代码是个力气活，原来看帖子也需要很大的耐心
最新热点 /1
GO，当当年终最后一弹，ExcelHome图书一律4.9折，活动时间为即日起至12月13日，点击“查看”，抢购良机在此一举！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师