Excel VBA質問箱 IV

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

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


14912 / 76738 ←次へ | 前へ→

【67312】Re:List Viewについて
質問  まい  - 10/11/23(火) 15:26 -

引用なし
パスワード
   一部、間違って解釈していた箇所があったので、再度投稿します


>今、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個目からは取得できてませんでした

↑チェックボックスを取得していませんでした、
 勘違いでした
 行を選択したところを取得していました
 チェックボックスのチェックした箇所の取得がうまくいきません・・・
 CheckedItems というものを使うところまでは分かったのですが、それでも、うまくいかないです
 
>
>’実際には、ココで、テキストボックスに入れた日付を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
>
>どうか、よきアドバイスをお願いいたします

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

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