|
▼VBWASURETA さん:
早々のご回答ありがとうございます。
ソースの件ですが、こんな感じです。
コンボ設定は、イベント(GotFocus)で行っています。
Private Sub コンボ1_GotFocus()
Call Initコンボ1(コンボ1)
End Sub
Public Sub Initコンボ1(ByVal obj As Object)
Dim comb As Collection
Dim str As String
Dim tmp As Variant
obj.Clear
Set comb = New Collection
str = "sheet1!A5:A" & CStr(GetRow("sheet1"))
For Each tmp In Range(str)
On Error Resume Next
comb.Add tmp.Value, CStr(tmp.Value)
If Err.Number = 0 Then
obj.AddItem tmp.Value
End If
On Error GoTo 0
Next tmp
Set comb = Nothing
obj.Style = fmStyleDropDownCombo
obj.ListIndex = -1
End Sub
|
|