|
▼[名前なし] さん:
こんばんは。
ん?誰?
>お世話になります。
>>これですね!!
>>標準モジュールでは、どこのシートのコンボボックスか特定しないといけませんね
>>
>>Sub test()
>> Worksheets("sheet1").ComboBox1.Clear
>>End Sub
>試してみたのですが、「予期せぬエラーが発生しました。」というエラーが出ます。予期せぬエラーとはどんなエラーなのでしょうか?
予期せぬエラーでしょうね!!
本来は上記のエラーが発生するまでの手順書をここで記述しなければならないのですよ!!
・Excelを起動してください。から始まってね!!
標準モジュールに記述の件も最初に記述しなければなりません。
・新規ブックの適当なシート(ここではSheet1というシ−ト)に
コマンドバー「コントロールツールボックス」にあるコンボボックスを
配置してください。尚、説明の都合上、コンボボックスをSheet1の
セルA1からA5の範囲に配置することは避けてください。
・標準モジュールに
'=================================================================
Sub 設定()
With Worksheets("sheet1")
.Range("a1:a5").Value = [{"a";"b";"c";"d";"e"}]
.ComboBox1.ListFillRange = "=sheet1!a1:a5"
End With
End Sub
上記の設定を実行してください。
Combobox1には、Sheet1のA1からA5の内容がリスト表示されると思います。
上記のコンボボックスに対して、
標準モジュールに
'=======================
Sub クリア()
Worksheets("sheet1").ComboBox1.Clear
End Sub
この「クリア」を実行すると、、「予期せぬエラーが発生しました。」というエラーが
発生します。
と記述すれば、多くの方が再現できるでしょう?
不具合って再現できて何ぼものですからね!!
この場合は、標準モジュールに
Sub test()
Worksheets("sheet1").ComboBox1.ListFillRange = ""
End Sub
上記のtestで対応してください。
試してみてください。
|
|