Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

27551 / 76738

←次へ　｜　前へ→


	【54505】Re:コンボボックスの使い方

おちゃら - 08/3/16(日) 8:22 -


	引用なし

	パスワード

▼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

0 hits

▼

【54496】コンボボックスの使い方 おちゃら 08/3/15(土) 21:17