excelの入力について

質問

エクセルで１桁の数字を１列にたくさん入力したいのですが、エンターキーを押すのが面倒に感じます。で、１桁数字を入力した瞬間に次の行に移動してくれたらいいのですが、恐らくVBAで何とかなるような気がするのですがどのように記述したらいいのか分かりません。このようなことが可能なら教えて頂きたいです。よろしくお願いいたします。

回答No.3

noname#176215 · ベストアンサー

#ANo.1 のものです。ごめんなさい「"TenNum"」の部分の前に「'」
が抜けてました。「"'TenNum"」として下さい。

Sub xNumOn()
With Application
For i = 0 To 9
.OnKey "{" & i + 96 & "}", "'TenNum" & """" & i & """" & "'"
Next
End With
End Sub

Sub xNumOff()
Dim i As Long
With Application
For i = 0 To 9
.OnKey "{" & i + 96 & "}"
Next
End With
End Sub

Sub TenNum(n As Long)
With Selection
.Value = n
.Offset(1, 0).Select
End With
End Sub

こうです。失礼しました。

お礼

ありがとうございました。出来るようになりました。ファイルを開くときにxNumOnを実行して閉じるときにxNumOffを実行するようにしました。

回答No.2

imogasi

１つのアイデアを上げます。
テキストボックスをエクセルシートに貼り付けます。
テキストブックのデザインモード中にダブルクリクして
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Static i
i = i + 1
Cells(i, "a") = Chr(KeyAscii)
End Sub
を貼り付けます。
テキストボックスのデザインモードを抜け、
テキストボックスに文字を入れると、1列に1セル１文字にセットされて行きます。
テキストがスクロールしないと不便であったり、
初期化（最初のセル指定）や終了はどうするかなど、仕様上で考えるべきことがあり、それらに対応する技術を要することがあります。
どの世界でも、珍奇なニーズには、自分で勉強して実現するか、金を出してプロにやらせるかでしょうね。

お礼

ありがとうございました。テキストボックスを使うという手もあるんですね。何かのときに参考にさせて頂きます。

回答No.1

noname#176215

つい先日 別板で回答したとこです。

Sub xNumOn()
With Application
For i = 0 To 9
.OnKey "{" & i + 96 & "}", "TenNum" & """" & i & """" & "'"
Next
End With
End Sub

Sub xNumOff()
Dim i As Long
With Application
For i = 0 To 9
.OnKey "{" & i + 96 & "}"
Next
End With
End Sub

Sub TenNum(n As Long)
With Selection
.Value = n
.Offset(1, 0).Select
End With
End Sub

「xNumOn」を実行で 1桁数字入力
「xNumOff」を実行で 元の入力方法に戻る

以上でどうでしょう。

お礼

解答ありがとうございました。標準モジュール二、上記をコピーし、やってみたんですが
マクロ'Book1!TenNum"1"''が見つかりません。
というエラーメッセージが出てしまいます。
.OnKey "{" & i + 96 & "}", "TenNum" & """" & i & """" & "'"
の部分を
.OnKey "{" & i + 96 & "}", "TenNum" & "(" & i & ")"
のように変えてもやはり
マクロTenNum(1)が見つかりません。
というエラーメッセージが出てしまいます。
何がいけないのか分かりません。別板の方ではうまくいったんでしょうか。