エクセル 入力で自作のリストを利用するには？

伝票を作成しています。

入力を省略したいのでリストを
プルダウンメニューから選択する
という方法を使いたいのですが
こんなことってできますか？

No.1 回答者： shy00 回答日時： 2003/10/10 13:05

入力規則でいいでしょうか？

　これが、一番楽です

http://www.sharp.co.jp/mebius/excel/excel27b.html
http://homepage1.nifty.com/kenzo30/ex_kisosyo/ex …
http://www001.upp.so-net.ne.jp/excel/chotto9.htm
　「リストから選択して入力」
を参考にしてください

この回答へのお礼

ありがとうございました。
早速、紹介してくださった３つのＨＰ
拝見いたしました。

どれも今後も使えそうなページでした。
なのでお気に入りに登録しました。

お礼日時：2003/10/11 09:30

No.2 回答者： ngsvx 回答日時： 2003/10/10 13:09

１．入力する範囲を選択する。

２．メニューの「データ」－「入力規則」で
　　設定タブを選択する。
３．入力の種類を［リスト］
　　元の値を、リストで選択させるセルの範囲
４．「ドロップダウンリストから選択する」にチェック。
５．「ＯＫ」をクリック


ただし、入力する場所とリストが同じシートでなければダメかもしれません（少なくてもエクセル2000ではダメです）。

この回答へのお礼

すばやい返答どうもありがとうございました。
とても役に立ちました。

お礼日時：2003/10/11 09:33

No.3 ベストアンサー 回答者： silverspoon 回答日時： 2003/10/10 13:10

メニューの[データ]→[入力規則]を選択します。

「データの入力規則」ダイアログが表示されますので、
[設定]タブで「入力値の種類」で”リスト”を選択します。
「元の値」が表示されますので、
そこに希望の値をカンマ(,)で区切って入力すればOKです。

この回答へのお礼

すばやいご返答どうもありがとうございました。
すごく役に立ちました。

お礼日時：2003/10/11 09:36

No.4 回答者： imogasi 回答日時： 2003/10/10 22:51

シートにリストボックスを貼りつけ、プロパティでＬｉｓｔＦｉｌｌＲｅｎｇｅでＥ１：Ｅ５を指定し、Ｅ１：Ｅ５

には、例えば
大阪
京都
名古屋
静岡
東京
を入れておき
リストボックスをダブルクリックして
Private Sub ListBox1_Click()
ActiveCell = Sheet1.ListBox1.List(ListBox1.ListIndex)
ActiveCell.Offset(1, 0).Select
End Sub
を貼りつけます。
クリックするだけで、アクチブセルに値がセットされ、自動的に直下行にカーソルが動きます。
条件に合えば（入力規則のように２回クリックしなくても良く、１回で済み）、入力はこれが一番楽と思いますが、リストボックスをアクチブセルの移動に連れて画面と共に自然に動かす良い方法がわかりません。

この回答へのお礼

ご丁寧な返答どうもありがとうございました。

ただ、私にはむづかしかったようです。
＞シートにリストボックスを貼りつけ、
この時点でわからなくなりました。

また理解できるときが来るまで
がんばって勉強します。

お礼日時：2003/10/11 09:42

No.5 回答者： imogasi 回答日時： 2003/10/11 10:12

#4です。

＞シートにリストボックスを貼りつけ、
この時点でわからなくなりました。
エクセルのワークシートの画面で
メニューの表示－ツールバー－コントロールツールボックスをクリックします。
コントロールツールボックスのボックスが出てきます。
各アイコンの上にカーソルポイントを３－５秒置くと、
「リストボックス」と出てくるアイコン（目玉のとなり）がありますから、そのアイコンをクリックします。
ボックスの外へマウスを動かすと、カーソルが＋になりますので、リストボックスを置きたい場所で、マウスの左ボタンを押さえたままで、右下方向に擦ると、リストボックスが現われます。
そのボックスの中で、右クリックすると、プロパティボックスが現われ、その中にＬｉｓｔＦｉｌｌＲａｎｇｅと言う行があり、右側の空白部にＦ１：Ｆ５のように、リストボックスに出したい、語句のセットしてあるシートの範囲を指定します。
シートの上でＡＬＴキーを押しつつ、Ｆ１１キーを押します。ＶＢＥ画面になります。
プロジェクトウインドウフレームのＳｈｅｅｔ１をダブルクリックし白いウインドウが出ます。「Ｇｅｎｅｒａｌ」をクリックして、ＬｉｓｔＢｏｘ１をクリックする。
すると
Private Sub ListBox1_Click()

End Sub
が出ますので、＃４からコピーし貼りつけします。
Ｆ５を押して、ワークシートに戻ってください。

この回答へのお礼

感動しました。
がんばって勉強します。
ありがとうございました。

お礼日時：2003/10/11 22:57