excel - マクロを使用して、1 つのシート行から行の最後までのデータをコンボボックスにバインドする方法

Question

この問題の解決策を教えてください。私はマクロを初めて使用します。この操作を行うことができません。

このコードを試しました

Sub BindCombo()
Dim Last

Last = Sheets("Defect Dump").Cells(2, 2).End(xlDown).Row
With ComboBox1
For Row = 2 To Last
.AddItem Sheets("Defect Dump").Cells(Row, 1)
Next Row
End With

End Sub

しかし、このコードはオブジェクトエラーを示しています

Answer 1

へのオブジェクト参照を作成する必要があります。ComboBox

これを試して

Sub BindCombo()
    Dim Last As Long, rw As Long
    Dim sh As Worksheet
    Dim cb As ComboBox

    Set sh = Sheets("Defect Dump")
    Last = sh.Cells(2, 2).End(xlDown).Row
    ' get Combobox on "project sheet" sheet
    Set cb = Sheets("project sheet").Shapes("ComboBox1").DrawingObject.Object
    With cb
        .Clear ' remove any existing items
        For rw = 2 To Last
            .AddItem sh.Cells(rw, 1)
        Next
    End With

End Sub