[已解决]请老师给VBA瘦身问题

kandhong

老师：
    我请教的是：给VBA瘦身问题。
    具体思路如下： "总按钮"有VBA，如右图所示。
    在F6中输入1，则执行"复-1";
    在F6中输入2，则执行"复-2";
    在F6中输入3，则执行"复-3";
    在F6中输入4，则执行"复-4";
    在F6中输入5，则执行"复-5";
  老师，我现在想请教的是：给"总按钮"VBA瘦身！
   因为这里的"复制"有5个，如果有100个甚至更多时，这个VBA体积就太大了！！
给VBA瘦身.rar (9.12 KB, 下载次数: 6)

2017-5-27 07:45 上传

点击文件名下载附件
  

最佳答案

月排行榜 / 总排行榜

grf1973

2017-5-27 13:09

1. Sub 填充()
   
2.     For i = 1 To 5
   
3.         Range("f6") = i
   
4.         Application.Run "给VBA瘦身.xls!复制" & i
   
5.    Next
   
6. End Sub
   

复制代码

跳转到最佳答案楼层

lmze2000

没太看明白你的意思，，
现在你这个代码，按一次总按钮，就全部复制了，你F6里面输入的数字根本不起作用。
------------------

不知道你的意思是不是，F6里面输入数字几，就在P6里面复制几次H6的内容。。
如果是，那么用下面的代码。。

1. Sub cpy()
   
2.     Dim n, S
   
3.     n = [f6]: S = [h6]
   
4.     With [p6]
   
5.         .Resize(, Columns.Count - 30).ClearContents
   
6.         .Resize(, n) = S
   
7.     End With
   
8. End Sub

复制代码

kandhong

lmze2000老师：
    我的意思是：
    1、在F6中输入1，则执行“复-1”，则在P6中填入“文章”（复-1中有代码）；
    2、在F6中输入2，则执行“复-2”，则在Q6中填入“文章”（复-2中有代码）；
    3、在F6中输入3，则执行“复-3”，则在R6中填入“文章”（复-3中有代码）；
   "总按钮"VBA太臃肿了，请lmze2000老师给予修改。
     Sub 填充()
     For WJ = 1 To 1
    Range("f6") = WJ
    Next WJ
    Application.Run "给VBA瘦身.xls!复制1"
   
      For WJ = 2 To 2
    Range("f6") = WJ
    Next WJ
    Application.Run "给VBA瘦身.xls!复制2"
   
      For WJ = 3 To 3
    Range("f6") = WJ
    Next WJ
   Application.Run "给VBA瘦身.xls!复制3"
   
    For WJ = 4 To 4
    Range("f6") = WJ
    Next WJ
    Application.Run "给VBA瘦身.xls!复制4"
   
      For WJ = 5 To 5
    Range("f6") = WJ
    Next WJ
  Application.Run "给VBA瘦身.xls!复制5"
  End Sub

grf1973

1. Sub 填充()
   
2.     For i = 1 To 5
   
3.         Range("f6") = i
   
4.         Application.Run "给VBA瘦身.xls!复制" & i
   
5.    Next
   
6. End Sub
   

复制代码

kandhong

grf1973老师：
    您提供的VBA思绪独特，简捷、实用，正解！