こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

VBA lvwReportが変数定義されていません

皆さんこんにちは。
エクセル2013を使用しております。

Userform1を開いた際にリストビューにリストを載せるべく
見よう見まねで作ったリストビュー用のコードですが
下記のコードを走らせると
「lvwReport」の箇所で
『コンパイルエラー 変数が定義されてません』と出ます。

他のブックで使用していたコードをエクスポートして
現在使用しているブックにインポートしたら
エラーが出るようになってしまいました。

ネット等で調べても「lvwReport」は宣言もなく普通に使われているようですし
そもそも他のブックでは動いていたし・・・
なぜこんなエラーが出るのかさっぱり想像がつきません。

エラーを回避するにはどうしたら良いでしょうか。
ご教授いただけると幸いです。

------------------------------------------------------------------------------------------------
Private Sub UserForm_Initialize()

Dim i As Long
Dim LastRow As Long
LastRow = Sheets("検索").cells(Sheets("検索").Rows.Count, "A").End(xlUp).Row
With ListView1

.View = lvwReport
.LabelEdit = lvwManual
.HideSelection = False
.AllowColumnReorder = True
.FullRowSelect = True
.Gridlines = True
.ColumnHeaders.Add , "施主", Sheet1.Range("B2").Value, 120
.ColumnHeaders.Add , "駅", Sheet1.Range("A2").Value, 60
.ColumnHeaders.Add , "店舗", Sheet1.Range("C2").Value, 80

For i = 2 To LastRow
With .ListItems.Add
.Text = Sheets("検索").cells(i, 2).Text
.SubItems(1) = Sheets("検索").cells(i, 1).Text
.SubItems(2) = Sheets("検索").cells(i, 3).Text

End With
Next
End With
End Sub

投稿日時 - 2015-06-30 15:34:08

QNo.9003592

暇なときに回答ください

質問者が選んだベストアンサー

lvwReportも、その下で使用しているlvwManualもListViewコントロールで使用される定数です。
特に宣言しなくてもListViewコントロールを組み込んでいればエラーにならずに使えるはずです。
ListViewコントロールを組み込んでいないだけでは?

ListViewコントロールは外部コントローラなので標準では組み込まれていません。
自分で組み込む必要があります。

投稿日時 - 2015-06-30 16:57:16

補足

ご回答ありがとうございます。
Userformを作るページ??のツールボックスに
リストビューが入っていたので
組み込んであると思っていました。
確認してみます!

投稿日時 - 2015-06-30 17:18:01

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問