Excel VBA質問箱 IV

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

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


14885 / 76738 ←次へ | 前へ→

【67341】Re:List Viewについて
発言  Jaka  - 10/11/26(金) 9:23 -

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

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 お礼

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