Excel VBA質問箱 IV

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

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


30962 / 76732 ←次へ | 前へ→

【51029】Re:コンボボックスを空白にする方法
発言  ichinose  - 07/8/26(日) 0:54 -

引用なし
パスワード
   ▼Tsuyo さん:
こんばんは
>返事が遅くなってすみません。
>>Excel2002(Excel2000でも確認)で前回の投稿どおりの手順で行うと
>>記述したとおりにエラーが発生し、記述したとおりにリストがクリアされますけどね!!
>
>Excelは2007です。
>Worksheets("sheet1").ComboBox1.Clear
>では消えませんでしたが(エラーは出ません)
>Worksheets("sheet1").ComboBox1.value = ""
>を実行したら消えました。
>という意味で前回は書きました。

何となくわかったような気もしますし、そうでもないような・・・。

Combobox1.Value=""

Combobox1.Clearは、違いますよ!!

ただ、Excel2007は持っていないので確認ができません。

前回投稿した


Sub main()
  Dim cmb As OLEObject
  With Range("d3:f3")
    Set cmb = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", _
        Link:=False, DisplayAsIcon:=False, _
        Left:=.Left, Top:=.Top, _
        Width:=.Width, Height:=.Height * 2)
    End With
  MsgBox "ready"
  ActiveSheet.Range("a1:a5").Value = [{"a";"b";"c";"d";"e"}]
  With cmb
    .ListFillRange = ActiveSheet.Name & "!a1:a5"
    .Object.DropDown
    MsgBox "セルA1:A5の内容をコンボボックスに設定しました"
    On Error Resume Next
    .Object.Clear
    If Err.Number <> 0 Then
     MsgBox "clearメソッドを実行したところ・・  " & vbCrLf & Err.Description
     End If
    .Object.ListIndex = 3
    MsgBox "dを選択しました"
    .Object.Value = ""
    .Object.DropDown
    MsgBox "Value=""""の実行で dは消去されてもリストは消えません"
     
   
    .ListFillRange = ""
    .Object.DropDown
    MsgBox " .ListFillRange = """"の実行で リストが消去されました"
    .Delete
    End With
  
End Sub

このコードの結果がExcel2007では私が記述した内容と違うなら、
私はこのご質問から手を引かなければなりません。
だって、確認できないのですから・・・。


再度お聞きします。上記のコードは、どのようにメッセージが表示されますか?

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 発言

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