Excel VBA質問箱 IV

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

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


27545 / 76732 ←次へ | 前へ→

【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 質問
【54501】Re:コンボボックスの使い方 VBWASURETA 08/3/16(日) 6:39 質問
【54505】Re:コンボボックスの使い方 おちゃら 08/3/16(日) 8:22 お礼
【54507】Re:コンボボックスの使い方 VBWASURETA 08/3/16(日) 9:43 発言
【54510】Re:コンボボックスの使い方 おちゃら 08/3/16(日) 12:51 質問
【54511】Re:コンボボックスの使い方 neptune 08/3/16(日) 13:08 発言
【54513】Re:コンボボックスの使い方 おちゃら 08/3/16(日) 13:43 質問
【54514】Re:コンボボックスの使い方 neptune 08/3/16(日) 15:24 発言
【54515】Re:コンボボックスの使い方 おちゃら 08/3/16(日) 15:54 お礼
【54517】Re:コンボボックスの使い方 VBWASURETA 08/3/16(日) 21:11 回答
【54518】Re:コンボボックスの使い方 おちゃら 08/3/16(日) 21:28 お礼
【54520】Re:コンボボックスの使い方 VBWASURETA 08/3/16(日) 21:45 回答
【54521】Re:コンボボックスの使い方 おちゃら 08/3/16(日) 22:34 発言
【54522】Re:コンボボックスの使い方 neptune 08/3/16(日) 22:37 発言
【54523】Re:コンボボックスの使い方 neptune 08/3/16(日) 22:39 発言

27545 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free