Excel的VBA錯誤13類型不匹配

Question

我最近開始對VBA工作，我遇到了，我不能修復

我已經創建的宏具有複製的文本塊，它就會通過triggerd問題選中複選框，也如果複選框沒有被選中的textblok不得不解散aperear

這是他的代碼

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