|
宜しくお願いします。
過去の投稿からコンボボックスのリスト選択について参照し
下記の様に作成してみました。
リストの選択範囲と選択結果のTextBoxへの表示は上手くいきました。
ワークシート名は今後変更されたりする可能性が有りますので、
Sheet名で記述したく、
Call Sheet2 等
ですが、上手くいきませんでした。お手数お掛けしますが
宜しくご教授御願い致します。
Private Sub UserForm_Initialize()
Dim lRow As Long
With Worksheets("社員一覧")
lRow = .Range("A" & Rows.Count).End(xlUp).Row
End With
With ComboBox1
.RowSource = "社員一覧!A2:A" & lRow
' .Style = fmStyleDropDownCombo
' .MatchRequired = True
' .MatchEntry = fmMatchEntryFirstLetter
.IMEMode = fmIMEModeOff
.TabIndex = 0
End With
End Sub
|
|