マクロボタンで数字入力がうまくいかない

Question

会社のパソコンがタッチパネルなのですが、画面が小さくスクリーンキーボードを表示すると、操作しにくいのでマクロボタンを使い小スペースで入力を行おうとしたんですが、「F2」→数字→ENTERでマクロ登録したのですが例えば「１２」と打ち込みたいのに上書きされ「２」しか表示されません。改善案を教えてください。

Answer 1

追記のコードの一つの例です。

選択したセルの内容にInputBoxの入力を後ろにつけて元のセルに入れます。

Sub aaa()

Dim wIn As String

wIn = InputBox("入力")

ActiveCell.Value = ActiveCell.Value & wIn

End Sub

ご覧のようにマクロとしては極簡単なものですが、マクロ記録ではできない範疇です。

VBAをまったくご存じない方がこのような掲示板で問題を解決することは困難です。

とりあえずVBAの入門書（大きな本屋でPCのコーナーを覗けば必ず何種類もあります）

を購入されVBAの初歩だけでも理解されたうえで質問することをお勧めします。

Answer 2

y sakuda さん、コメントありがとうございます。

KJ-KAZUMA さん、こんにちは。

残念ながら、"F2" の操作は通常の [マクロの記録] では記録出来ないため、 KJ-KAZUMA さんの方でやりたいことを実現するためには、y sakuda さんからもコメントいただいたように、 VBA のコードを直接記述するという方法しかないのかなと思います。

もし VBA もやってみたいという場合は、 y sakuda さんからいただいたコードもご参考に、ぜひ挑戦してみてくださいね。

　VBA を使用してマクロを作成する

　Office 2010 VBA の基礎知識

同じような情報をお探しの方にもご参考いただけるよう、今回は私の方で \[回答としてマーク\] をいたしました。

今後もぜひ Answers をご利用ください。

Answer 3

まず、うまく行かないコードを出してください

それと何をなさりたいのか具体的にお願いします。

 

12と打ち込むというのは既存の数字に追加したいのか、上書きしたいのか？

（具体的にどのセルがどういう状態でどのような結果を期待されているのか）

 

F2と書かれていますので、多分数式バーに現在の内容を表示してそれの一部修正を意図されているような気がしますが、そういうことであればマクロ記録ではできません。

ユーザーフォームに現在のセルの内容を表示し、それを修正するような本格的なコードが必要になりますし、また入力が楽になるとも思えません。

正直なところタッチパネルに慣れられた方が早いと思います。

 

追記：

もし、入っている数値の前ないしは後ろに追記するとか、具体的に2文字目に入力値を挿入するとか具体的な操作が固定されていれば単純なマクロコードでも可能です。しかし、その場合もマクロ記録ではだめで、ご自分でコードを書く必要（少なくとも記録されたコードの修正）がります。

返信ありがとうございます。

申し訳ありませんがコードについては初心者の為、全くわかりません。

何をしたいかですが、追記の内容通り、数値の後ろに追記できる機能だけで大丈夫です。

具体的には、１／１００の数値入力、日付入力、時間入力をボタンで入力できればと思っています。

コードの修正の方向で解答頂けたらありがたく思います。

Answer 4

まず、うまく行かないコードを出してください

それと何をなさりたいのか具体的にお願いします。

12と打ち込むというのは既存の数字に追加したいのか、上書きしたいのか？

（具体的にどのセルがどういう状態でどのような結果を期待されているのか）

F2と書かれていますので、多分数式バーに現在の内容を表示してそれの一部修正を意図されているような気がしますが、そういうことであればマクロ記録ではできません。

ユーザーフォームに現在のセルの内容を表示し、それを修正するような本格的なコードが必要になりますし、また入力が楽になるとも思えません。

正直なところタッチパネルに慣れられた方が早いと思います。

追記：

もし、入っている数値の前ないしは後ろに追記するとか、具体的に2文字目に入力値を挿入するとか具体的な操作が固定されていれば単純なマクロコードでも可能です。しかし、その場合もマクロ記録ではだめで、ご自分でコードを書く必要（少なくとも記録されたコードの修正）がります。