エクセル2000で膨大なデータを入力しています。
2桁の数値が延々続くものなのですが、今はテンキーで 「6」「4」「Enter」 「5」「8」「Enter」…のように入力しています。
これを「Enter」を押さなくても入力できるように、つまりデータの数字2つを押しただけで下のセルへ移動していくようにしたいのですが、どうすればいいのでしょうか?

いろいろ探して試したのですがいい方法がなく、入力規則→文字列(長さ指定)を試してもうまくいきません。

どうかよろしくお願いします。

A 回答 (3件)

やはり、Enterで確定しなくては、次のセルに移らないようです。


矢印でもいいですけど...
    • good
    • 0
この回答へのお礼

そうですよね。Enterや矢印を押さないとダメみたいですよね。
一緒に考えて下さってありがとうございます。

お礼日時:2002/03/10 13:31

分かりづらくてすいません。


下のように、ユーザーフォームの指定から
Private Sub UserForm_Initialize()
はじまるものは、モジュールではなく
フォームです。

プログラムを書く場所は
モジュールのほかに
シート、ブックと
フォームにも書けます。

方法は、ユーザーフォームを挿入します。
好みのものに作成して、
作ったフォームをダブルクリックすると
コードを書く画面が表示されます。

通常、フォームはそれぞれの
「イベント」というものを一つの単位として
動きます。イベントはたとえば
フォームにあるボタンを「押した時」
のように動作のタイミングをいいます。

時間のある時に、試しにひとつ作ってみることを
おすすめします。
フォームを挿入、気に入るように部品を配置する
コードの記述は、本を見ながら。
少し時間は必要だと思いますが
応用がきいて面白いと思います。ぜひ。

今回のものは、このプログラムの記述用に作った
フォームをもとに作成しているものなので
モジュールのように、コードだけ貼り付けても
動きません。先にフォームを作成して
加えて、コードの中で使われている「名称」とも
同期がとれていないとダメです。
なので簡単には行かないですね。


単語の長さは
If 単語長 > 1 Then
のところで
1以上だったら(2だったら)
やめて次の行にいきましょう
という内容です。

変えてないので分かりませんが
この辺を変えるといいと思います。
ただ、フォームの入力も
桁数制限したような気がします。

これも、もしかすると簡単ではないかもしれません。


大変申し訳ないのですが
コードを分析してもらえますか。
または、参考にして別物を作って下さい。

今回のためだけの
つもりだったので
汎用性は考えてませんでした。
すいません。

がんばって下さい。
    • good
    • 0
この回答へのお礼

misaki02さん、いろいろとありがとうございました。
教えていただいたように、あとは自分でチャレンジしてみます。
当分は作っていただいたマクロを使って仕事ができますので、その間に少しずつ勉強したいと思います。
本当にお手間を取ってくださってありがとうございました。
がんばってみます!

お礼日時:2002/03/13 20:53

シートのイベントか


下のフォームで可能です。
マクロです。

テキストボックスを4つ配置したものです。

Private Sub UserForm_Initialize()
TextBox2.Value = ActiveCell.Row
TextBox3.Value = ActiveCell.Column
End Sub

Private Sub TextBox1_Change()
Dim 行 As Integer
Dim 列 As Integer
Dim 入力単語 As String

行 = TextBox2.Value
列 = TextBox3.Value
入力単語 = TextBox1.Value
Cells(行, 列) = 入力単語
単語長 = LenB(入力単語) - 1
If 単語長 > 1 Then
TextBox4.Value = 入力単語
TextBox2.Value = TextBox2.Value + 1
TextBox1.Value = Null
Cells(TextBox2.Value, 列).Select
End If
End Sub

この回答への補足

misaki02さん、ありがとうございます!

もしよければ上のNo.4のマクロの実行の仕方も教えていただけないでしょうか?
今後、2桁以外に1桁や3桁のデータも発生する可能性があるので、その時には自分でアレンジしたいと思っています。

Visual Basic Editorに標準モジュールを挿入して、上のマクロをすべてコピー・貼付けしたのですが、うまくいきませんでした。
私はまったくのマクロ初心者なので、きっと何かトンチンカンなことをしているのだろうと思います。
他の人の質問ページも調べてみたりしましたが、よくわかりませんでした。

どうかよろしくお願いします。

補足日時:2002/03/12 23:23
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qエクセル プルダウンの作り方

お世話になります。
エクセルでプルダウンの作り方を教えていただけませんでしょうか?
住所を▼のボタンでクリックしたら【北海道,青森,秋田,岩手・・・】などの選択ができるようにしたいのです。
宜しくお願いします。

Aベストアンサー

メニューから「データ」、「入力規則」、「設定」で「入力値の種類」を「リスト」を選択します。
そうすると「元の値」という表示がでますので、そこで前もって作っておいたリストの範囲を指定します。
多くないのでしたら、そのままそこにカンマで区切って入力しても出来ます。

Q「BackSpace」を押すと、『¥』ができて、「←」を押すと『」』が出てきます。

WindowsMEを使ってます。NECのVALUSTARです。
ある日、突然このような状態になってしまいました。
BackSpaceが使えないので、消したい文字をマウスで囲って
消しています。
この状態は最近質問が多い、最大化や最小化が6などの数字に変わってしまうのと同じようなことなのでそうか?
キーボードの汚れが原因かと思い、掃除もしてみましたが、効果ありませんでした。
ほんとにPCには弱いので困っています。

Aベストアンサー

No.549180 質問:バックスペースで文字を消そうとすると

この質問と同じ現象かな?回答者の皆さんのアドバイス通にしてみてください。

参考URL:http://oshiete1.goo.ne.jp/kotaeru.php3?q=549180

Qエクセルでプルダウンメニューの作り方

  エクセルの画面で、よく三角形を逆さまにした形をクリックするといくつかメニューが出てき、どれかを選べるようになっていますが、その作り方を教えてください。
 会社で人事を担当していますが、三角形(プルダウンボタン)をクリックすると社員氏名一覧が表示され、そこから選択できるようにしたいのです。
 しばらく自力でいろいろやってみましたが、さっぱり見当がつかず、どうやればいいのか分かりませんでした。よろしくお願いします。

Aベストアンサー

こんばんは!
当方使用のExcel2003での一例です!

↓の画像のようにSheet2に名簿表を作成しておきます。
画像ではSheet2のA2セル以降を範囲指定 → 名前ボックスに仮に「名簿」と入力しOK
これで範囲指定したセルが「名簿」と名前定義されましたので、

Sheet1のリスト表示させたいセルを範囲指定 → メニュー → データ → 入力規則
→ リスト → 「元の値」の欄に
=名簿
としてOK

これでSheet1のセルをアクティブにすると右側に下向き▼が表示されますので、そこをクリック!
これで希望に近い形にならないでしょうか?
Excel2007の場合は↓のURLが参考になるかもしれません。

http://www.eurus.dti.ne.jp/~yoneyama/Excel2007/excel2007-ny_kis2.html

尚、同一Sheetに「名簿表」を作成する場合は名前定義する必要はなくて
「元の値」の右側の四角をクリックし、リスト表示したいセルをそのまま範囲指定すればOKです。

以上、お役に立てば良いのですが・・・m(_ _)m

こんばんは!
当方使用のExcel2003での一例です!

↓の画像のようにSheet2に名簿表を作成しておきます。
画像ではSheet2のA2セル以降を範囲指定 → 名前ボックスに仮に「名簿」と入力しOK
これで範囲指定したセルが「名簿」と名前定義されましたので、

Sheet1のリスト表示させたいセルを範囲指定 → メニュー → データ → 入力規則
→ リスト → 「元の値」の欄に
=名簿
としてOK

これでSheet1のセルをアクティブにすると右側に下向き▼が表示されますので、そこをクリック!
これで希望に近い形にならない...続きを読む

Q固まったとき「Ctrl」+「Alt」+「Del」を押しても再起動しません。

よろしくお願いします。

固まったとき「Ctrl」+「Alt」+「Del」を押しても、なかなか再起動しません。仕方なく電源スイッチを押して電源を切る事になります。どのような原因があるのでしょうか。


また電源スイッチを押して電源を切ることでHDDに悪い影響がでるのでしょうか。

よろしくお願いします。

Aベストアンサー

>どのような原因があるのでしょうか。

 特別な理由というか、そういうシステムになっているから、としか答えようがないですね。


>電源スイッチを押して電源を切ることでHDDに悪い影響がでるのでしょうか。

 大有りです。その件については、No.2の方が適切にお答えになっていらっしゃいます。

 
 結局、MEの場合はよりフリーズしないように設定してあげることです。コンピュータに余計な仕事をさせなければ、フリーズする割合もぐっと少なくなります。

 その設定方法については、参考URLを見てください。私がNo.4でMEの改造について詳細に述べています。

参考URL:http://oshiete1.goo.ne.jp/kotaeru.php3?q=1122883

Qエクセル(Excel) 納品書の作り方【画像修正版

昨日http://oshiete.goo.ne.jp/qa/7348426.htmlで質問させていただき、詳しくご回答いただき少し進んだのですが、状況が変わったので改めて質問させていただきます。

■エクセル(Excel)で納品書の作成をしています。
シート1に納品書、シート2に商品マスタ(一覧)を作っていて、シート2の一覧を反映させて
納品書に番号を打ち込むだけで、商品名・単価までが出るシステムを作りたいのですが、
昨日のご回答の中の「VLOOKUP」?を入れて、自分なりにマス目の数字を変えてやってみたのですが
反映されずN/?のようなエラーになってしまいます。

※画像が見にくかったのでシート<CENTER></CENTER>だけにしました。

1、上記のように、シート2との関連付けの係数を、写真の場合の数字で教えてください。

2、合計と、合計から20%を引いた数値を割り出す関数も、写真の数字で御願いします。

宜しくご教授お願い致します。

Aベストアンサー

こんばんは!
前回投稿した者です。

当方もかなり古い(人間も古い!なぁ~んちゃって!)Excel2003を使用しています。
↓の画像のようにSheet2にデータを作成しておきます。

#N/A というエラーは、「検索値」がない!ということですので
お示しの画像のB列にSheet2のA列にないデータを入力するとそういったエラーが表示されます。

画像のセル配置ですと
C4セルに
=IF($B4="","",VLOOKUP($B4,Sheet2!$A:$C,COLUMN(B1),0))
(「$」マークの位置に気を付けてください)
という数式を入れD4セルまでオートフィルでコピー!
そのまま最後の24行目までコピーしておきます。

F4セルには
=IF(COUNTBLANK(B4:E4),"",D4*E4)
という数式を入れ、F24までオートフィルでコピー!

これでB列に商品番号を入力すればSheet2のデータが反映され、
E列に数量を入力でF列に金額が表示されると思います。

最後に合計金額のF26セルは
=IF(COUNT(F4:F24),SUM(F4:F24),"")
手数料のF27セルは
=IF(F26="","",F26*0.2)

これで何とか形にならないでしょうか?

※ 振込金額の欄は不明ですので手を付けていません。

参考になりますかね?m(_ _)m

こんばんは!
前回投稿した者です。

当方もかなり古い(人間も古い!なぁ~んちゃって!)Excel2003を使用しています。
↓の画像のようにSheet2にデータを作成しておきます。

#N/A というエラーは、「検索値」がない!ということですので
お示しの画像のB列にSheet2のA列にないデータを入力するとそういったエラーが表示されます。

画像のセル配置ですと
C4セルに
=IF($B4="","",VLOOKUP($B4,Sheet2!$A:$C,COLUMN(B1),0))
(「$」マークの位置に気を付けてください)
という数式を入れD4セルまでオートフィルで...続きを読む

Q「ctrl」+「alt」+「del」を押した時のデスクトップ画像について

対象OSはWindowsの2000です。

「ctrl」+「alt」+「del」を押した時に表示されるデスクトップ画像ですが、
この画像はどうすれば変更できるのでしょうか?

宜しくお願いいたします。

Aベストアンサー

壁紙の変更でbmpファイルを選べば変えられると思います。
2000はbmp以外を壁紙にしようとすると別処理が必要になるので処理中に以前壁紙だったbmpを表示してしまいます。
たしかアクティブデスクトップとかいう項目があると思いますので一旦オフにしてください。

Qエクセル(Excel) 納品書の作り方【改めて】

昨日http://oshiete.goo.ne.jp/qa/7348426.htmlで質問させていただき、詳しくご回答いただき少し進んだのですが、状況が変わったので改めて質問させていただきます。

■エクセル(Excel)で納品書の作成をしています。
シート1に納品書、シート2に商品マスタ(一覧)を作っていて、シート2の一覧を反映させて
納品書に番号を打ち込むだけで、商品名・単価までが出るシステムを作りたいのですが、
昨日のご回答の中の「VLOOKUP」?を入れて、自分なりにマス目の数字を変えてやってみたのですが
反映されずN/?のようなエラーになってしまいます。

※画像が貼り付けてあります。商品名は1番以外伏せさせていただいています。
くっつけてありますが、左側がシート1・右側がシート2です。

1、上記のように、シート2との関連付けの係数を、写真の場合の数字で教えてください。

2、合計と、合計から20%を引いた数値を割り出す関数も、写真の数字で御願いします。

宜しくご教授お願い致します。

Aベストアンサー

画像がいまいちよく見えないのですが、納品書の項目は左から、No、商品番号、商品名、単価、数量、金額でいいのでしょうか(名前は多少違っていても意味があっていればもんだいないです)

でしたら、
C1セルに=IF(ISBLANK(B2),"",VLOOKUP(B2,Sheet2!$A$2:$C$200,2,FALSE))
D1セルに=IF(ISBLANK(B2),"",VLOOKUP(B2,Sheet2!$A$2:$C$200,3,FALSE))
E1セルは空白で
F1セルに=IF(D2="","",D2*E2)
といれて、C1からF1までをコピーしてその下の行にタテに貼り付ければ出来ますよ。
おそらくエラーが出たのは、コピーしたときにVLOOKUP関数の最初のセルの指定がずれてしまっているのでは無いかと思いますよ。     

Qかな入力で「ろ」を押すと何も文字が出ません。

 かな入力で「る」を押すと、「.」になり、「め」を押すと「/」になり、「ろ」を押すと何も文字が出ません。他のキーは普通に出ます。
 何か操作方法があるのでしょうか?
 あるいは、壊れてしまったのでしょうか?

Aベストアンサー

こんにちは。

ノートですか?
NumLockになっていませんか?

解除方法は機種によって違いますので何とも・・・

Qエクセル2007でプルダウンで選んだものに反応

Excel2007でプルダウンで選んだものに反応して隣のセルが自動入力される方法(エクセル2007)
A1をプルダウンで「猫」「犬」から選べるようにし、「猫」を選んだ場合B1に自動に「111」が、「犬」を選んだ場合B1に自動に「222」と入力されるようにしたいです。
ご教授の程、宜しくお願いします。

Aベストアンサー

VLOOKUP関数での方法です。
(1)別シートに入力文字列と対応コード表を作成。(仮にSheet2のA:B列範囲で順不同)
(2)B1に=IF(COUNTIF(Sheet2!A:A,A1),VLOOKUP(A1,Sheet2!A:B,2FALSE),"")を設定
   入力文字列が存在しない場合は空白としています。

Qキーボードの「Y」、「U」、「I」...が数字入力になる

 WIN2000使用の友人からの相談です、宜しくお願いします。
 キーボードの「Y」、「U」、「I」....が数字入力になっていて、変更しようとしてもどこから変更したらよいのかよく
分りません。
 例えばローマ字入力でひらがなの「ろ」を打ち込むと「r6」となって変換も不可です。
 コンパネ>キーボードから色々設定を見ましたがそれらしき所がありません、宜しくお願いします。

Aベストアンサー

非常に良くある質問で、「NumLock(あるいはNumlk)」を押してください。


人気Q&Aランキング

おすすめ情報