この質問に答える前に、私は何時間にもわたって広範囲に検索したと言うことから始めましょう.
状況 (すべて動作中) -
ユーザーは、バスケット内のリンゴの数を指定します
例 - ユーザーはリンゴ 2 個を指定します。これにより、コンボボックスとテキストボックスを含むマルチページ内に 2 つのページが作成されます。
コンボボックスには、リンゴの名前のデータベースが取り込まれています。ユーザーはいずれかを選択します。
希望:
ユーザーがコンボボックスからリンゴを選択すると、そのマルチページのテキストボックスにリンゴの特性を入力したいと思います。つまり、ユーザーがこのコンボボックスからリンゴを選択するたびにコードを起動する必要があります。これはツールバーから作成されたコンボボックスではないので、「プライベート サブ Combobox_Change」を使用できないようです。
以下は、コンボボックスを作成するために使用するコードです。
Set ComboBoxL = MultiPage1.Pages(pgCount).Controls.Add("Forms.combobox.1", _
"ComboBoxL" & pgCount)
With ComboBoxL
.Top = 1 * FromTop
.Left = LeftDist
.List = Sheets("TestLightList").Range("A1:A100").Value
これは、値をテキストボックスにプルするために使用するコードです。テストでは機能しますが (コードの別の部分で実行するだけです)、必要なときに機能しません。上のコンボボックスから項目を選択します
userform2!textboxC1.Value = Application.index(Range("'TestLightList'!$A$2:$E$500"), _
Application.Match(userform2!ComboBoxL1.Value, Range( _
"'TestLightList'!$A$2:$A$500"), 0), 2)
- このコードのスニピットでは、最初のコンボボックスで作業していることに注意してください。数式は、一連のそれらを番号順に作成します。
ありがとうございました！