Excel VBA質問箱 IV

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

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


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

8222 / 76807

←次へ　｜　前へ→


	【74162】ドロップボックスリストの自動表示についてい

ぶんぶん - 13/4/22(月) 18:04 -


	引用なし

	パスワード

Windows7
Excel2010を使用しています。

シートにドロップボックスリストがいくつかあります。入力を簡易にするために自動でリストを開き、選択したら次のリストが開く、すべてが選択し終わったら閉じるというようなマクロを作成したいのですが、上手くいきません。

以下のようなものを作ったのですが、まずシートがアクティブになった時（最初はすべてのセルが空欄になるようにしてあります）
「選択その１」のセルのリストが開きません。
「選択その１」を選択後は次々と開いていくのですが、最後の「選択その４」を選択し終わった後もリストが閉じません。
さらにそのあと別のシートを開いた後もその新たに開いたシートのドロップダウンリストが開いてしまいます。

問題点、解決法を教えていただければありがたいです。よろしくお願いします。

Private Sub Worksheet_Change(ByVal Target As Range)

　　SendKeys "%{Down}"

　　If Range("選択その１").Value <> "" Then

　　　　Range("選択その２").Activate
　　
　　　　If Range("選択その２").Value <> "" Then
　　
　　　　　　Range("選択その３").Activate
　　　　
　　　　　　If Range("選択その３").Value <> "" Then
　　
　　　　　　　　Range("選択その４").Activate
　　　　　　　　
　　　　　　　　If Range("選択その４").Value <> "" Then
　　　　　　　　
　　　　　　　　　　Range("選択その１").Activate
　　　　　　　　　　
　　　　　　　　　　SendKeys "%{Up}"
　　　　　　　　End If

　　　　　　End If
　　　　End If
　　Else
　　　　
　　　　Range("選択その１").Activate
　　End If

SendKeys "%{Up}"

End Sub

1 hits

▼

【74162】ドロップボックスリストの自動表示についてい ぶんぶん 13/4/22(月) 18:04

≪