|
▼Jaka さん
こんにちは。
ありがとうございます。
現在、Sheet2("社員一覧")で、Aのセルが("社員ID")です。
シート名(タグ)が変更されてしまうと使えなくなってしまうので
それを避けるために下記の様に直したかったんですが、
With Worksheets("社員一覧")のままで使用した方が良いでしょうか?
宜しくお願い致します。
>Private Sub UserForm_Initialize()
>
> Dim lRow As Long
Dim Ws2 As Worksheet
Set Ws2 = Sheet2
> With Worksheets("社員一覧")
With Ws2
> lRow = .Range("A" & Rows.Count).End(xlUp).Row
> End With
>
> With ComboBox1
> .RowSource = "社員一覧!A2:A" & lRow
ここがダメでした。
↓
→.RowSource = Ws2.Racge("A2:A" & lRow)
>' .Style = fmStyleDropDownCombo
>' .MatchRequired = True
>' .MatchEntry = fmMatchEntryFirstLetter
> .IMEMode = fmIMEModeOff
> .TabIndex = 0
> End With
>
>End Sub
>
|
|