Excel VBA質問箱 IV

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

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


8500 / 13644 ツリー ←次へ | 前へ→

【32884】コンボのリストが表示できない。 k&k 05/12/26(月) 14:14 質問[未読]
【32887】Re:コンボのリストが表示できない。 Jaka 05/12/26(月) 14:43 回答[未読]
【32889】Re:コンボのリストが表示できない。 k&k 05/12/26(月) 14:56 質問[未読]
【32891】Re:コンボのリストが表示できない。 Kein 05/12/26(月) 15:03 発言[未読]
【32893】Re:コンボのリストが表示できない。 k&k 05/12/26(月) 15:16 質問[未読]
【32896】Re:コンボのリストが表示できない。 Kein 05/12/26(月) 15:40 発言[未読]
【32897】Re:コンボのリストが表示できない。 Jaka 05/12/26(月) 15:41 発言[未読]
【32900】Re:コンボのリストが表示できない。 k&k 05/12/26(月) 16:20 質問[未読]
【32901】Re:コンボのリストが表示できない。 Jaka 05/12/26(月) 17:33 発言[未読]
【32904】Re:コンボのリストが表示できない。 k&k 05/12/26(月) 18:26 お礼[未読]
【32888】Re:コンボのリストが表示できない。 だるま 05/12/26(月) 14:45 回答[未読]

【32884】コンボのリストが表示できない。
質問  k&k  - 05/12/26(月) 14:14 -

引用なし
パスワード
   今日、VBAというものを仕事の関係上、触り始めました。
おもいきり初心者です。

時間がないため、お恥ずかしいですが簡単な質問をさせていただきたい次第です。

今、フォームにコンボを設定したんですが、
コンボのリストが追加できないです。
追加の仕方がわからず、ネット参考書片手に一時間も足踏みしてしまいました。
どうしても今日中に作らなければいけないのに
スタートで躓いています。
お願いです。
教えて下さい。

お願いします。

【32887】Re:コンボのリストが表示できない。
回答  Jaka  - 05/12/26(月) 14:43 -

引用なし
パスワード
   Private Sub UserForm_Initialize()
ComboBox1.List = Sheets("Sheet1").Range("A1:A5").Value
End Sub

Private Sub CommandButton1_Click()
ComboBox1.AddItem Range("A6").Value
End Sub

Private Sub CommandButton2_Click()
ComboBox1.AddItem "あああ"
End Sub

【32888】Re:コンボのリストが表示できない。
回答  だるま WEB  - 05/12/26(月) 14:45 -

引用なし
パスワード
   一番簡単な方法は、

1.ワークシート上にリストを設定し、その範囲に名前を付ける
2.コンボボックスのプロパティウインドウでRowSourceにその名前を書く

です。

もっと細かな制御を必要とするならAddItemメソッドあたりをヘルプで調べて
ください。^d^

【32889】Re:コンボのリストが表示できない。
質問  k&k  - 05/12/26(月) 14:56 -

引用なし
パスワード
   jakaさん ありがとうございました。
以下のadditemでなんどもやってるんですが
なぜか表示されません。
additemで間違いないことはわかりました
ただ、一つ気になることがあります。
実行中に、コンボを開くと、わずかに棒のようなものが
下につららのように出てきます。
アイテムに加えた数が多いほど、つららが長くなります。
何かがおかしくて表示されないと思われるのですが
明らかに現在の私では解決不能です。
(あせってるので特に。。。)

大変おそれいりますが、なにかアドバイスが頂戴できれば幸いです。


▼Jaka さん:
>Private Sub UserForm_Initialize()
>ComboBox1.List = Sheets("Sheet1").Range("A1:A5").Value
>End Sub
>
>Private Sub CommandButton1_Click()
>ComboBox1.AddItem Range("A6").Value
>End Sub
>
>Private Sub CommandButton2_Click()
>ComboBox1.AddItem "あああ"
>End Sub

【32891】Re:コンボのリストが表示できない。
発言  Kein  - 05/12/26(月) 15:03 -

引用なし
パスワード
   もしかしたら、ColumnWidthsプロパティで 0 の設定をしてしまっているかも
知れませんね。選択してプロパティの値を調べてみて、適当な値を再入力するか、
値を空白にしてみて下さい。

【32893】Re:コンボのリストが表示できない。
質問  k&k  - 05/12/26(月) 15:16 -

引用なし
パスワード
   返答ありがとうございます。

ColumnWidthsプロパティは空欄になっています。
適当に10とか100とか入れても変わりません。
ようするに、リストが細くなってしまっているだけという事でしょうか?
なんだか、すごくつまらないことでパニックになっている気がする。。。
なにか可能性は他にありませんでしょうか?
まわりの先輩方もわからないとの事。。。
すみません。


▼Kein さん:
>もしかしたら、ColumnWidthsプロパティで 0 の設定をしてしまっているかも
>知れませんね。選択してプロパティの値を調べてみて、適当な値を再入力するか、
>値を空白にしてみて下さい。

【32896】Re:コンボのリストが表示できない。
発言  Kein  - 05/12/26(月) 15:40 -

引用なし
パスワード
   一度そのコンボボックスを削除して、再度、配置し直してもダメでしょーか ?

【32897】Re:コンボのリストが表示できない。
発言  Jaka  - 05/12/26(月) 15:41 -

引用なし
パスワード
   ここ見て確認してみてください。

[#28016]

【32900】Re:コンボのリストが表示できない。
質問  k&k  - 05/12/26(月) 16:20 -

引用なし
パスワード
   みなさんありがとうございます。
以下のページも試してみましたが変わりません。
もう一つ不可解なのが、LISTINDEXというプロパティがないんですが
使い方が根本的に間違っている???

▼Jaka さん:
>ここ見て確認してみてください。
>
>[#28016]

【32901】Re:コンボのリストが表示できない。
発言  Jaka  - 05/12/26(月) 17:33 -

引用なし
パスワード
   ▼k&k さん:
>もう一つ不可解なのが、LISTINDEXというプロパティがないんですが
>使い方が根本的に間違っている???
ComboBox1 の次に . と入れると、候補が表示されませんか?
プロパティウインドウには無いです。

【32904】Re:コンボのリストが表示できない。
お礼  k&k  - 05/12/26(月) 18:26 -

引用なし
パスワード
   みなさん、ありがとうございました。
なんだかすごく簡単な事だと思うのに、いまだ解決できずです。
お恥ずかしい限りです。
リミットが明日なので、今日は徹夜でVBAというものを勉強します。

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