|
いつもお世話になっております 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。
|
|