| |
▼かずお さん：
おはようございます。
やりたい事があまり良くわからないので
はっきりとお答えできませんが・・・
オブジェクトが必要です。というエラーが出ているようなので
１つチェックしてみて頂きたいのは
このコードが書かれているユーザーフォームにあるコンボボックスの名前は ComboBox6Date かをチェックされてみてください。
あと・・・
>With ComboBox6Date
> .Value = Worksheets("Sheet1").Cells(i + 2, 2).Value
>End With
ここの部分ですが、変数iはどこで定義されているのでしょうか？
それにValueを指定するだけではコンボボックスに１つ表示されるだけで
リスト選択のようには使用できません。
With ComboBox6Date
.RowSource = "B1:B10"
End With
のようにRowSourceプロパティにセル範囲を設定するか
With ComboBox6Date
For i = 1 To 10
.AddItem ThisWorkbook.Sheets("Sheet1").Cells(i, 2).Value
Next i
End With
のようにAddItemメソッドで１つづつ追加していきます。
|
|
Lindy
- 07/7/5(木) 9:17 -
