Excel VBA質問箱 IV

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

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


13592 / 76732 ←次へ | 前へ→

【68643】コンボボックスのドロップダウンについて
質問  レッズ命  - 11/3/31(木) 22:36 -

引用なし
パスワード
   コンボボックス1の値によって、
コンボボックス2の選択肢を変えていて、
コンボボックス1を選択した時に
コンボボックス2をドロップダウンさせたくて、
下記のようなVBAをかきました。

コンボボックス1を空白にした時にのみドロップダウンするようなのですが、
どこがおかしいのでしょうか?

教えてください。 Excel2007を使用しています。

Private Sub ComboBox1_Change()

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
  Rng7 = Cells(1, 2).Address & ":" & Cells(1, 2).Address
Else
  If Rng5.Value = "" Then
    Set Rng6 = Rng4.End(xlDown).Offset(-1, 0)
    If Rng10.Value <> "雑貨" Then
      Rng7 = Cells(Rng4.Row, 2).Address & ":" _
        & Cells(Rng6.Row, 2).Address
    Else
      Rng7 = Cells(Rng4.Row, 2).Address & ":" _
        & Cells(Rng1.Row - 3, 2).Address
    End If
  Else
    Set Rng6 = Rng4
    Rng7 = Cells(Rng4.Row, 2).Address & ":" _
      & Cells(Rng6.Row, 2).Address
  End If

Me.ComboBox2.DropDown

End If
   .RowSource = "買い物リスト!" & Rng7
End With

End Sub

1 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 お礼

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