Excel VBA質問箱 IV

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

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


14909 / 76734 ←次へ | 前へ→

【67311】List Viewについて
質問  まい  - 10/11/23(火) 14:24 -

引用なし
パスワード
   今、Listviewを使って、マクロを作成しています

LISTシートのデータをListViewに表示させるようにして、
チェックボックスもつけてあります

やりたい事がうまくできず困っています

ユーザーフォームに
textBox1 (任意の日付)
CommandButton1 (更新ボタン)
ListView1
が存在します

【やりたいこと】
日付入力したい行のチェックボックスにチェックをつけます
そのときチェックは複数つきます

次に、ユーザーフォーム上にあるtextBox1に日付を入力
CommandButton1をクリックすると、チェックした行すべてに日付が入力され、
ListViewに表示される

といった、マクロを作りたいのですが、うまくいきません

今は下記のように記述してあります

Private Sub UserForm_Initialize()
With ListView1
    .View = lvwReport      ''表示
    .LabelEdit = lvwManual   ''ラベルの編集
    .HideSelection = False   ''選択の自動解除
    .AllowColumnReorder = True ''列幅の変更を許可
    .FullRowSelect = True    ''行全体を選択
     ListView1.CheckBoxes = True ''チェックボックス設定
    .Gridlines = True      ''グリッド線

    .ColumnHeaders.Add 1, "_PN", "なまえ"
    .ColumnHeaders.Add 2, "_CODE", "こーど"
    .ColumnHeaders.Add 3, "_DATE", "日付"

  End With
  
   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

end Sub

Private Sub CommandButton1_Click()
 Dim i As Integer
  Dim MyItem As String

  MyItem = ""

'とりあえず、テストでチェックしたアイテムが順番に取得できるか?
テストしてみました。でも、下記の記述では一番目のアイテムは取得できるけど、
2個目からは取得できてませんでした

’実際には、ココで、テキストボックスに入れた日付をListシートにも反映させて、ListViewに結果を表示させたいと思っています

  With ListView1
    For i = 1 To .ListItems.Count
      If .ListItems(i).Selected Then
        MyItem = MyItem + .ListItems(i).Text + vbCrLf
      End If
    Next i
  End With

  MsgBox MyItem

End Sub

どうか、よきアドバイスをお願いいたします
1 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 お礼

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