0

最近 VBA の作業を開始しましたが、修正できない問題に遭遇しました。

私が作成したマクロはテキストのブロックをコピーする必要があり、チェックされたチェックボックスによってトリガーされます。また、チェックボックスがチェックされていない場合、テキストブロックは消えなければなりませんでした

これは彼のコードです

Private Sub CheckBox1_Click()

    If Sheets("Blad1").CheckBox1.Value = True Then Sheets("Blad3").Range("C2").Value = 1
    If Sheets("Blad1").CheckBox1.Value = False Then Sheets("Blad3").Range("C2").Value = 0

    If Sheets("Blad3").Range("C2").Value = 1 Then 
       Sheets("Blad1").Range("B7:B15").Value.Copy Destination = Sheets("Blad2").Range("A1:B8").Value
    End If

    If Sheets("Blad3").Range("C2").Value = 0 Then
    End If

    Application.Goto Worksheets("Blad2").[A1:A9], True
    Range("A1:A9").Clear

End Sub
4

1 に答える 1

3

コードを少し整理する必要があるようです。これを試して：

Private Sub CheckBox1_Click()

If Sheets("Blad1").CheckBox1.Value = True Then 
    Sheets("Blad3").Range("C2").Value = 1
Else
    Sheets("Blad3").Range("C2").Value = 0
End IF


If Sheets("Blad3").Range("C2").Value = 1 Then
  Sheets("Blad1").Range("B7:B15").Copy 
  Sheets("Blad2").Range("A1").PasteSpecial xlValues
Else
  Sheets("Blad2").Range("A1:A9").Clear
End If

End Sub
于 2013-03-14T11:13:10.290 に答える