ＶＢＡ ユーザーフォーム リストビュー

Question

いつもご回答をいただきまして、ありがとうございます。
かなり基本的なことなのですが、どこを探しても載っておらず、困ってます。

　リストビューを列ごと転記するにはどうしたらいいのでしょうか、、
リストボックスと同じやり方ではエラーになりますが、リストビューでの列の転記の方法がどうしてもわかりません。
よろしければ、ご回答お願いいたします。

コード
```Range("B3")= ListView1.List(Count - 1, 0)
Range("B3").Offset(0, 1)= ListView1.List(Count - 1, 1)

 これではエラーになりますが、、

Answer 1

これでいけますか？

Private Sub CommandButton2_Click()
Dim Count
Count = ListView1.ListItems.Count


Range("B3") = ListView1.ListItems(Count).Text
Range("B3").Offset(0, 1) = ListView1.ListItems(Count).SubItems(1)


End Sub

Comments

[kohan]

ご回答いただきましてありがとうございます。
これで動きました。

お二方ともにベストアンサーを差し上げたいのですが、先にご回答いただいていたので、№１様に差し上げたいと思いますが、今後ともよろしくお願いいたします。

Answer 2

ListViewからItemをエクセルに転記

こちらがそのものでしょうか。

'サンプル
Sub LtE()

 Dim i As Long, C As Long
 'ListView内のアイテム数
 C = ListView1.ListItems.Count

'アイテムの1行目～最終行までセルにコピー
For i = 1 To C

 '1列目→（セルi行目,5列目)
 Cells(i, 5) = ListView1.ListItems.Item(i)
 '2列目→（セルi行目,6列目)
 Cells(i, 6) = ListView1.ListItems.Item(i).SubItems(1)
 '3列目→（セルi行目,7列目)
 Cells(i, 7) = ListView1.ListItems.Item(i).SubItems(2)

Next i

End Sub

Comments

[kohan]

そんとおりに動きました。
Cells(i, 6) = ListView1.ListItems.Item(i).Text.SubItems(1)
と、ＴＥＸＴの位置を間違っていたようです。。いくども組み替えたのですが、最後につける、、だったのですね、、
今後ともよろしくお願いいたします。