ユーザーフォームにコンボボックスが複数あります。
その内の3つについては、同一のリストを設定します。
リストの個数は30個ぐらいで、できればセルを使用
したくありません。
下記を3回記述するよりも短くしたいのですが、どのよ
うな方法がありますでしょうか?
現状では、ComboBox1、4、6ですが、連番にする必要が
あれば、変更可能です。
With ComboBox1
.Clear
.AddItem "いくら"
.AddItem "たこ"
.AddItem "まぐろ"
・・・
End With
お手数ですがよろしくお願いします。
No.3
- 回答日時:
こんにちは。
>下記を3回記述するよりも短くしたいのですが、どのよ
>うな方法がありますでしょうか?
例えば、このようにすれば入りますが、ただ、ご質問の趣旨に、なんといっていいのか、分からなくなります。自分のスキルの範囲内で、結果オーライだと思います。それでは、いけないのでしょうかしらね。(^^;自分に置き換えて考えてみると、そう思ってしまいました。
Dim MyLists As Variant
Const MYLIST = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,Y,Z"
MyLists = Split(MYLIST, ",")
Me.ComboBox1.List = MyLists
No.2
- 回答日時:
For i = 1 To 3
With Controls("ComboBox" & i)
.Clear
.AddItem "いくら"
.AddItem "たこ"
.AddItem "まぐろ"
・・・
End With
Next
参考:
http://www.h3.dion.ne.jp/~sakatsu/Breakthrough_P …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォームに2つのコンボボックス銀行名「ConboBox1」支店名を「ConboBox2」とし 4 2022/08/03 17:34
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) VBAユーザーフォームの複数のコンボボックスについて。 1 2022/04/25 08:13
- Visual Basic(VBA) ListBox1をClickしたときのイベント 5 2022/12/11 19:45
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Visual Basic(VBA) リストボックス セルの値を取得する 1 2022/05/21 20:47
- その他(データベース) Microsoft Accessについて 1 2022/06/06 16:20
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/06/15 14:11
- Visual Basic(VBA) フォーム上のリストボックスに重複して表示しています 3 2022/10/19 11:55
- Visual Basic(VBA) VBAチェックボックスで有効無効切り替えできるように 5 2022/10/21 16:13
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
【Excel VBA】コンボボックスで選択した値の取得
Excel(エクセル)
-
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
ExcelVBAでテキストボックスの表示形式を小数点第二位まで表示する方法
Visual Basic(VBA)
-
-
4
同じコンボボックスを二つ以上作る方法
Visual Basic(VBA)
-
5
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
6
TextBoxから数字が文字として入力される?
Visual Basic(VBA)
-
7
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
8
コンボボックスにリストが表示されません・・・
Excel(エクセル)
-
9
コンボボックス内の文字サイズ変更
Excel(エクセル)
-
10
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
11
VBA コンボボックスで選んだ値を取得するには
その他(Microsoft Office)
-
12
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
13
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
-
14
ユーザーフォーム、コンボボックスで重複せず選択リストを表示させるには
Excel(エクセル)
-
15
ユーザーフォーム 3つのコンボボックスの連動について教えてください。
Excel(エクセル)
-
16
VBAコンボボックスで選択した値をシートに転記したい
Visual Basic(VBA)
-
17
VBAのフォームでTextBoxがいっぱいある時
Access(アクセス)
-
18
[エクセルVBA] コンボボックスのリストの更新方法について
Excel(エクセル)
-
19
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
20
コンボボックス3つを連動させたい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
CPU/I7 14700k GPU.4070tiSUPER...
-
皆さん、夏のボーナス(額面)...
-
学生のちんこの写真が沢山載っ...
-
テリアのカートンはいくらです...
-
洗脳された事がありますか?
-
エクセルVBA ユーザーフォーム ...
-
スマホアプリで100万ダウンロー...
-
奥の細道について
-
値段を知りたいです時の訪ね方...
-
渋川駅から足利駅迄のタクシー...
-
北海道旭川市
-
在日外国人との出会い方どうす...
-
お金出すから会いに来て って言...
-
50年前の250万円
-
奈良公園のしかせんべい
-
羽生結弦は結婚相手を明かさな...
-
マルシンのエンフィールドリボ...
-
歯科矯正で最初にかかるお金っ...
-
鉄道のメダルと大阪万博のメダル
-
ピアスについて。 ポストが16ゲ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テリアのカートンはいくらです...
-
学生のちんこの写真が沢山載っ...
-
このキャップはいくらぐらいで...
-
値段を知りたいです時の訪ね方...
-
路上ライブをしてみたい素人で...
-
−4の2乗は、いくら?
-
ビックリマン チョコ シールに...
-
皆さん、LINEスタンプに年間お...
-
10キロのコメの標準ラインで安...
-
値入れ計算
-
50年前の250万円
-
1人暮らしされてる方へ 月食費...
-
エクセルVBA ユーザーフォーム ...
-
お金出すから会いに来て って言...
-
羽生結弦は結婚相手を明かさな...
-
台湾産の煙草[阿里山](ALIS...
-
修理費について
-
大垣共立銀行
-
セカンドストリートでビジネス...
-
石の移動費用
おすすめ情報