VBA Excel運行時錯誤424

-1

我知道這是本論壇和其他論壇詢問的一個非常常見的問題，但給出的答案無法幫助我，所以我再次提出這個問題。VBA Excel運行時錯誤424

我想創建一個與Excel的測驗，爲此我添加一個複選框來檢查以驗證選擇並查看答案。問題是我有這個VBA運行時錯誤'對象需要'，我不能解決它。

下面是VBA代碼，我執行

Sub affichageQuestion() 

    Dim xlw As Workbook  
    Set xlw = Workbooks("quiz.xlsm") 

    xlw.Worksheets("Sheet1").Shapes(2).Visible = msoTrue 

    xlw.Worksheets("Sheet1").Range("B3") = xlw.Worksheets("Sheet2").Range("A2").Value 
    xlw.Worksheets("Sheet1").Range("B8") = xlw.Worksheets("Sheet2").Range("B2").Value 
    xlw.Worksheets("Sheet1").Range("B10") = xlw.Worksheets("Sheet2").Range("B3").Value 
    xlw.Worksheets("Sheet1").Range("B12") = xlw.Worksheets("Sheet2").Range("B4").Value 
    xlw.Worksheets("Sheet1").Range("B14") = xlw.Worksheets("Sheet2").Range("B5").Value 

    If (validate.Value = -1) Then 
     If (xlw.Worksheets("Sheet1").Range("F3").Value = 2) Then 
      xlw.Worksheets("Sheet1").Shapes(2).Visible = msoTrue 
     End If 
    End If 

End Sub

隨着步入函數I位於該線上

If (validate.Value = -1) Then

的錯誤，但我能找到一個解決方案。
如果有人能儘快，我會真的格萊德回答我，因爲我的實習負責正在等待測驗

來源

2014-10-02 nelbekri

是什麼在你的代碼中驗證？ – GSerg 2014-10-02 10:05:46

是「驗證」窗體複選框或ActiveX？ – 2014-10-02 10:18:38

如果您的複選框是直接在您的工作表，然後嘗試：

If xlw.Worksheets("Sheet1").validate.Value = False Then

來源

2014-10-02 11:26:10 barryleajo

VBA Excel運行時錯誤424

回答

相關問題