Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 7 Home Premium : Excel 2000)
入力規則のダイアログを表示し、記載
投稿日時: 18/04/13 23:59:19
投稿者: shimoichimabu

セルA1に入力規則(リスト)を設定しています。
セルA1をクリックし、DropDownリストから希望する項目を選択すると、
シートAとBのセルA1にその項目を書き込みたいです。
しかし、一応、リストは表示されますが、選択した項目は書き込まれていません。
恐らくSendKeys "%{DOWN}"でリストを表示しますが、項目を
選択している間にプログラムはすでに終了してしまっているという
ことだと思いますが・・・。
対処する方法はないでしようか?
なお、このファイルにはこのイベントプログラムしか記述していません。
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        SendKeys "%{DOWN}"
        Sheets("A").Range("A1").Value = Range("A1").Value
        Sheets("B").Range("A1").Value = Range("A1").Value
    End If
End Sub

回答
投稿日時: 18/04/14 09:05:59
投稿者: simple

>対処する方法はないでしようか?
選択するまで待つ方法ということでしょうか?とても難しいと思います。
 
そもそもの「マクロにする理由」がいまひとつ理解できていません。
マクロを使わなくても、
シートAとBのセルA1に、
入力規則のあるセルを参照する数式を予め入れておけばよいのではないですか?

投稿日時: 18/04/14 11:10:50
投稿者: shimoichimabu

simpleさん回答ありがとうございます。
 
やはり、むづかしそうですね
 
simpleさんのご指摘通り、数式を予め入れとくことにしました。