シートからのListViewへのやり方
はじめまして、宜しくお願い致します。
シートからのListViewへの読み込みで
早くListViewへ表示させたいのですが
よろしければご教授できればと質問させて
頂きました。
下記のコードは現在利用しているコードです。
Private Sub UserForm_Initialize()
With ListView1
.View = lvwReport
.FullRowSelect = True
.AllowColumnReorder = True
.Gridlines = True
.AllowColumnReorder = True '列幅の変更を許可
.CheckBoxes = True 'チェックボックスの追加
'.ForeColor = vbBlue
.ColumnHeaders.Add , , "NO", 70
.ColumnHeaders.Add , "B", "名前", 100
.ColumnHeaders.Add , "C", "性別", 50
.ColumnHeaders.Add , "D", "血液型", 50
.ColumnHeaders.Add , "F", "生年月日", 100
For i = 4 To Cells(Rows.Count, "B").End(xlUp).Row
Application.ScreenUpdating = False
With .ListItems.Add
.Text = Format(Cells(i, "B"), "0")
'.Text = Right(Space(3) & .Text, 3)
.SubItems(1) = Cells(i, "C")
.SubItems(2) = Cells(i, "D")
.SubItems(3) = Cells(i, "E")
.SubItems(4) = Cells(i, "F")
End With
Next
End With
Application.ScreenUpdating = True
お礼
完璧です。 ありがとうございました。 todo36さんのように、視点を変えて考えてみるというか、 柔軟な頭を持てるようになりたいものです...