Question

Excel 一个宏 多个连续按钮中可以使用。WPS中按钮

有50个按钮
ToggleButton1-50
每个按钮的宏代码如下，copy到目标位置后的数字比按钮1加了20行。有没有办法用
For i = 1 To 50 Step 1
For r = 1 To 1000 Step 20
这样的方式呢？

Private Sub ToggleButton1_Click()
Sheets("shoudongluru").Range("A3").Value = "1"
Sheets("shoudongluru").Range("B3:G21").Copy Sheets("duoxiangdata").Range("B3:G21")
Sheets("shoudongluru").Range("K3:P21").Copy Sheets("duoxiangdata").Range("K3:P21")
Sheets("shoudongluru").Range("B23").Value = "第1箱完成"
End Sub

Private Sub ToggleButton2_Click()
Sheets("shoudongluru").Range("A3").Value = "2"
Sheets("shoudongluru").Range("B3:G11").Copy Sheets("duoxiangdata").Range("B23:G41")'比按钮1加了20
Sheets("shoudongluru").Range("K3:P11").Copy Sheets("duoxiangdata").Range("K23:P41")'比按钮1加了20
Sheets("shoudongluru").Range("B23").Value = "第2箱完成"
End Sub

一共有50个。

Answer 1

只用一个按钮就可以，点了按钮之后选一下箱子号，代码如下：

Private Sub ToggleButton1_Click()
    Dim i
    i = Val(InputBox("输入箱子号","你打算处理第几箱",1))
    Sheets("shoudongluru").Range("A3").Value = i
    Sheets("shoudongluru").Range("B3:G21").Copy Sheets("duoxiangdata").Range("B"&(3+(i-1)*20)&":G"&(21+(i-1)*20))
    Sheets("shoudongluru").Range("K3:P21").Copy Sheets("duoxiangdata").Range("K"&(3+(i-1)*20)&":P"&(21+(i-1)*20))
    Sheets("shoudongluru").Range("B23").Value = "第"& i &"箱完成"
End Sub

Answer 2

我应该可以解决，发你的文件来！