|
そうなんですか 知りませんでした。
チェックボックスの数は3,000個ぐらいになります。その中から必要に応じ取り出すのは
20〜30個くらいです。
他の方法を考えたほうがいいですかね。たとえばボタンを配置するとか・・・
今、試験的にIROCさんの書いて下さった通り書き直して実行してみたら何とか成功したみたいですが、数が多くなればエラーの可能性もありますかね?
Private Sub CheckBox1_Click()
Dim S1 As Worksheet, S2 As Worksheet
Set S1 = Worksheets("Sheet1")
Set S2 = Worksheets("Sheet2")
With S2
If CheckBox1.Value = True Then
S1.Range("B4:M4").Copy Destination:=S2.Range("A65536").End(xlUp).Offset(1)
Else
.Range("A65536").End(xlUp).Resize(1, 12).ClearContents
End If
End With
End Sub
これで今は大丈夫みたいですけど・・・(5行ぐらいですけど)
|
|