复制控件

ddz79101

老师，希望复制控件到另表，表中有我录制宏修改的代码，运行后不是控件间的间隔太大，就是控件的顺序颠倒，希望老师帮忙看看，修改或重写。谢谢！

ddz79101

有老师帮忙看看吗

ddz79101

有老师帮忙看看吗

ddz79101

ddz79101 发表于 2024-4-28 13:01
有老师帮忙看看吗

有老师帮忙看看吗

ddz79101

ddz79101 发表于 2024-4-28 13:02
有老师帮忙看看吗

有情老师指导

kuangben8

录制宏就好了。

1. Sub 宏1()
   
2. '
   
3. ' 宏1 宏
   
4. '
   
5. 
   
6. '
   
7.     Worksheets("Sheet1").Select
   
8.     ActiveSheet.Shapes.SelectAll
   
9.     Selection.Copy
   
10.     Sheets("Sheet3").Select
    
11.     Range("F1").Select
    
12.     ActiveSheet.Paste
    
13. End Sub

复制代码

ddz79101

kuangben8 发表于 2024-4-28 14:11
录制宏就好了。

谢谢老师！你代码有简洁美。但若我只是部分复制喃？因为部分复制后就感觉不齐了。可以再修改吗？

kuangben8

ddz79101 发表于 2024-4-28 15:12
谢谢老师！你代码有简洁美。但若我只是部分复制喃？因为部分复制后就感觉不齐了。可以再修改吗？

用代码部分复制，那哪些需要复制，怎么确定呢？

ddz79101

kuangben8 发表于 2024-4-28 16:05
用代码部分复制，那哪些需要复制，怎么确定呢？

老师！复制B1-B7，上面的3个A1-A3不要

ddz79101

kuangben8 发表于 2024-4-28 16:05
用代码部分复制，那哪些需要复制，怎么确定呢？

老师！在吗？可以帮忙完善吗