Excel VBA質問箱 IV

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

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


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

【16927】コンボボックスのリストを可変長に設定 はっしー 04/8/16(月) 16:31 質問[未読]
【16928】Re:コンボボックスのリストを可変長に設定 IROC 04/8/16(月) 17:03 回答[未読]
【16930】Re:コンボボックスのリストを可変長に設定 はっしー 04/8/16(月) 17:26 発言[未読]
【16931】Re:コンボボックスのリストを可変長に設定 IROC 04/8/16(月) 17:34 回答[未読]
【16934】Re:コンボボックスのリストを可変長に設定 はっしー 04/8/16(月) 17:54 お礼[未読]

【16927】コンボボックスのリストを可変長に設定
質問  はっしー  - 04/8/16(月) 16:31 -

引用なし
パスワード
   いつもお世話になっております m(_ _)m。

VBAでアンケートと集計ができるようなモノをめざしています。
状態として、
シートのセルにひとつづつ質問項目を入力しています。
10の質問事項があればA列の10行まで使います。

この問題をコンボボックスで選択したいと考えております。
問題数が10問だった場合はリストには1〜10の数字がはいり、その中から選択できるようにします。
15問だった場合は15までの数字が入ります。この問題数はその時によって変わります。
また、シートを隠している都合上のようですが、セルをselectしたりシートをactivteにしたりはできません。

この条件で、どのようにしたら実現できるのか、どなたかご教示のほどよろしくお願いします。

ちなみに私の書いたコードは以下の通りです(いろいろとエラーが起こりますが)。


mondaisuu '問題数を格納している変数、すでに問題の数は取得済み
multiintl1 'カウンター
cmbkaitou 'オブジェクト、コンボボックス

multiintl1 = 0
For multiintl1 = 1 To mondaisuu
  cmbkaitou.List(multiintl1) = multiintl1
Next

→これはエラーになります。
配列のインデックスが不正だそうです。

どなたかよろしくお願いいたします(m;_ _)m。

【16928】Re:コンボボックスのリストを可変長に設定
回答  IROC  - 04/8/16(月) 17:03 -

引用なし
パスワード
   何のコンボボックスですか? (EXCELには3種類あります)

【16930】Re:コンボボックスのリストを可変長に設定
発言  はっしー  - 04/8/16(月) 17:26 -

引用なし
パスワード
   >IROC様
ユーザーフォームのうえにツールボックスから配置するオブジェクトです。

【16931】Re:コンボボックスのリストを可変長に設定
回答  IROC  - 04/8/16(月) 17:34 -

引用なし
パスワード
   Private Sub UserForm_Initialize()
Dim r As Long
  r = Worksheets("Sheet1").Range("A65536").End(xlUp).Row
  ComboBox1.RowSource = "Sheet1!A1:A" & r
End Sub

かな?

【16934】Re:コンボボックスのリストを可変長に設定
お礼  はっしー  - 04/8/16(月) 17:54 -

引用なし
パスワード
   IROC様、ありがとうございました。
完璧でございます。

そうですかー、Rowsourceプロパティーで可変長の指定もさらことながら、シートの指定ができるのですねー。
目からウロコでございました。
ありがとうございます m(_ _)m。

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