ﾕｰｻﾞｰﾌｫｰﾑのListViewについて

エクセルの表の一部をﾕｰｻﾞｰﾌｫｰﾑので表示させようと思い、ListViewを利用してとりあえず2列の表を表示させるものを作りましたが、実行するとみ見出しも列もグリッド線も表示されず、白い枠内に「ListView1」と記載されたものが表示されます。

with内は他のサイトのものを丸写ししたものなのですが、他に設定が必要だったでしょうか。

Private Sub Label1_Click()
With ListView1
        .View = lvwReport           ''表示
        .LabelEdit = lvwManual      ''ラベルの編集
        .HideSelection = False      ''選択の自動解除
        .AllowColumnReorder = True  ''列幅の変更を許可
        .FullRowSelect = True       ''行全体を選択
        .Gridlines = True           ''グリッド線
        
        ''列見出し
        .ColumnHeaders.Add , "_Name", "名前"
        .ColumnHeaders.Add , "_Age", "年齢", , lvwColumnCenter
    End With
End Sub

ﾕｰｻﾞｰﾌｫｰﾑ作成は初めてなので、基本が出来ていない可能性がありますが、ご教授いただけると嬉しいです。
よろしくお願いします。

hatena19

2020/08/31 02:22

参考にしたサイトのURLを提示してください。ユーザーフォームにLabelコントロールを配置しましたか。配置しておいて、ラベルをクリックすれば「名前」「年齢」という見出しとグリッドが表示されるとはずです。

ice930

2020/08/31 03:02

こちらがURLです。 http://officetanaka.net/excel/vba/listview/04.htm ﾂｰﾙボックスから、ListViewの枠を張り付けています。

行動規範の内容に同意します

回答1件

ベストアンサー

コード自体は間違いはないですが、
このコードの意味を理解できてますか。

Private Sub Label1_Click()

これは「Label1」という名前のラベルをクリックしたら実行されるという意味です。

ユーザーフォーム上にラベルを配置して、そのラベルをクリックしたら、コードが実行されて、「名前」「年齢」という見出しとグリッドが表示されます。

Private Sub Label1_Click()の部分を、
Private Sub UserForm_Initialize()と変更すれば、
ユーザーフォームを開いたときに実行されるようになります。
つまり開いた直後に、名前」「年齢」という見出しとグリッドが表示されます。

投稿2020/08/31 04:45

hatena19

総合スコア34131

ice930

2020/08/31 05:43 編集

ありがとうございます！ Private Sub Label1_Click()の部分を単なる題名と認識していました！ Label1_Click()　→　ﾗﾍﾞﾙ1をクリックした場合。 UserForm_Initialize　→　ﾕｰｻﾞｰﾌｫｰﾑを開いた時の初期設定。という覚え方で間違いないでしょうか