Q&A
アクティブフォームのコンボボックスと別フォームのコンボボックスに同じ内容を定義します。
| ID | 名称 |
|---|---|
| 1 | AAA |
| 2 | BBB |
| 3 | CCC |
アクティブフォームの2番目の'BBB'が選択されたとして、別フォームのコンボボックスの'BBB'が選択されたようにする方法があればご教示願います。
回答2件
0
ベストアンサー
アクティブフォームのコンボボックス名 CmbA
別フォーム名 FormB
コンボボックス名 cmbB の
として、
CmbA のドロップダウンリストから2番目の'BBB'を選択したときに，
FormB の CmbB も 'BBB' が選択される、つまり、CmbA と CmbB は同じ値になる、
ということと理解しましたがあってますか。
もし、そうなら CmbA の更新後処理を下記のように記述すればいいでしょう。
vba
1Private Sub cmbA_AfterUpdate() 2 3 Forms!FormB!CmbB.Value = Me.cmbA.Value 4 5End Sub
投稿2019/04/13 00:25
編集2019/04/13 00:27
総合スコア33699
0
例えばですが、アクティブフォームの「BBB」コンボボックスの「フォーカス取得時」のイベントに、以降のように書くのはダメなんでしょうか？
そういう話でよかったんでしょうか？
（古い書き方かもしれませんが、フォーム名などに変数が使えるのとExcel連携の時に書き方＝見え方を統一できるので、僕はいつもこの書き方をしています。）
VBA
1 2 Forms("別フォームの名前")("BBB").SetFocus 3 4 5 'ついでに２つめのフォームをアクティブにしたい場合は 6 '以下の行のコメントアウトをはずします。 7 8' Forms("別フォームの名前").SetFocus
もちろん、以下のように書いてもOKです。（こちらが一般的な書き方だと思います。）
VBA
1 Forms!別フォームの名前!BBB.SetFocus 2 3 4 'ついでに２つめのフォームをアクティブにしたい場合は 5 '以下の行のコメントアウトをはずします。 6 7' Forms!別フォームの名前.SetFocus
投稿2019/04/13 00:07
総合スコア94
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2019/04/15 00:17