Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


14878 / 76734 ←次へ | 前へ→

【67344】Re:List Viewについて
質問  まい  - 10/11/26(金) 14:54 -

引用なし
パスワード
   ▼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

0 hits

【67311】List Viewについて まい 10/11/23(火) 14:24 質問
【67312】Re:List Viewについて まい 10/11/23(火) 15:26 質問
【67315】Re:List Viewについて neptune 10/11/23(火) 21:30 回答
【67329】Re:List Viewについて まい 10/11/25(木) 13:05 質問
【67334】Re:List Viewについて neptune 10/11/25(木) 19:12 発言
【67343】Re:List Viewについて まい 10/11/26(金) 14:33 発言
【67346】Re:List Viewについて neptune 10/11/26(金) 18:19 発言
【67373】Re:List Viewについて まい 10/11/29(月) 10:18 お礼
【67341】Re:List Viewについて Jaka 10/11/26(金) 9:23 発言
【67344】Re:List Viewについて まい 10/11/26(金) 14:54 質問
【67345】Re:List Viewについて Jaka 10/11/26(金) 16:48 発言
【67374】Re:List Viewについて まい 10/11/29(月) 10:21 お礼

14878 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free