|
With ListView1
For i = 1 To .ListItems.Count
'If .ListItems(i).Selected Then
If .ListItems(i).Checked Then
MyItem = MyItem & .ListItems(i).Text & " : " & _
.ListItems(i).ListSubItems(2).Text & vbLf
.ListItems(i).ListSubItems(2).Text = TextBox1.Value
Cells(i, 4).Value = TextBox1.Value
End If
'End If
Next i
End With
MsgBox Left(MyItem, Len(MyItem) - 1)
> For i = 4 To Range("A" & Rows.Count).End(xlUp).Row
> With ListView1
> With .ListItems.Add
> .Text = Range("A" & i).Value
> .SubItems(1) = Range("F" & i).Value
> .SubItems(2) = Range("G" & i).Value
> End With
> End With
> Next i
↓
With ListView1
For i = 4 To Range("A" & Rows.Count).End(xlUp).Row
With .ListItems.Add
.Text = Range("A" & i).Value
.SubItems(1) = Range("F" & i).Value
.SubItems(2) = Range("G" & i).Value
End With
Next
End With
|
|