
いつも大変お世話になっております。
下記のコードは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
よろしくお願いいたします。

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
ListView 項目の選択/選択解除について
Visual Basic(VBA)
-
リストビューの項目の内容を変更する方法は?
Visual Basic(VBA)
-
vba Listviewでのチェックボックスのイベントを教えてください
Excel(エクセル)
-
-
4
VBA ListViewの選択Itemを削除する
Excel(エクセル)
-
5
ListViewで、非表示列って作れますか?
Visual Basic(VBA)
-
6
ListViewのチェックボックスについて
Excel(エクセル)
-
7
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
8
Listviewのデータを上から順番に取得 VBA
Visual Basic(VBA)
-
9
ListViewで複数選択された項目を一度に削除する方法
Visual Basic(VBA)
-
10
Excel VBA ListViewサブアイテムの文字色
その他(プログラミング・Web制作)
-
11
vba ListViewの選択色について教えてください
Excel(エクセル)
-
12
検索結果をListviewさせる方法
Visual Basic(VBA)
-
13
VBAでユーザーフォームを再表示させたい。
Excel(エクセル)
-
14
エクセルVBAでマルチページの切り替え方法の件で
Excel(エクセル)
-
15
UserForm1.Showでエラーになります。
工学
-
16
ListViewで列を指定して表示させる方法
Excel(エクセル)
-
17
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
18
リストビューをスクロールさせるには
Visual Basic(VBA)
-
19
ListViewの複数選択について
Visual Basic(VBA)
-
20
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
実行時エラー1004「Select メソ...
-
【ExcelVBA】全シートのセルの...
-
excelのマクロで該当処理できな...
-
Excel VBA リンク先をシート...
-
特定の文字を含むシートだけマ...
-
Excelマクロのエラーを解決した...
-
XL:BeforeDoubleClickが動かない
-
Access エクセルシート名変更
-
エクセルVBA ListBoxの並び...
-
ユーザーフォームに入力したデ...
-
Worksheet_Changeの内容を標準...
-
セルの値によって、シート見出...
-
【VBA】全ての複数シートから指...
-
EXCEL VBAで複数シートから該当...
-
ワークシートを追加したときの...
-
【VBA】シート名に特定文字が入...
-
PerlでExcelのワークシートを同...
-
エクセルVBA Ifでシート名が合...
-
エクセルで通し番号を入れてチ...
-
エクセルのマクロでアクティブ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelマクロのエラーを解決した...
-
excelのマクロで該当処理できな...
-
特定の文字を含むシートだけマ...
-
実行時エラー'1004': WorkSheet...
-
ユーザーフォームに入力したデ...
-
【ExcelVBA】全シートのセルの...
-
エクセルVBA Ifでシート名が合...
-
実行時エラー1004「Select メソ...
-
VBA 存在しないシートを選...
-
エクセルで通し番号を入れてチ...
-
VBA 検索して一致したセル...
-
XL:BeforeDoubleClickが動かない
-
VBA 指定した回数分、別シート...
-
VBAマクロでシートコピーした新...
-
シートが保護されている状態で...
-
ブック名、シート名を他のモジ...
-
【VBA】全ての複数シートから指...
-
別のシートから値を取得するとき
-
ExcelのVBAのマクロで他のシー...
-
Excel チェックボックスにチェ...
おすすめ情報
やってみましたが
わかりませんです。
おねがいします。