Excel VBA質問箱 IV

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

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


13591 / 76738 ←次へ | 前へ→

【68650】Re:コンボボックスのドロップダウンについて
発言  kanabun  - 11/4/1(金) 12:10 -

引用なし
パスワード
   ▼レッズ命 さん:
よこからすみません。

>コンボボックス1を空白にした時にのみドロップダウンするようなのですが、

↑ここに着目して、
 ComboBox1_Change()直後に {ENTER}でリスト選択を確定すると、
 ComboBox1のドロップダウンが閉じますので、
 そのあとで、ComboBox2に SetFocusして ドロップダウン▼する
 ようにしてみました。
 
 (RowSourceの範囲取得部分はもう少しまとめたほうが読みやすい
  と思いますが、とりあえず、ノーチェックです)

'-----------
Private Sub ComboBox1_Change()
  If ComboBox1.ListIndex > -1 Then
    SendKeys "{ENTER}", True
  End If
End Sub
'----------
Private Sub ComboBox1_AfterUpdate()
  Dim Rng1 As Range
  Dim Rng4 As Range
  Dim Rng5 As Range
  Dim Rng10 As Range
  Dim Rng6 As Range
  Dim ss As String
 
  Set Rng1 = Columns("A").Find(What:="雑貨", lookat:=xlWhole)
  Set Rng4 = Columns("A").Find(What:=ComboBox1.Value, lookat:=xlWhole)
  Set Rng5 = Rng4.Offset(1, 0)
  Set Rng10 = Rng4.End(xlDown)
  
  With ComboBox2
   .BackColor = &H80000005
   .Enabled = True
   .Locked = False
   
   If ComboBox1.Value = "" Then
     ss = Cells(1, 2).Address(0, 0) ' & ":" & Cells(1, 2).Address
   Else
     If Rng5.Value = "" Then
       Set Rng6 = Rng4.End(xlDown).Offset(-1, 0)
       If Rng10.Value <> "雑貨" Then
         ss = Cells(Rng4.Row, 2).Address(0, 0) & ":" _
           & Cells(Rng6.Row, 2).Address(0, 0)
       Else
         ss = Cells(Rng4.Row, 2).Address(0, 0) & ":" _
           & Cells(Rng1.Row - 3, 2).Address(0, 0)
       End If
     Else
       Set Rng6 = Rng4
       ss = Cells(Rng4.Row, 2).Address(0, 0) & ":" _
          & Cells(Rng6.Row, 2).Address(0, 0)
     End If
   End If
   
   .RowSource = "買い物リスト!" & ss
   .SetFocus
  End With

End Sub
'----------
Private Sub ComboBox2_Enter()
  ComboBox2.DropDown '▼
End Sub
2 hits

【68643】コンボボックスのドロップダウンについて レッズ命 11/3/31(木) 22:36 質問
【68647】Re:コンボボックスのドロップダウンについて UO3 11/4/1(金) 10:04 発言
【68648】Re:コンボボックスのドロップダウンについて UO3 11/4/1(金) 10:41 回答
【68649】Re:コンボボックスのドロップダウンについて UO3 11/4/1(金) 11:17 発言
【68650】Re:コンボボックスのドロップダウンについて kanabun 11/4/1(金) 12:10 発言
【68652】Re:コンボボックスのドロップダウンについて レッズ命 11/4/1(金) 13:13 お礼

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