|
▼Jaka さん:
アドバイスありがとうございました
listviewにテキストボックスの値を入替えることができました
一つききたいのですが、
リストに反映させる場合は、やはり、一から対称アイテムの行を検索して、
値を入力させるといった形になるのでしょうか?
そういうやり方しかないのでしょうか?
毎回、チェックしたアイテムを一つ一つ探しにいって、値を代入させるのは、時間もかかりそうで・・・
> 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
'↓このような形で対象アイテムの行を探しています
For q = 4 to Range("A"& Rows.Count).End(xlup).Row)
If .ListItems(i).Text=Cells(q,"A").Value Then
Cells(q,"G").Value=.ListItems(i).Text
Exit for
End If
Next q
> 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
|
|