ListViewの画面の更新

いつも大変お世話になっております。
下記のコードはListView の選択している行を
削除して他のシートへ貼り付けるというものです。
検索などしてつくりましたが、
ここで問題がでました。

1.シートの行の削除
2.ListViewの画面の更新
がわかりません。
わかる方おしえてくれませんでしょうか



Dim i As Long
Dim R As Range
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Selected = True Then
LastRow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row + 1


Set ListItem = ListView1.ListItems(i)

With ListView1.ListItems.Add
.Text = ListItem.Text

For j = 1 To ListView1.ColumnHeaders.Count - 1
.SubItems(j) = ListItem.SubItems(j)

Sheet1.Cells(LastRow, j) = ListView1.ListItems(i).SubItems(j)
Next
End With

ListView1.ListItems.Remove i

End If
Next

よろしくお願いいたします。

質問者からの補足コメント

• 

  やってみましたが
  わかりませんです。
  おねがいします。

  No.1の回答に寄せられた補足コメントです。 補足日時：2021/01/12 22:18

No.1 回答者： くんこば 回答日時： 2021/01/12 21:38

まず、小さいコードから、少しずつ試してみましょう。

リストビューに値はセットできるのか？
指定した行の削除はできるのか？

この回答へのお礼

くんこばさん
ありがとうございました。
なんかこうしたらできるかなと
おもいやったらできちゃいました。
すこし不安ですが

お礼日時：2021/01/12 22:36