Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9295 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【28016】コンボボックスの値が見えない SE菊地 05/8/26(金) 15:57 質問[未読]
【28018】Re:コンボボックスの値が見えない Jaka 05/8/26(金) 16:39 発言[未読]
【28020】Re:コンボボックスの値が見えない SE菊地 05/8/26(金) 16:45 質問[未読]
【28025】Re:コンボボックスの値が見えない ichinose 05/8/26(金) 18:18 発言[未読]
【28210】Re:コンボボックスの値が見えない SE菊地 05/8/31(水) 9:21 お礼[未読]
【28016】コンボボックスの値が見えない
質問  SE菊地  - 05/8/26(金) 15:57 -
引用なし
パスワード
   コンボボックスの値をセルの値から取得しているのですが、
下三角ボタンを押すと、リストの一覧はでます。
でも選択したあと、それがボックス上に表示されないのです。

listメソッドを使っても
addItemメソッドを使っても同じ症状です。

なぜなのでしょうか？
【28018】Re:コンボボックスの値が見えない
発言  Jaka  - 05/8/26(金) 16:39 -
引用なし
パスワード
   こんにちは。
取りあえず、こんな事やってませんよ...ねぇ？
もしかしたらと思って聞いてみました...。

Private Sub ComboBox1_Change()
ComboBox1.ListIndex = -1
上かしたのどちらか
ComboBox1.Value = ""
End Sub
【28020】Re:コンボボックスの値が見えない
質問  SE菊地  - 05/8/26(金) 16:45 -
引用なし
パスワード
   ▼Jaka さん：
>こんにちは。
>取りあえず、こんな事やってませんよ...ねぇ？
>もしかしたらと思って聞いてみました...。
>
>Private Sub ComboBox1_Change()
>ComboBox1.ListIndex = -1
>上かしたのどちらか
>ComboBox1.Value = ""
>End Sub

プロシージャを書き出してみますと

Private Sub UserForm_Initialize()
　　　 UserNumberList.List = Sheets("人数").Range("B2:B12").value

End Sub

という感じです。
Changeプロシージャは書いてません。
【28025】Re:コンボボックスの値が見えない
発言  ichinose  - 05/8/26(金) 18:18 -
引用なし
パスワード
   SE菊地 さん、Jaka さん、こんばんは。
>プロシージャを書き出してみますと
最初にこのコードを提示して下さい。
どこに貼り付けたコンボボックスなのかもわかりませんから・・・。

>
>Private Sub UserForm_Initialize()
　　With UserNumberList
　　　.TextColumn = -1
　　　.List = Sheets("人数").Range("B2:B12").value
　　　end with
>
>End Sub

こんなコードにしたらどうでしょうか？
もし、これで正しく表示されるようなら、
TextColumnプロパティに事前に2とか3が指定されていた
と言う事になりますが・・・。
試してみて下さい。
【28210】Re:コンボボックスの値が見えない
お礼  SE菊地  - 05/8/31(水) 9:21 -
引用なし
パスワード
   ▼ichinose さん：
>もし、これで正しく表示されるようなら、
>TextColumnプロパティに事前に2とか3が指定されていた
>と言う事になりますが・・・。
>試してみて下さい。

返事がおそくなり申し訳ありません。
試してみたところできました。

ご指摘の通りTextColumnプロパティに2を入力していました。
あそこは-1じゃないとダメなんですね
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9295 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free