查看: 845|回复: 5
请高手帮忙，编写宏，谢谢！
请高手帮忙写宏，根据报缺单里的数据，按物料编码和产品型号编码两个条件的要求，将符合条件的数据（报缺表需求量这一列所对应 的单元格数值显示在特定的单元格内）要求用宏编写。如：报缺表中物料编码1010001，在A产品中用到500，B产品中用到1000，则在汇总表里的E2单元格显示，A产品的用量500，E3单元格里显示B产品的用量，1000，依此类推。谢谢！ 谢谢！
21:59 上传
点击文件名下载附件
43.04 KB, 下载次数: 8
请楼主测试：
(46.5 KB, 下载次数: 4)
22:44 上传
点击文件名下载附件
谢谢，马上进行测试一下，如果还有问题，在向您请教。
CheryBTL 发表于
请楼主测试：
感谢cheryBTL ，这个在原文件上可以用，经试验，有几个问题，希望在帮忙解一下，谢谢！
1、我所使用的物料编码，有可能会是13位数，而且有时会出来，点和-，/ 的情况
2、产品型号编码也同样，有可能会出现10位数的字母、数字和符号+，共同存在，现在的文档里，好像要区分大小写
3、能否解说一下代码，这个表格有还需要调整的地方。
在次感谢！
fm652 发表于
感谢cheryBTL ，这个在原文件上可以用，经试验，有几个问题，希望在帮忙解一下，谢谢！
1、我所使用的物 ...
请根据你的实际问题，重新上传附件。
下午在试了一下，可以用了，以上问题，都是因为我自己单元格格式设置错误造成的，很好用，谢谢！
Powered by(window.slotbydup=window.slotbydup || []).push({
id: '3284507',
container: s,
size: '0,0',
display: 'inlay-fix'
Excel中vba宏代码合并单元格的方法
文章介绍excel中用vba宏代码来进行合并单元格的操作过程，以及用VBA宏代码语句判断单元格是否为合并单元格。
以前的文章介绍excel合并单元格多是基础操作，本文介绍关于excel合并单元格宏VBA代码方面的应用。
第一，用VBA宏判断excel合并单元格
在excel中按下ALT+F11，打开VBE编辑器，复制下面代码，按F5键运行，如果A1单元格为合并单元格，则弹出消息框提示此单元格为合并单元格，如果A1单元格没有合并，消息框提示此单元格不是合并单元格。
Sub excel合并单元格宏()
If Range(&A1&).MergeCells Then
MsgBox &此单元格为合并单元格&
MsgBox &此单元格不是合并单元格&
第二，用宏VBA代码来进行合并单元格
用上面介绍的方法，复制下面这段代码，运行的结果是：当我们在输入框输入一个行号，然后excel会自动合并A1到输入行号的单元格区域。比如我们输入8，excel则合并A1：A8单元格区域。
Sub合并单元格宏()
Dim x1 As Long
x1 = InputBox(&请输入行号：&)
Sheets(&sheet1&).Range(&a1:a& & x1).Merge
又比如下面这段宏VBA代码可以实现C6:F10单元格区域合并。
Sub 合并单元格()
Range(&C6:F10 &).MergeCells = True
标签(Tag):
------分隔线----------------------------
------分隔线----------------------------求教VBA高手！在启用宏之前，excel表格不能编辑，启用宏之后，可编辑，代码该怎么写
全部***（共4个回答）
lose(Cancel As Boolean) Sheet1.Visible = xlSheetHidden End Sub Private Sub Workbook_Open() Sheet1.Visible = xlSheet...
先把工作表保护了，然后再用宏解开。同时别忘了写 BeforeSave 事件，存前先保护工作表。Private Sub Workbook_Before相关信息lose(Cancel As Boolean) Sheet1.Visible = xlSheetHidden End Sub Private Sub Workbook_Open() Sheet1.Visible = xlSheetVisible End Sub
1，打开excel2010
2，在工具栏空白处，右击：自定义功能区---选择添加
开发工具 选项 -- 确定
3，点开 开发工具 菜单项，点击 宏安全
4，选中 ActiveX 设置， 选中右边的 无限制启用...... 选项， 取消 选中 安全模式
5，选中 宏设置 菜单， 选中右边 启用所有宏 选项， 选中 开发人员宏设置 选项--确定
6，将excel文档 另存为：
excel启用宏的工作薄 格式 。关闭文档
7，打开该文档，可以录制宏，并且执行宏
8，打开开发工具，插入一个按钮，
9,右击添加的 按钮，选择 指定宏 菜单，在弹出框中输入 宏名 ，点击 新建 按钮
10，确定后，就可以进入后台，编写vba代码了。
例如在方法里写： MsgBox ("helloworld")
点击按钮后，就弹出一个消息：hello world
11，office2010 启用宏和使用VBA介绍完毕。
Excel中如何开启vba编辑，通常excel默认为了安全考虑所以默认是禁止宏的，所以开启了vba编译，还需要进行设置宏可用
开始-&excel选项-&自...
使用Call调用子过程，子过程名称不能为变量，如果要用变量作为子过程名称，只能用Application.Run来调用，也就是说你的那个调用办法应为：
关服没法试宏～ 不知道现在版本猎人能不能用stance判别状态，不过以前这个问题
/cast 雄鹰守护
/cast 蝰蛇守护
就可以实现的
Sub 按钮18_单击()
Application.ScreenUpdating = False
For Each sh In Sheets
If sh.Nam...
答: 科隆的地?系?是 kvb 自?售票? 如何使用
答: 还是买本参考资料看看吧，如果三言两语能描述清楚，种地的也编程了。
答: 除非你能有权限直接访问对方数据库，而且还要知道数据库表的关系以及表中数据条目的含义。否则是无法修改的,正常情况下对于数据的读取修改都是在服务器后台进行，而且会有...
大家还关注
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区
相关问答：123456789101112131415
