|
こんにちは。かみちゃん です。
>Sheet1に表示されるフォームの中にコマンドボタンが2つとリストボックスが1つあります。
>参照するデータがSheet2にあり、コマンドボタン1を押すとSheet2のA2から最終入力行
>までのデータをリストボックスに表示。同じようにコマンドボタン2を押すとSheet2のB2から
>最終入力行までのデータをリストボックスに表示させるにはどうしたらよいのでしょうか。
こんな感じになると思います。
Private Sub CommandButton1_Click()
ListBox1.RowSource = "Sheet2!$A$1:" & Sheets("Sheet2").Range("A65536").End(xlUp).Address
End Sub
Private Sub CommandButton2_Click()
ListBox1.RowSource = "Sheet2!$B$1:" & Sheets("Sheet2").Range("B65536").End(xlUp).Address
End Sub
A列の最終入力行までの間に、空白があっても空白として表示してしまいます。
|
|