いつもお世話になっております。
ComboBox1 を選択したら
ListBox1 の値を表示させたい
ComboBox1
2019
2020
をどちらか選択したら
ListBox1
条件1
2019
2019/4/1
2019/5/1
2019/6/1
条件2
ListBox1
2020
2020/4/1
2020/5/1
2020/6/1
わたしがここまで作りました。
あともう少しなんですが。
よろしくお願いいたします。
ComboBox1_ChangeしたときListBox1をクリアにしたい
おしえてくれませんでしょうか
画像添付あります。
Select Case でおしえてくれませんでしょうか
Private Sub ComboBox1_Change()
i = Cells(Rows.Count, 2).End(xlUp).Row
If ComboBox1.Value = "2019" Then
For x = 7 To i
ListBox1.AddItem Range("B" & x).Value
Next
Else
For x = 7 To i
ListBox1.AddItem Range("C" & x).Value
Next
End If
End Sub
Private Sub UserForm_Initialize()
Dim i As Long
With ComboBox1
.AddItem "2019"
.AddItem "2020"
End With
End Sub
No.1ベストアンサー
- 回答日時:
Private Sub ComboBox1_Change()
Dim i As Long, x As Long
Dim rst As String
ListBox1.Clear
i = Cells(Rows.Count, 2).End(xlUp).Row
Select Case ComboBox1.Value
Case "2019": rst = "B"
Case "2020": rst = "C"
End Select
For x = 7 To i
ListBox1.AddItem Range(rst & x).Value
Next
End Sub
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "2019"
.AddItem "2020"
End With
End Sub
こんなかな?
いつもお世話になっております。
めぐみん様のとおり自分で考えて
どうしてものとき質問致します
ここまで、やれるわたしにびっくりです。
なんとなくこうやればいいのかなというかんじです。
ありがとうございました
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テキストボックスのvalueとtext...
-
VB初心者。小数点以下の表示で...
-
マクロ 特定のセル値のみクリ...
-
VBA(自然数)
-
VB.NETでコンボボックスの1行目...
-
値を返さないコード パス
-
ReportViewerでのパラメータ設定
-
[VBA]選択範囲の下から上に処理...
-
リソースの値を変数で取得
-
VBプログラム エラーが出ます
-
VBでBtrieveファイルにアクセス...
-
テキストボックスの設定。
-
変数に代入してある数値を表示...
-
CascadingDropDownの値取得方法
-
VBA 違うシートにコピペしてソ...
-
プログラム
-
vb6のVSFlexGridで選択行、列の...
-
代入したのに値が更新されない...
-
Excel vba ユーザーフォームテ...
-
【C++/CLI.NET】コンボボックス...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テキストボックスのvalueとtext...
-
値を返さないコード パス
-
マクロ 特定のセル値のみクリ...
-
VB.NETでコンボボックスの1行目...
-
VB初心者。小数点以下の表示で...
-
PL/SQLでのTO_DATEの時間取得に...
-
VB.NETでアクティブなformを知...
-
Excel vba ユーザーフォームテ...
-
Excel VBA 複数選択したリスト...
-
ISDBNULLをスルーしてDBNULLが...
-
変数名の取得
-
setcookieで「path」に複数の値...
-
C#の質問です
-
変数に代入してある数値を表示...
-
マクロで奇数と偶数の値を2か所...
-
Excel VBAのリストボックスの値...
-
windowsアプリケーションで小数...
-
Powershellのparamについて
-
[VB.net] DataGridViewのコンボ...
-
【C++/CLI.NET】コンボボックス...
おすすめ情報
Select Case ComboBox1.Value
Case 2019
For x = 7 To i
ListBox1.AddItem Range("B" & x).Value
Next
Case 2020
For x = 7 To i
ListBox1.AddItem Range("C" & x).Value
Next
End Select
ここまでいきましたが、表示されるのが
ともに2019/5/1
つぎに2020を選ぶと2020/1/5
ひとつだけです。
しかもクリアしていなので、
2019/5/1
2020/1/5
表示されてしまいます。
申し訳ございませんできました。
ComboBox1 change
したときクリアする方法おしえてくれませんでしょうか
ListBox1.clearでうまくいきました。
わたしがつくったのですが動作は問題ないと思いますが、
心配なのでよろしいでしょうか。
Private Sub ComboBox1_Change()
ListBox1.Clear
Select Case ComboBox1.Value
Case 2019
With ListBox1
.AddItem "2019/04/01"
.AddItem "2019/05/01"
.AddItem "2019/06/01"
End With
Case 2020
With ListBox1
.AddItem "2020/04/01"
.AddItem "2020/05/01"
.AddItem "2020/06/01"
End With
End Select
End Sub
2回にわけます。入力文字数の制限があるため
Private Sub ComboBox1_Change()
ListBox1.Clear
Select Case ComboBox1.Value
Case 2019
With ListBox1
.AddItem "2019/04/01"
.AddItem "2019/05/01"
.AddItem "2019/06/01"
End With
Case 2020
With ListBox1
.AddItem "2020/04/01"
.AddItem "2020/05/01"
.AddItem "2020/06/01"
End With
End Select
End Sub
わたしこちらでなんとかいきました。
問題ないでしょうか。