[[20061215005555]]　『ドロップダウンリストでの入力方法』（ともすけ）　ページの最後に飛ぶ

『ドロップダウンリストでの入力方法』（ともすけ）

 現在あるデータを入力する際にリストより選択しているのですが、通常セルを選択した際に（▼）マークにカーソルを合わせるとリストの一覧が現れると思いますが、セルを選択しただけでリスト一覧が出るように出来るのでしょうか？
 また選択後ＥＮＴＥＲボタンを押すことによりひとつ右のセルへ移動をするようにしています。
 そのセルがまたリストより選択するようにしているのですが、先ほどのＥＮＴＥＲボタンを押すことにより次のセルでのリストを冒頭での質問と同様いきなり一覧が出るようにすることは可能ですか？　
 具体的にはこのような感じです

Ａ１（リスト）、Ｂ１（リスト）

 ・Ａ１のセルを選択するだけでリスト一覧表示
 ・リストより選択後ＥＮＴＥＲボタンによりＢ1へ移動。その際にすぐにＢ１のリストの一覧をすぐに表示

 わかりにくい質問で申し訳ありません。
 初歩的な質問と思われますがよろしくお願いします。

 ご希望のものとは違うと思いますが、、、
　
１）ツール → オプション
　　【編集】の
　　□編集時にセルを移動する
　　方向　：　右 ←「右」に変更
２）A1 を選択した状態で、
　　Alt + ↓
　　以上でカーソルでの選択が可能。
　　Enter → Enter
３）B1 に移動しているので、
　　Atl + ↓
　　同じくカーソルでの選択が可能。
　　Enter
　
 以上でいかがでしょう？
 （キリキ）（〃⌒o⌒)b

早速返事ありがとうございます。

 説明不足で申し訳ありません。現在まさにその方法にてにゅうりょくしております。
 めんどくさがりのため、さらに簡単に入力が出来ればと思いまして・・・（汗）

 う～ん。。。
　
 無いんじゃないの？
 （キリキ）（〃⌒o⌒)b

 selection_change イベント　＆　sendkeys メソッド　ではどうか？
(みやほりん)(-_∂)b

 なるほど～
 こう言う事ですね？
　
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("A1:B1")) Is Nothing Then Exit Sub
    SendKeys "%{DOWN}", True
End Sub
　
 （キリキ）(〃⌒o⌒)b

VBAの知識がほとんどないため申し訳ないのですが

 上記の式をそのままコピペすればいいのですか？

 ごめんなさいね。。。
　
 詳しく説明します。
　
１）シートのタブを右クリック
　　＼Sheet1／
　　　　↑ここを右クリック
２）コードの表示
３）出てきた白い画面に上記コードをコピペ
４）「×」でエクセルの画面に戻る
　
 以上で終了
 マウスで、A1 or B1 を選択してみてください。
　
 （キリキ）（〃⌒o⌒)b

キリキさん、みやほりんさんありがとうございます。

 まさしくその通りです。本当に楽になりました。
 もっとＶＢＡの勉強をして自身で作れるようにがんばります。

コメント返信：

[ 一覧(最新更新順) ]

[[20061215005555]] 『ドロップダウンリストでの入力方法』（ともすけ） ページの最後に飛ぶ

[[20061215005555]]　『ドロップダウンリストでの入力方法』（ともすけ）　ページの最後に飛ぶ