Excel VBA質問箱 IV

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

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


8147 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   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

0 hits

【74162】ドロップボックスリストの自動表示についてい ぶんぶん 13/4/22(月) 18:04 質問
【74163】Re:ドロップボックスリストの自動表示につ... UO3 13/4/23(火) 7:05 発言
【74164】Re:ドロップボックスリストの自動表示につ... UO3 13/4/23(火) 9:31 発言
【74168】Re:ドロップボックスリストの自動表示につ... ぶんぶん 13/4/23(火) 13:40 発言
【74169】Re:ドロップボックスリストの自動表示につ... UO3 13/4/23(火) 14:31 発言
【74173】Re:ドロップボックスリストの自動表示につ... ぶんぶん 13/4/26(金) 9:23 発言
【74174】Re:ドロップボックスリストの自動表示につ... UO3 13/4/26(金) 11:41 発言
【74176】Re:ドロップボックスリストの自動表示につ... ぶんぶん 13/4/26(金) 13:14 発言
【74177】Re:ドロップボックスリストの自動表示につ... UO3 13/4/26(金) 13:42 発言
【74179】Re:ドロップボックスリストの自動表示につ... ぶんぶん 13/4/26(金) 18:42 発言
【74180】Re:ドロップボックスリストの自動表示につ... UO3 13/4/26(金) 20:19 発言
【74181】Re:ドロップボックスリストの自動表示につ... UO3 13/4/26(金) 20:25 発言
【74182】Re:ドロップボックスリストの自動表示につ... ぶんぶん 13/4/26(金) 20:51 お礼

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