VBAプログラム作成のお世話になったサイト

自分のメモ用 今後も追加予定

セルの分割 ・dengel.exblog.jp

リストボックスの使い方 ・個人的に便利なやりかた ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー Dim ReadRange As String Dim Last_Row As Integer Last_Row = Cells(Rows.Count, "A").End(xlUp).Row ReadRange = "A1:" + Cells(Last_Row, 4).Address(False, False) With Me.ListBox1 .ColumnCount = 4 .List = Range(ReadRange).Value End With ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー Last_RowはA列最後の値を読みこむために宣言している ColumnCountは列の数