| |
▼初心 さん：
>▼sin さん：
>>▼初心 さん：
>>>Useform にコンボボックスを作成
>>>ボックス内リストを選ぶと
>>>各マクロが動くようにしたい
>>>
>>>1・リストをどの様にUserformにて
>>> コンボボックスに見せたら良いのか？
>>>2・上記リスト に各マクロを登録するには？
>>>
>>>申し訳ありませんが 教えてください。
>>
>>リストにマクロを登録することはできませんが
>>「ボックス内リストを選ぶと各マクロが動くように」はできます
>>
>>Jaka さんがご紹介されたページの
>>Private Sub CommandButton1_Click()
>>を
>>Private Sub ComboBox1_Change()
>>としてみてください。
>
>有難う御座います
>ただ
>1・リストをどの様にUserformにて
> コンボボックスに見せたら良いのか？
>が 不明で作れないのですが・・
リストはどこか別の場所に格納されているということですか？
たとえばシート１のＡ列にリストがあるとすると、
Private Sub UserForm_Initialize()
Dim i As Long
For i = 1 To Sheets("Sheet1").Range("A65536").End(xlUp).Row
ComboBox1.AddItem Sheets("Sheet1").Cells(i, 1).Value
Next i
End Sub
|
|
sin
- 06/6/20(火) 16:47 -
