エクセルで数値データの早い入力は？

質問

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

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

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

回答No.3

misaki02

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

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

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

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

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

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

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

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

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

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

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

がんばって下さい。

お礼

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

回答No.2

misaki02

シートのイベントか
下のフォームで可能です。
マクロです。

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

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.４のマクロの実行の仕方も教えていただけないでしょうか？
今後、２桁以外に１桁や３桁のデータも発生する可能性があるので、その時には自分でアレンジしたいと思っています。

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

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

回答No.1

sevasu

やはり、Ｅｎｔｅｒで確定しなくては、次のセルに移らないようです。
矢印でもいいですけど．．．

お礼

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