请老师帮忙写个按钮的VBA小程序

linsmeng

需求：在7010/7020分别创建按钮，点击7010按钮在BOM页中复制7010的内容，点击7020的按钮复制到BOM页中同时不覆盖之前的复制内容；
还请老师帮忙，十分感谢

yaozong

要求不清楚，无从着手。

linsmeng

就是分别在sheet7010 sheet7020中都创建按钮，点击sheet7010中的按钮将sheet7010的内容复制到sheet BOM中，点击sheet7020中的按钮，将sheet7020中的内容也复制到sheetBOM中，同时满足不覆盖之前已经复制的内容；

yaozong

linsmeng 发表于 2019-8-24 07:31
就是分别在sheet7010 sheet7020中都创建按钮，点击sheet7010中的按钮将sheet7010的内容复制到sheet BOM中， ...

1. Sub test() ''各表按钮均可指定（test）
   
2.   If ActiveSheet.Name = "BOM" Then Exit Sub
   
3.   Dim rng As Range, cel As Range
   
4.   Set rng = ActiveSheet.[b2].CurrentRegion.Offset(1)
   
5.   Set cel = Sheets("BOM").Cells(Rows.Count, 3).End(3).Offset(1, -1)
   
6.   rng.Copy cel
   
7. End Sub
   

复制代码

Chip_Kenny

最起碼都做個模擬結果上來, 不要讓幫你的人猜你的文意, 若做出來有差異, 浪費幫忙者及你的時間及心力。

microyip

又重复起贴，一定要伸手得到现成为止

xyxcc177

microyip 发表于 2019-8-24 09:44
又重复起贴，一定要伸手得到现成为止

要成功，就要有这种执着的劲儿，现在到论坛的大都是伸手要代码的，而真正学习者少之又少。

linsmeng

yaozong 发表于 2019-8-24 08:12

没能及时回复您十分抱歉，因为是做其他工作的，研究了一天实在没研究出来，做了伸手党，十分感谢您的帮助。