エクセルのリストボックスについて

質問

Ａ　　　　　Ｂ
１　○○太朗　 男
２　△○幸子　 女
３　×■三朗　 男

以上の様に入力したいのですが、氏名は仕方なくとも、入力件数が多いので、せめて、男女を入力するところだけでも、
１．当該セルにカーソルが移動した時点で自動的にリストボックス等が表示される。
２．カーソルキーとエンターキーのみで入力が簡単にできる
３．未入力も可能である。
以上の条件が可能な様にしたいのですが、教えて下さい。
なお、同様の物が下記に載っていた様な気がしたのですが、分からなくなってしまいました。
http://www.sk2.aitai.ne.jp/~happy/

回答No.3

imogasi

男女２種類しか選択なしの場合などに限り、
（「VBAを使うほどではなさそうです」という意見もあり得ますが、）マウスクリックを使いたくないらしいので
ＶＢＡで考えました。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 Then 'C列の場合
If Target = "男性" Then
Target = "女性"
Else
Target = "男性"
End If
End If
End Sub
ツール－マクローＶＢＥの画面のＶＢＰｒｏｊｅｃｔのＳｈｅｅｔ１をダブルクリック。出てきた画面で
（Ｇｅｎｅｒａｌ）の▼クリックして Worksheet、（Ｄｅｃｒａｌａｔｉｏｎ）の方をSelectionChangeを選び、上記をコピー貼りつけする。
ワークシートＳｈｅｅｔ１でＣ列の空白セルを矢印で選ぶと「男性」に、そこからはずして、もう一度そのセルを選ぶと「女性」になります。逆も真。
Ｄ列に入力するなら、上記コード＝３を＝４に変える。
入力が終わったら、上記コードは抹消しておく。
－－－－－
マウスを使って選択するなら（１）入力規則（２）ＡＬＴキー＋↓で男子・女子が出るから、マウスで選択もある。
（３）１つのリストボックスから選択し、アクチブセルへ自動セット（ＶＢＡ）。
など考えられる。

お礼

回答ありがとうございました。

ＶＢＡもそうなのですが、実際、入力規則で「ＡＬＴキー」＋「↓」が違う意味で特に参考になりました。

回答No.2

noname#7095

２つめ、文字数オーバーしたようです。
http://www.asahi-net.or.jp/~ef2o-inue/shiki/sub03_030_19.html
です。

参考URL：

http://www.asahi-net.or.jp/~ef2o-inue/shiki/sub03_030_19.html

お礼

この方法は別の意味で参考になりました。
今後、活用させてもらいたいと思っています。

回答No.1

noname#7095

リスト形式の入力規則
http://www.eurus.dti.ne.jp/~yoneyama/Excel/ny-kisok/n-kis-na.htm

少し複雑なことも加えたいのなら
http://www.asahi-net.or.jp/~ef2o-inue/shiki/sub03_030_19.html

VBAを使うほどではなさそうです。

参考URL：

http://www.eurus.dti.ne.jp/~yoneyama/Excel/ny-kisok/n-kis-na.htm,http://www.asahi-net.or.jp/~ef2o-inue/shiki/sub03_030_1

補足

早速の回答ありがとう御座います。

> リスト形式の入力規則
現在、入力規則で実施しているのですが、マウスを使用しないと、入力規則でのリストが表示されませんよね？
全部、キーボード（しかも、最低限）で入力したいと思っています。

何百もあるデータの入力ですので、マウスも使用したくないので・・・