|
▼ぶんぶん さん:
要件がよく呑み込めていません。
ところで、もしかして大きな勘違いをしていたかもしれません。
ドロップボックスというのは入力規則のリスト型だと思っていたのですが
そうではなく、フォームツール等のコンボボックスのことでしたか?
もし、入力規則のことでしたら、たたき台として新規ブックのSheet1に
選択その1 〜 選択その4 まで定義し、それぞれに入力規則のリストを設定したうえで
ThisWorkbookモジュールに以下を貼り付け、いったん保存して閉じてから
もう一度、開いてみてください。
こんな動きなんでしょうか?
Option Explicit
Const shn As String = "Sheet1" '対象シート名
Private Sub Workbook_Open()
If ActiveSheet Is Sheets(shn) Then ListShow ActiveSheet.Range("選択その1")
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh Is Sheets(shn) Then ListShow Sh.Range("選択その1")
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Sh Is Sheets(shn) Then Exit Sub
Select Case Target.Address
Case Sh.Range("選択その1").Address
ListShow Sh.Range("選択その2")
Case Sh.Range("選択その2").Address
ListShow Sh.Range("選択その3")
Case Sh.Range("選択その3").Address
ListShow Sh.Range("選択その4")
Case Sh.Range("選択その4").Address
ListShow Sh.Range("選択その1")
End Select
End Sub
Private Sub ListShow(r As Range)
SendKeys "%{Down}"
r.Activate
End Sub
|
|