Excel VBA質問箱 IV

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

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


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

13598 / 76738

←次へ　｜　前へ→


	【68643】コンボボックスのドロップダウンについて

レッズ命 - 11/3/31(木) 22:36 -


	引用なし

	パスワード

コンボボックス１の値によって、
コンボボックス２の選択肢を変えていて、
コンボボックス１を選択した時に
コンボボックス２をドロップダウンさせたくて、
下記のようなＶＢＡをかきました。

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

教えてください。　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

≪