[英]Excel VBA error 13 type mismatch
我最近開始研究VBA,遇到了無法解決的問題
我創建的宏必須復制一個文本塊,它會由一個選中的復選框觸發,如果該復選框未選中,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
看起來您的代碼只需要整理一點。 嘗試這個:
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
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.