- ベストアンサー
Excel セルでエンターキー ⇒ リスト(入力規則)表示 できるのでしょうか?
- みんなの回答 (3)
- 専門家の回答
質問者が選んだベストアンサー
> エラー表示「マクロ'Book1!ListDropDown'が見つかりません。」になって > しまいました。 すみません。記載もれしました。 OnKey で呼び出すマクロも ThisWorkbook に置いたので、呼び出すマクロ名は ThisWorkbook.ListDropDown としなければなりません。再掲しておきます。設置方法はその通りです。 ' // ThisWorkbook(ブック)モジュール に貼り付けて下さい Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next Dim r As Range Set r = Intersect(Target, Target.SpecialCells(xlCellTypeAllValidation)) If Not r Is Nothing Then Application.OnKey "{ENTER}", "ThisWorkbook.ListDropDown" Application.OnKey "~", "ThisWorkbook.ListDropDown" Else Application.OnKey "{ENTER}" Application.OnKey "~" End If Set r = Nothing On Error GoTo 0 End Sub Private Sub ListDropDown() SendKeys "%{DOWN}" Application.OnKey "~" Application.OnKey "{ENTER}" End Sub
その他の回答 (2)
- KenKen_SP
- ベストアンサー率62% (785/1258)
こんばんは。 > エンターキー[Enter]でリスト表示できないのでしょうか? OnKey と SelectionChange イベントの組み合わせで可能かと。。 でも、Enter キーを押すたび(≒選択セルの変更-->SelectionChangeの発生) のたびマクロが走りますので、パフォーマンスを悪くするだけな気もします。 オススメはしません。 ちなみに、マクロを使わずともシートを保護するとセルのクリックで リストがドロップされますけど、これではダメですか? ' // ThisWorkbook(ブック)モジュール に貼り付けて下さい Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next Dim r As Range Set r = Intersect(Target, Target.SpecialCells(xlCellTypeAllValidation)) If Not r Is Nothing Then Application.OnKey "{ENTER}", "ListDropDown" Application.OnKey "~", "ListDropDown" Else Application.OnKey "{ENTER}" Application.OnKey "~" End If Set r = Nothing On Error GoTo 0 End Sub Private Sub ListDropDown() SendKeys "%{DOWN}" Application.OnKey "~" Application.OnKey "{ENTER}" End Sub
補足
>ちなみに、マクロを使わずともシートを保護するとセルのクリックで >リストがドロップされますけど、これではダメですか? マウス操作でなくキーボードのみで操作を実現したいと思っています。 >OnKey と SelectionChange イベントの組み合わせで可能かと。。 ありがとうございます。早速、実施してみましたが、エラー表示 「マクロ'Book1!ListDropDown'が見つかりません。」になってしまいました。 当方初心者でVBAの設置方法がいけないのかもしれません。 VBA設定方法は 1.ツール→マクロ→Visual Basic Editor 選択 2.プロジェクト-VBAProject内、ThisWorkbook ダブルクリックで開く 3.おしえて頂いたマクロを貼り付ける 4.Excelに戻り、リスト作成してテスト 5.上記エラー表示 もし間違いがあれば合わせてご教示のほど、よろしくお願い申し上げます。
- imogasi
- ベストアンサー率27% (4737/17068)
無いと思います。あきらめてください。まともにやるには、ワンクリックの為に大変なウインドウズ関係のプログラムの勉強が必要と思います。(下記のVBAのことではありません) ーー あるWEBと私のアイデアで作ってみましたが、まがい物です。 こんなのは使うことをお勧めしませんが。 VBAが経験なければ、無視してください。 ーー リスト用データ F1:F4 東京 京都 奈良 福岡 ーー A1:A10を範囲指定 データー入力規則ーリストー$F$1:$F$4を指定ーOK 以上は通常の話。確認のため書いただけ。 ーー Sheet1のWorksheet_SelectionChangeイベントに Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 And Target.Row >= 1 And Target.Row <= 10 Then Dim Dummy As Validation On Error Resume Next Set Dummy = ActiveCell.Validation On Error GoTo 0 If Not Dummy Is Nothing Then SendKeys "%{Down}" End If Set Dummy = Nothing End If End Sub ーーー 操作ステップ (1)A1をクリック(ここだけはクリックかA1:A10以外のセルから矢印キーでA1へ) (2)ドロップダウンが自動で下がる(アイテムが表示される)。 (3)マウスでクリックか下矢印で選択 (4)ENTER(選択のエンター) (5)もう1度ENTER(セル移動のエンター) (6)セルポインタが下セルへ移動(ツールーオプションー編集ーセルの移動方向を下へ設定してあると前提。) (7)(2)と同じ (2)-(6)の繰り返し。
お礼
回答、本当にありがとうございます。 マウスを使わず、矢印キーとエンターキーのみでデータ入力する方法を模索していました。 残念ながらVBAの経験がまったくありませんので、自分で作成することはできませんでした。 例題で教えていただいたVBA、為させていただきました。 解説とてもわかりやすいです。 イメージに近い動きです。 再度選び直そうと↑を押し続けるとデータが変わってしまうので、 横移動の設計で回避できるかと思いました。 参考になりました。ありがとうございました。
関連するQ&A
- Excelの入力規則のリストの文字を大きくするには?
Excel→データ→入力規則→リストにしたところ、 リストの文字がとても小さくなりました。 (セルをクリックしたときに表示されるリストです。) どうすればこの文字が大きくなりますでしょうか? どなた様かご教示のほど、よろしくお願い申し上げます。
- 締切済み
- オフィス系ソフト
- Excelのセルをリストから入力
Excel2000ユーザーです。 任意のセルをリストからデータ入力(選択)するように設定した場合、リストに含まれない値を入力する方法はありますか? ■現状 [データ]→[入力規則]で入力規則プロパティ画面を表示し、 「入力規則の種類」:リスト 「元の値」:リストに含めるデータ 「ドロップダウンメニューから選択する」にチェック と設定しています。
- ベストアンサー
- オフィス系ソフト
- excelの ドロップダウンリストが表示されない
入力規則のドロップダウンリストが表示されません、また、ALT+↓or↑でもリストが表示されません、対処法があれば、ご教授願いたくよろしくお願いします。 ■仕様 excel2000 ■症状 exelのドロップダウンリストを利用して、データを入力しているのですが、あるタイミング(データを入力してファイルが重くなっていくと)で突然、ドロップダウンリストが表示されなくなります。 またALT+↑or↓でもリストが表示されません。従いまして、入力規則→リストがリセットされているのかと思いきや、入力規則で設定したリスト以外は入力できないので、リセットできません。 ■原因(推定) 入力規則のリストを別シートに記載し名前を定義して、本シートの入力すべきセルで入力規則→リストを設定し、名前を読みにいってます。また、入力規則リストを157セルあり、複雑にしすぎてエクセルが混乱して、故障してしまったのかと思っています。 ■設定 ・入力規則のドロップダウンリストにチェックを入れています。 ・[ツール]→[オプション]の[表示]タブの「オブジェクト」で「すべて表示」を設定しています。
- 締切済み
- オフィス系ソフト
- EXCELの入力規則のリストについて。その1(重複セル)
Excel2000で入力規則のリストを設定しようとしています。 リストの元になる範囲のデータには重複するものがあります。 その重複するものを各1つずつリストに表示させることはできるでしょうか? 例 みかん みかん りんご → りんご みかん ぶどう ぶどう VBAは苦手なので、元になる範囲から関数などで別な場所に重複しない表を作り、それをリストに使用する方法でもいいなと思っています。 元になる範囲が変更される度に、更新や修正をしないでよい方法があれば助かるのですが。 どうかよろしくお願いします。 もう1つ「EXCELの入力規則のリストについて。その2(IFで空白にしたセル)」という質問もしておりますので、何卒そちらもよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 入力規則のリストを勝手に開くようにしたい
入力規則のリストのプルダウンを勝手に開くようにしたいです。 通常は、入力規則のリストが設定されているセルにカーソルを移動すると▼が表示され、▼をクリックするとプルダウンリストが表示されます。 これを、該当セルにカーソルを移動しただけでプルダウンリストが表示されるようにできないでしょうか。
- ベストアンサー
- Excel(エクセル)
- EXCELの入力規則のリストについて。その2(IFで空白にしたセル)
EXCEL2000で入力規則のリストを設定しています。 IF(セル番号="","",VLOOKUP(…))を使用して表を作っています。 表は途中からIFによって空白行になっています。 この表全体をリストの「元の値」に設定しているのですが、プルダウンメニューに空白が延々と表示されてしまいます。 この空白を表示させない方法はあるでしょうか? どうかよろしくお願いします。 もう1つ「EXCELの入力規則のリストについて。その1」という質問もさせていただいています。 併せてよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excelの入力規則でリストの値を選択できません。
Excelの入力規則でリストの値を選択できません。 環境:WinXP Excel2003 表内のセルに入力規則でリストを設定しました。 リストは場所指定ではなく、入力規則タブのリスト欄にカンマで区切って直接値を入力しています。 リストの内容はメールアドレス用のドメインです。 ("@docomo.ne.jp,@softbank.ne.jp"というふうにドメインをリストにしています) 表は下記のような作りになっています。 A1セル:アカウント 直接入力 A2セル:ドメイン ドロップダウンリストから選択 ドロップダウンリストは正常に表示されるのですが、値を選択してもセルには何も表示されません。 試しにリストの値を"a,b,c"に変更したら正常に選択・表示されました。 ※添付画像のような状態から値を選択してもセルには何も表示されません 値が選択できないのは何が原因でしょうか? ご教示宜しくお願い致します。
- 締切済み
- オフィス系ソフト
- Excel 入力規則のリスト参照元を1セルとしたい
Office:Excel 2007 お世話になっております。 相変わらずタイトルの文字制限少ないですね・・・。 と、それはおいといて・・・。 当方Excel2007を使用しているのですが、 入力規則の設定で、入力値の種類を「リスト」とした場合の 「元の値」を1つのセルから参照し、プルダウンしたいと考えています。 例えばA1に"0,1,2,3"という値を入れておき、 B1に入力規則を設定して、「元の値」の参照元をA1としたときに "0","1","2","3"がプルダウンしてくれるのかなと 思っていたのですが、やはり"0,1,2,3"で1文字列として扱っているためか、 ちゃんとプルダウンしませんでした。 何か方法をご存じの方いらっしゃいましたら、ご教示の程お願い致します。
- ベストアンサー
- オフィス系ソフト
- Excelの入力規則のリストにカンマを表示したい
Excelの「データの入力規則」でリストにカンマ(,)を表示したいです。 手順としてはメニューの「データ」-「入力規則」を選択し、 表示された画面で「設定」タブを選択し「入力値の種類」で「リスト」を 選択します。 その後、「元の値」でカンマ(,)が含まれたシートのセル範囲を選択すれば 表示されますが、直に値を「元の値」に指定する場合にカンマ(,)をエスケープする方法が分かりません。 お分かりの方は教えてください。
- 締切済み
- オフィス系ソフト
お礼
ご教示いただき本当にありがとうございます。 確認させていただきました。 見事にエンターで一覧表示されました。ありがとうございました。 今回2件のご回答で、今後、キーボード操作のみでデータ入力が可能になりそうです。 あまり推奨の動かしかたではないようですが、マウス操作とキーボード操作の行ったり来たりに不満の場合は大いに役立つのではないかな~と勝手に思ってたりして。 本当にありがとうございました。