运行时错误13：combobox上的types不匹配 – Excel VBA

简介 ：我有编程经验（C，C ++，Java），但是，这是我第一次使用Excel VBA。

一些背景 ：我试图初始化一个名为ORI_LIST的工作表中的combobox，但每次运行它我得到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的世界，这将是非常好的。