
はじめまして。Excel2000でアンケートシートを作りたいと思っています。
その回答をコンボボックスから選ぶようにしたいのですが、「違う質問だけど同じ選択肢」というのがたくさんあるので簡潔にしたいのです。
このサイト等ネットで調べるとコントロールに変数を持たせる方法として
Control(ComboBox & i)とか
Me(ComboBox & i)
というのを目にしましたが、どちらもこの状態には該当しないのかうまくいきませんでした。
コンボボックスごとにソースを作るしかないのでしょうか?
理想としてはforループでコンボボックスの回数だけ回して、if文でComboBox1と3と4と7には○○○、2と5と6には△△△を表示するようにできたらいいなぁと思っています。
(あくまで理想のソースです。)
For i = 1 To 30
If i = 1 Or 3 Or 4 Or 7 Then
With ComboBox & i(←ここが知りたいです☆)
.Clear
.AddItem "非常に重要"
.AddItem "重要"
.AddItem "少し重要"
.AddItem "重要ではない"
End With
ElseIf i = 2 Or 5 Or 6 Then
With ComboBox & i(←ここが知りたいです☆)
.Clear
.AddItem "はい"
.AddItem "いいえ"
End With
End If
Next i
いかがでしょうか?☆部分をどうにかすることで解決するのでしょうか?他に方法があったらぜひご教示ください。
そもそもコンボボックスの作り方にも自信がありません。
以前に少しだけVBを経験してますが、ほぼ初心者です。
よろしくお願い致します。
No.2ベストアンサー
- 回答日時:
シート上のコントロールはちょと扱いが違うところがあります。
「新しいブック」で以下をお試しください。
●Sheet1 に ComboBox を5個配置
●Sheet2 にComboBox表示用リストを作成
A1:A4 に "非常に重要"、 "重要"、 "少し重要"、"重要ではない"
B1:B2 に ”はい"、"いいえ"
そして次のコードを「標準モジュール」にコピペし、実行。
------------------------------------------------
Sub Test()
Dim i As Integer
For i = 1 To 5
With Sheets("Sheet1").OLEObjects("ComboBox" & i)
Select Case i
Case 1, 3, 5
.ListFillRange = "Sheet2!A1:A4"
Case Else
.ListFillRange = "Sheet2!B1:B2"
End Select
End With
Next i
End Sub
---------------------------------------------
尚、本番ではこのコードは、
ThisWorkbookモジュールの、WorkBook_Openイベントで実行することは、言うまでもありません。
以上です。
onlyrom様
ご丁寧な説明ありがとうございます。
こんなやり方があるとは初めて知り、勉強になりました!!
テストしてみましたが、できました☆☆☆
本番でも活用したいと思います。
また何かありましたらよろしくお願い致します。
No.1
- 回答日時:
>Control(ComboBox & i)
疑似コントロール配列という方法です。
VBAではVBのようなコントロール配列が使えないので、このような方法になります。
>With ComboBox & i
と指定してもコントロールの指定はできません。
With Control("ComboBox" & i)
のように、Control("オブジェクト名") でコントロールが認識されるようになります。
http://www.h3.dion.ne.jp/~sakatsu/Breakthrough_P …
hana-hana3様
ご丁寧に説明いただきありがとうございます!!
早速実践してみたところ、
Controlのところでコンパイルエラーが出て、
SubまたはFunctionが定義されていません。
と言われます。
フォームを作ってないからできないのでしょうか?
(現在はシートに直接コンボボックスを貼ってます)
もし、そうだとしたらフォームを作ってないと
擬似コントロール配列は使えないのでしょうか?
ご教示いただければ幸いです♪
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
プログラミングを学べる!?進化している子どものおもちゃについて専門家に聞いた!
プログラミングを学べるレゴブロックがあることはご存知だろうか。レゴに限らず最近のおもちゃには、プログラミングの要素がどんどん取り入れられているようだ。「教えて!goo」にも、「プログラミングを学べる子供...
-
弁護士が解説!あなたの声を行政に届ける「パブリックコメント」制度のすべて
社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
'ckbl' コントロールは作成され...
-
Excel VBA で Richtextboxを使...
-
VBAでドラッグ・アンド・ドロップ
-
エクセルVBAでオプションボタン...
-
OCXって何ですか?
-
vb.netで画面のコントロールId...
-
C#で角が丸いテキストボックス
-
普段から!感情コントロールでき...
-
VBA ユーザーフォームの Keypre...
-
サーバー上のブックを開けない...
-
現代文読解力開発講座の問題です。
-
間違えて配置してしまったコン...
-
エクセル・VBA CheckBoxのオブ...
-
アクセス特有の書き方?
-
fpSpreadコントロール ライセ...
-
変数をコントロール型で使用す...
-
VBAのエラーについて、”実行時...
-
ExcelにてListviewが表示できない
-
コントロールを移動できない
-
VB6のユーザーコントロールの受...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAでオプションボタン...
-
エクセル・VBA CheckBoxのオブ...
-
カメラスクロールするのを動画...
-
EXCELでactivexコントロールを...
-
VBA ユーザーフォームの Keypre...
-
'ckbl' コントロールは作成され...
-
ExcelVBAでListViewが使用できない
-
チェックボックスをオンにした...
-
ユーザーフォームで動的(Me.Con...
-
chr関数の呼び出しで「プロ...
-
全てのオブジェクトのプロパテ...
-
vb.netで画面のコントロールId...
-
間違えて配置してしまったコン...
-
Excel VBA で Richtextboxを使...
-
VBAのフォームでTextBoxがいっ...
-
OCXって何ですか?
-
C# Form上に配置されたコントロ...
-
エクセル コントロールツール...
-
変数をコントロール型で使用す...
-
Groupboxの配下のコントロール...
おすすめ情報