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 -
引用なし
パスワード
   一番簡単な方法は、

１．ワークシート上にリストを設定し、その範囲に名前を付ける
２．コンボボックスのプロパティウインドウで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