|
Windows7
Excel2010を使用しています。
シートにドロップボックスリストがいくつかあります。入力を簡易にするために自動でリストを開き、選択したら次のリストが開く、すべてが選択し終わったら閉じるというようなマクロを作成したいのですが、上手くいきません。
以下のようなものを作ったのですが、まずシートがアクティブになった時(最初はすべてのセルが空欄になるようにしてあります)
「選択その1」のセルのリストが開きません。
「選択その1」を選択後は次々と開いていくのですが、最後の「選択その4」を選択し終わった後もリストが閉じません。
さらにそのあと別のシートを開いた後もその新たに開いたシートのドロップダウンリストが開いてしまいます。
問題点、解決法を教えていただければありがたいです。よろしくお願いします。
Private Sub Worksheet_Change(ByVal Target As Range)
SendKeys "%{Down}"
If Range("選択その1").Value <> "" Then
Range("選択その2").Activate
If Range("選択その2").Value <> "" Then
Range("選択その3").Activate
If Range("選択その3").Value <> "" Then
Range("選択その4").Activate
If Range("選択その4").Value <> "" Then
Range("選択その1").Activate
SendKeys "%{Up}"
End If
End If
End If
Else
Range("選択その1").Activate
End If
SendKeys "%{Up}"
End Sub
|
|