お疲れ様です。
Takkoです。
VBAである列にデータが入力されたら動的にコンボボックスに
そのデータを配列として収めたいです。
今のところ
「列にデータ挿入した」をトリガーとしてコンボボックスに配列を挿入する方法がわかっておらず、仮作成の段階になっています。
また、列データを取得する動作はできているのですが、
それをコンボボックスのオブジェクトへの挿入ができていません。
フォーム上のオブジェクトは
=EMBED("Forms.ComboBox.1","")
となっていて、
実装は下記です。
VBA
1 2Private Sub WorkSheet_Change(ByVal Target As Range) 'WorkSheet変更時のイベントを拾いません。 3 If Target.Row >= 6 And Target.Column = 3 Then 4 Call UserForm_Initialize 5 End If 6End Sub 7 8Private Sub UserForm_Initialize() 9 For i = 6 To rowsCount 10 ComboBox1.AddItem Cells(i, 3).Value 'Activexで作成したコントロールですが、オブジェクトが必要ですと表示されます。 11 Next i 12End Sub
実データとしては、C6セルからデータ入力され、
C6~CXXXXまでの行にデータが入っています。
知りたいことを纏めますと、下記二点です。
1.
「セルにデータを入れた」というアクションをトリガーとして、
プロシージャを呼び出し、UserForm_Initialize()を呼び出す方法。
2.
コンボボックスのオブジェクトに選択枝を入れ込む方法
以上、よろしくお願いします。
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。