運行時錯誤13：組合框上的類型不匹配 - Excel VBA

Question

簡介： 我有編程經驗（C，C++，Java），但是，這是我第一次使用Excel VBA。

一些背景： 我想初始化一個組合框從紙張上的列表稱爲ORI_LIST但我每次運行它的時候，我得到Run Time Error 13。任何有關這方面的信息都會很棒。

Private Sub UserForm_Initialize() 
    Dim cLoc As Range 
    Dim OriSheetList As Worksheets 

    Set OriSheetList = Worksheets("ORI_LIST") 

    For Each cLoc In OriSheetList.Range("CRI") 
     With Me.COMBO_ORILIST 
      .AddItem cLoc.Value 
     End With 
    Next cLoc 
End Sub 

Answer 1

這是一個愚蠢的，但你想要Dim OriSheetList As Worksheet。

Worksheet對象是單數。工作簿中所有工作表的集合都是複數。如果IDE在這些問題上有更多的幫助，但這是VBA的世界，那將是非常好的。