|
ichinoseさん、りんさん、有り難うございます。
腰を痛めて休んでいましたのでご返事が遅くなり
大変申しわけ御座いませんでした。
使用していますOSはWindows XP Home Edition(ver.5.1.2600)
Excelは2003(Ver.11.0)です。
最初のSub set_combo()では、
「実行時エラー`1004`:
WorksheetクラスのOLEObjectsプロパティを取得できません。」でSTOP。
次のSub Main()では、ComboBox1を作成直後に
With .OLEObjects.Addで、「中断モードでは入力できません。」でSTOPです。
私なりに色々テストした結果(ichinoseさんの最初のSub set_combo使用して)
'================================================================
Private Sub ComboBox1_DropButtonClick()
Dim ole As OLEObject
With Worksheets("sheet1").OLEObjects("combobox1")
.ListFillRange = "sheet2!a1:a5"
End With
End Sub
'================================================================
で動くようになりました。
ありがとう御座いました。
そして次の作業ですが、この"sheet2!a1:a5"のリストがComboBoxに表示され、
セレクトされた(数字や文字)をセルに埋め込みたいのですが
どのようにしたら良いのでしょうか。
どなたか教えてください。
|
|