1

はじめに：プログラミング（C、C ++、Java）の経験はありますが、ExcelVBAを使用するのはこれが初めてです。

いくつかの背景：というシートのリストを使用してコンボボックスを初期化しようとしていますが、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
4

1 に答える 1

2

ああ、これはばかげたものですが、あなたは欲しいですDim OriSheetList As Worksheet。

Worksheetオブジェクトは特異です。ブック内のすべてのシートのコレクションは複数形です。これらの問題についてIDEからもう少し助けがあればいいのですが、残念ながらそれがVBAの世界です。

于 2012-06-29T02:25:50.800 に答える