Excel VBA错误13types不匹配

我最近开始在VBA工作，我遇到了一个问题，我不能修复

我创build的macros必须复制一个文本块，它会被一个checkbox触发，如果checkbox未被选中，textblok不得不放弃一个文本

这是他的代码

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 

Answer 1

看起来你的代码只需要一点点。 尝试这个：

 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