Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


31023 / 76732 ←次へ | 前へ→

【50967】Re:コンボボックスを空白にする方法
発言  ichinose  - 07/8/23(木) 18:34 -

引用なし
パスワード
   ▼[名前なし] さん:
こんばんは。
ん?誰?

>お世話になります。
>>これですね!!
>>標準モジュールでは、どこのシートのコンボボックスか特定しないといけませんね
>>
>>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で対応してください。

試してみてください。

1 hits

【50923】コンボボックスを空白にする方法 Tsuyo 07/8/22(水) 14:57 質問
【50924】Re:コンボボックスを空白にする方法 Tsuyo 07/8/22(水) 15:02 質問
【50925】Re:コンボボックスを空白にする方法 ぱっせんじゃー 07/8/22(水) 15:03 発言
【50928】Re:コンボボックスを空白にする方法 Tsuyo 07/8/22(水) 15:52 質問
【50930】Re:コンボボックスを空白にする方法 neptune 07/8/22(水) 16:49 回答
【50942】Re:コンボボックスを空白にする方法 Tsuyo 07/8/22(水) 23:28 質問
【50948】Re:コンボボックスを空白にする方法 ichinose 07/8/23(木) 8:01 発言
【50965】Re:コンボボックスを空白にする方法 [名前なし] 07/8/23(木) 17:23 質問
【50966】Re:コンボボックスを空白にする方法 kobasan 07/8/23(木) 18:33 回答
【50967】Re:コンボボックスを空白にする方法 ichinose 07/8/23(木) 18:34 発言
【50980】Re:コンボボックスを空白にする方法 Tsuyo 07/8/24(金) 9:34 質問
【51009】Re:コンボボックスを空白にする方法 ichinose 07/8/24(金) 20:31 発言
【51023】Re:コンボボックスを空白にする方法 Tsuyo 07/8/25(土) 22:42 質問
【51029】Re:コンボボックスを空白にする方法 ichinose 07/8/26(日) 0:54 発言

31023 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free