| |
Private Sub CommandButton1_Click()
For i = 1 To 19 'ﾁｪｯｸﾎﾞｯｸｽの番号
If Me.Controls("CheckBox" & i) Then
lngColumn = (j Mod 4) * 8
lngRow = (j \ 4) * 2
ActiveSheet.Cells(行, 6 + i - 1).Copy _
Sheet2.Cells(6 + lngRow, _
3 + lngColumn).Resize(2, 7)
j = j + 1
End If
Next i
end sub
上記は正常に動きます
Private Sub CommandButton3_Click()
For i = 39 To 57 'ﾁｪｯｸﾎﾞｯｸｽの番号
If Me.Controls("CheckBox" & i) Then
lngColumn = (j Mod 4) * 8
lngRow = (j \ 4) * 2
ActiveSheet.Cells(行, 6 + i - 1).Copy _
Sheet13.Cells(6 + lngRow, _
3 + lngColumn).Resize(2, 7)
j = j + 1
End If
Next i
end sub
コマンドボタンを追加して上記のようにしましたがｴﾗｰﾒｯｾｰｼﾞ等はでませんが
貼り付けできません
何がいけないのかも？？
ご教授いただけますでしょうか
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
