VBA初心者です。VBAでユーザーフォーム1を作成し、それぞれ「日報」というシートに張り付けることには成功しておりますが、「事業所名」を選択後、「管理番号」「施設名」のコンボボックスで検索、連動がうまくいきません。コンボボックス3「事業所名」で.AddItem "第1事業部".AddItem "第2事業部"他3事業所名と設定し、シート名「全施設」より、コンボボックス4「管理番号」(B2:B2000)で検索、同じくシート名「全施設」でコンボボックス5「施設名」(C2:C2000)を検索連動がうまくいきません。いろいろと検索して、設定しても思ったように出来ませんでした。アドバイスをよろしくお願い致します。
No.3ベストアンサー
- 回答日時:
No.2です。
細かい検証をしていませんでした。
コンボボックス4のコードを変更してください。
Private Sub ComboBox4_Change()
ComboBox5.Clear
Set myDic = CreateObject("Scripting.Dictionary")
With Worksheets("全施設")
lastRow = .Cells(Rows.Count, "A").End(xlUp).Row
myR = Range(.Cells(2, "A"), .Cells(lastRow, "C"))
For i = 1 To UBound(myR, 1)
If myR(i, 1) = ComboBox3 And myR(i, 2) = ComboBox4 Then
myStr = ComboBox3 & "_" & ComboBox4 & "_" & myR(i, 3)
If Not myDic.exists(myStr) Then
myDic.Add myStr, ""
End If
End If
Next i
End With
myKey = myDic.keys
For i = 0 To UBound(myKey)
myAry = Split(myKey(i), "_")
ComboBox5.AddItem myAry(2)
Next i
Set myDic = Nothing
End Sub
※ 前回のコードでは不要なものまで表示されてしまいました。
※ 前回書き忘れましたが、
コンボボックス3 → コンボボックス4 → コンボボックス5 の順での選択としています。
どうも失礼しました。m(_ _)m
ありがとうございます!思い通りに出来ました‼初心者の私に優しく対応してくださり本当に感謝いたします。またわからないことがありましたら、お力添えをお願いしたく思います。重ねてお礼申し上げます。
No.2
- 回答日時:
こんにちは!
コンボボックス3~5だけの処理で良いのですね。
一例です。
尚、お示しの上側の画像のようにコンボボックス3~5に表示するデータは「全施設」シートのA~C列にあるものとします。
Dim myDic As Object
Dim i As Long, lastRow As Long
Dim myStr As String
Dim myKey, myItem, myR, myAry
Private Sub UserForm_Initialize()
'//コンボボックス3~5以外の処理 ←すでに出来ているものとする//
'//▼ココから処理//
ComboBox3.Clear
ComboBox4.Clear
ComboBox5.Clear
Set myDic = CreateObject("Scripting.Dictionary")
With Worksheets("全施設")
lastRow = .Cells(Rows.Count, "A").End(xlUp).Row
myR = Range(.Cells(2, "A"), .Cells(lastRow, "A"))
For i = 1 To UBound(myR, 1)
If Not myDic.exists(myR(i, 1)) Then
myDic.Add myR(i, 1), ""
End If
Next i
End With
myKey = myDic.keys
For i = 0 To UBound(myKey)
ComboBox3.AddItem myKey(i)
Next i
Set myDic = Nothing
End Sub
Private Sub ComboBox3_Change()
ComboBox4.Clear
ComboBox5.Clear
Set myDic = CreateObject("Scripting.Dictionary")
With Worksheets("全施設")
lastRow = .Cells(Rows.Count, "A").End(xlUp).Row
myR = Range(.Cells(2, "A"), .Cells(lastRow, "B"))
For i = 1 To UBound(myR, 1)
If myR(i, 1) = ComboBox3 Then
If Not myDic.exists(myR(i, 2)) Then
myDic.Add myR(i, 2), ""
End If
End If
Next i
End With
myKey = myDic.keys
For i = 0 To UBound(myKey)
ComboBox4.AddItem myKey(i)
Next i
Set myDic = Nothing
End Sub
Private Sub ComboBox4_Change()
ComboBox5.Clear
Set myDic = CreateObject("Scripting.Dictionary")
With Worksheets("全施設")
lastRow = .Cells(Rows.Count, "A").End(xlUp).Row
myR = Range(.Cells(2, "A"), .Cells(lastRow, "C"))
For i = 1 To UBound(myR, 1)
myStr = myR(i, 1) & "_" & myR(i, 2) & "_" & myR(i, 3)
If Not myDic.exists(myStr) Then
myDic.Add myStr, ""
End If
Next i
End With
myKey = myDic.keys
For i = 0 To UBound(myKey)
myAry = Split(myKey(i), "_")
ComboBox5.AddItem myAry(2)
Next i
Set myDic = Nothing
End Sub
こんな感じでどうなりますか?m(_ _)m
No.1
- 回答日時:
まぁ15年位前からこのような質問はあって解説サイトも増えてきてますが、もしまだご覧になってないなら一度試されては?
Excel VBA 複数(3つ以上)のコンボボックスに連動するリストを登録する
https://officedic.com/excel-vba-howto-combobox-3 …
ご連絡ありがとうございます。お知らせくださいましたサイトは真っ先に見たのですが、自分で作成したテキスト1からコンボボックス2迄のコードにプラスしてどうしたら続けられるのか、初心者には考えが至らず皆様のお力添えにすがってしまいました。いきなり皆様にお伺いするのは失礼と思い、上記サイトの他もさんざん見て、試してみてやっぱりうまくいかず、最後の最後にお願いに参りました。自力で何とかしようとした事だけはご理解ください。また困ったことがありましたら、ご教示くださいますようお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 2つ目のコンボボックスが動作しません。 3 2023/03/25 12:29
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Access(アクセス) Accessで予定表を作成しようとしてます。 テーブル フィールド名 連番 オートナンバー型 年月日 2 2023/07/23 11:40
- Access(アクセス) Accessフォーム 一部のレコードだけを抽出する方法について 1 2022/06/28 18:45
- Access(アクセス) Accessの参照フィールドの列がずれてしまいます 1 2023/07/19 15:00
- その他(データベース) Excel VBA 転記について 1 2022/04/20 16:55
- Excel(エクセル) VLOOKUP が機能しない、その原因は何 ? 8 2022/10/19 12:06
- Visual Basic(VBA) VBA 改行コードの取り方 1 2022/03/22 14:14
- SQL Server DBのテーブルの設計ができず困っています。 2 2023/06/29 16:43
- その他(プログラミング・Web制作) google formsを使ったタスク依頼フォーム作成におけるご相談 1 2023/06/22 15:55
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
コンボボックス3つを連動させたい
Visual Basic(VBA)
-
エクセルVBA ユーザーフォームのTextBoxを日付にしたい
Excel(エクセル)
-
【VBA】【ユーザーフォーム_ListBox】オートフィルタで絞りこんだ値だけを取り出したい
Visual Basic(VBA)
-
-
4
エクセルVBA ユーザーフォーム 複数のコンボボックス 同一リスト
Excel(エクセル)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
VBA コンボボックスとテキストボックスを連結させたい
Visual Basic(VBA)
-
7
ACCESSのコンボボックスで入力した値がTABLEに反映されずに数字がでます
Access(アクセス)
-
8
コンボボックスにリストが表示されません・・・
Excel(エクセル)
-
9
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
10
EXCEL VBA コンボボックス、テキストボックスが未入力のときメッセージを表示する方法
Excel(エクセル)
-
11
コンボボックスの文字によるif文の作成
Visual Basic(VBA)
-
12
VBA コンボボックスで選んだ値を取得するには
その他(Microsoft Office)
-
13
エクセルVBAでUserFormを起動した時
Excel(エクセル)
-
14
Excelにて、ユーザーフォームで、日付けの範囲を指定し、検索しデーターを抽出し 別シートへ転記した
Excel(エクセル)
-
15
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
-
16
VBAでユーザーフォームを再表示させたい。
Excel(エクセル)
-
17
入力した値をコンボボックスにすぐに反映させる方法
Excel(エクセル)
-
18
Accessのコンボボックスの値が消える
Excel(エクセル)
-
19
フォームのテキストボックスの値をコピーしたい
Excel(エクセル)
-
20
ExcelVBA コンボボックスに入力があったらリンクしてテキストボックスを更新したい
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
子供を手放すには?
-
18歳未満の深夜外出について 静...
-
浄水場近くの物件
-
運動音痴なのにすごいスポッチ...
-
IABP インターナルトリガーに...
-
母子支援施設と生活保護について
-
無料で泊まれる国の施設を探し...
-
卒論について(高齢者福祉を専...
-
福祉施設を建てたら地価 価値...
-
親戚の家をタライ回しにされ、...
-
親権者変更と養育費の調停に関して
-
知的障害児施設での個別支援計...
-
無料で土地を貸す場合契約書は...
-
ショートステイ施設で、職員が...
-
至急!施設見学の服装
-
雇用なき成長を打開するために...
-
「ハコ物(またはハコもの)」の...
-
老人ホーム、老健施設の協会っ...
-
知的障害児施設で働いていらっ...
-
身よりのない無収入の老人は?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
子供を手放すには?
-
18歳未満の深夜外出について 静...
-
浄水場近くの物件
-
デイサービスでのDVD鑑賞は著作...
-
施設名と法人名
-
NPO法人きずなの会についての質...
-
IABP インターナルトリガーに...
-
無料で泊まれる国の施設を探し...
-
運動音痴なのにすごいスポッチ...
-
自衛隊の庁隊舎とはなんですか?
-
ユーザーフォーム 3つのコンボ...
-
親戚の家をタライ回しにされ、...
-
アスレチック建設費
-
乳児院や児童福祉施設で保護し...
-
かみさり方式とセントラルキッ...
-
屋上ヘリポートのHとRについて
-
精神障害者の収容施設を教えて...
-
施設の重要事項等の掲示でスマ...
-
オムツを一般ごみとして出して...
-
施設等利用費交付申請書につい...
おすすめ情報
作成したユーザーフォームです。
日報の画像です。