Excelに F2キー と Enterキーを送るマクロ

Excelに F2キー と Enterキーを送るマクロ Excel
Excelに F2キー と Enterキーを送るマクロ

結論:マクロに組み込めば F2キー(編集)とEnterキー(編集終了)の連続入力が可能。他のブック(エクセルファイル)でも動きます。


 最終更新  2018/10/19

new021_05 Windows 10 の Excel2013 で動くように修正しました。

Excel VBA コード まとめ





はじめに

Excelで、F2キー(編集)とEnterキー(編集終了)の連続で入力した機会はないですか?

ないですか。。。(笑)

セルに数値が入っていて、「!」が、ひし形に囲まれているものを見たことないですかね?

いや、あるはず(笑)

そのひし形とクリックすると、

「数値が文字列として保存されています」とか

「数値に変換する(C)」とか

「このエラーに関するヘルプ(H)」とか

「このセルにある数値が、テキスト形式が、またはアポストロフィで始まっています。」とか

が出てきます。

これを解消するには、セルをダブルクリックして、編集モードにして、

編集が完了すれば、自動的に数値に置き換えられるのですが、

ダブルクリックが面倒というとき、

F2キー(編集)とEnterキー(編集終了)で完了するというものです。

他にも、日付「平成23年02月01日」という文字列がセルに入っているとき、

同じく、編集モード→編集完了 とすると、「2011/2/1」と値が自動的に変換されます。

この自動変換をマクロでやってしまおうというのが今回のテーマです(前置きが長い?、笑)

もくじに戻る




マクロコード

少し修正しました。(2018/10/19)
———————————————————
Sub F2キー()

‘ Macro1 Macro

Dim C As Integer ‘列 A列だと a or 1 、C列だと c or 3
Dim FR As Integer ‘開始行
Dim LR As Integer ‘最終行

C = InputBox(“列は?”, “確認”, “”)
FR = InputBox(“開始行目は?”, “確認”, “”)
LR = InputBox(“終了行目は?”, “確認”, “”)

Dim R As Variant
ActiveSheet.Select
Cells(1, 1).Activate

For R = FR To LR
Cells(FR, C).Select
SendKeys “{F2}”, True
SendKeys “{ENTER}”, True
Next R


End Sub

———————————————————

入力を聞かれるので

列 と 開始行 と終了行 をして実行すれば、

「SendKeys “{F2}”, True」が 選択されているセルに対して、

F2キーを入力したのと同じ動作を行うのですw

これで、F2キー(編集)とEnterキー(編集終了)の連続入力が可能になるわけですw

もくじに戻る




実行動画

 

実行結果(Youtube:Excelに F2キー と Enterキーを送る)

実行結果(Youtube:Excelに F2キー と Enterキーを送る その2)

もくじに戻る



列番号が分からない

ご質問があり、追加しました。(2018/10/19)
取り急ぎ貼付けだけ。。。
ちなみに、列の表示が「A」でも「4」とかでもマクロの動作に変わりは、ありません。

もくじに戻る




さいごに

いかがでしたでしょうか?
非常にマニアックな動きをしていますが、いまだにこの記事のアクセス数は多いです。
意外と需要があるんですかねw

これを応用すれば、F2キーだけでなく色々と使えそうですね
(F4キーを送れば、書式がコピーされるとか。。。)

以上です。

読んで頂いてありがとうございました。

 

もし、「役に立った!」と思いましたら、筆者の記事リンク↓をたどって何か商品(何でもOK)を買って頂けたらアフィリエイトが発生して嬉しいです!
[php_everywhere]

Amazonリンク

もくじに戻る




【Excel】【marco】 マクロ 2011年02月14日

タイトルとURLをコピーしました