|
▼KUMA さん:
おはようございます。
ListBox(ComboBox)のメンバ登録の方法って、投稿する方法以外にもいくつかあります。
どれが良いかは、ケースバイケースですから
過去ログ等やHELPを調べて使い方を覚えてください
> Dim R As Long
> For R = 1 To 10
> ListBox1.AddItem Cells(R, 1)
> Next R
↑投稿されたようにAdditemを使う方法もありますね
Sub set_listbox()
ListBox1.List = Range("a1:a10").Value
End Sub
他にもこんな方法もあります
逆は、
Sub restore_listbox()
Range("b1:b10").Value = ListBox1.List
End Sub
>また同様にLISTBOX内の選択した1つの値のみシートに表示させるにはどのようにしたらよろしいでしょうか
これは、
Sub select_value()
With ListBox1
If .ListIndex >= 0 Then Range("c1").Value = .List(.ListIndex)
End With
End Sub
こんな方法が考えられます。
|
|