0

形状オブジェクトを介して作成した後にコンボボックスを選択する際に問題があります。誰か助けてくれませんか？

私のコードは

Dim comboBoxRange As Range
Set comboBoxRange = Sheets(axleDataWindowName).Range("F2:F4")
currentSheet.DropDowns.Add(20, 40, 100, 15).Name = "modifiedComboBox"
With currentSheet.Shapes("modifiedComboBox")
    .Left = 450
    .List comboBoxRange.Value
End With
4

1 に答える 1

1

currentSheet.Dropdowns("modifiedComboBox")の代わりに呼び出す必要がありますcurrentSheet.Shapes("modifiedComboBox")。.AddItemの代わりにも使用します.List:

Dim comboBoxRange As Range
Set comboBoxRange = Sheets(axleDataWindowName).Range("F2:F4")
currentSheet.DropDowns.Add(20, 40, 100, 15).Name = "modifiedComboBox"
With currentSheet.Shapes("modifiedComboBox")
    .Left = 450
    .AddItem comboBoxRange.Value
End With
于 2013-10-09T18:14:24.493 に答える