ユーザーフォーム起動時、テーブル名から読み込ませた

質問

ユーザーフォームのInitializeに現在、テーブル名ではなく、シート名(master)のセル設定で読み込ませています。これをテーブル名(圃場リスト)に差し替えるにはどのように変更すればよいのでしょうか。

UserForm Initialize

'フォームを開いたときComboBox1で圃場名及び圃場番号を連動表示させ、リスト表示させる

With ComboBox1
Dim no2site As Variant, lr As Long
lr = master.Cells(1, 1).CurrentRegion.Rows.Count - 1
no2site = master.Cells(2, 1).Resize(lr, 3)
.ColumnCount = 3
.ColumnWidths = "25;180"
.TextColumn = 2
.List = no2site
End With

回答No.2

m3_maki · ベストアンサー

横から失礼します。

With ComboBox1
.ColumnCount = 3
.ColumnWidths = "25;180"
.TextColumn = 2
.List = [圃場リスト].ListObject.DataBodyRange.Value
End With

というところでしょうか。

お礼

ご回答ありがとうございます。
希望道理の動作をしました。ありがとうございます。m(_ _)m

回答No.1

SI299792

'
Private Sub UserForm_Initialize()
'
　　With ComboBox1
　　　　.ColumnCount = 3
　　　　.ColumnWidths = "25;180"
　　　　.RowSource = [圃場リスト].Address
　　End With
End Sub

気になったのは、
　　　　.ColumnCount = 3
なのに
　　　　.ColumnWidths
が２つしか設定していません。そのままにしました。
　　　　.TextColumn
見たことない命令で、意味が解りませんでした。入れても入れなくても動作は同じみたいなので、除きました。

お礼

回答ありがとうございます。

ご提示いただいた内容に書き換えたところ、入力フォームを開いたときに出ているformと言うシートの列表示がされます。

恐らくシート名masterも指定する必要があるのでしょうか。ちなみにComboBox1のプロパティー一覧にあるRawSourceは空欄になっております。

よろしくお願いします。