vbaはリストビューで選択した列のデータを反映します

Question

以下のコードでは、リストビューでデータを追加できますが、すべてのデータをExcelから追加しています。列の中には、リストビューに反映したくない機密データが含まれているものはほとんどありません。リストビュー例：唯一の選択した列のデータを反映させる方法についてのアドバイスをしてください：列A、列C、列F、列G.

wksSource1.Activate 
Set rngData = wksSource1.Range("A1").CurrentRegion 
If II8 = 1 Then 
    For Each rngCell In rngData.Rows(1).Cells 
     Me.ListView4.ColumnHeaders.Add Text:=rngCell.Value, Width:=90 
    Next rngCell 
    II8 = 2 
End If 
RowCount = rngData.Rows.Count 
ColCount = rngData.Columns.Count 
For i = 2 To RowCount 
    Set LstItem = Me.ListView4.ListItems.Add(Text:=rngData(i, 1).Value) 
    For j = 2 To ColCount 
     LstItem.ListSubItems.Add Text:=rngData(i, j).Value 
    Next j 
Next i 

Answer 1

使用この：

dim RangeList$() 
RangeList= VBA.SPLIT( Selection.address, ",") 

==>あなたが使用することができますそれぞれの範囲アドレスはforループ内にあります