まとめてF2,Enterを押したことにするマクロ

Excelで表示形式が文字列だったりすると日付も数字も関数も文字列になってしまいます。表示形式を変えても変更されず「F2とEnterを連打していかないといけないのか、、え？500件あるんですけどー」という経験をされた方もいらっしゃるのでは？

実現させること

そんな時に役に立つマクロです。

こんな風になってしまったときに、

F2＞Enterを連打しなければならないセルを囲ってマクロを実行すると

ポンと変換！
これができると大変楽ですね。

ソースコード

Sub F2_Enterbox()

   Dim Last As Integer
   Dim i As Integer

   Last = Selection.Count

   For i = 1 To Last
       Selection(i).Activate
       
       SendKeys "{F2}", True
       SendKeys "{ENTER}", True

   Next i
   
End Sub

このマクロのコピペで実現可能です。

解説すると、次のとおりです。

・選択した範囲のセルは「Selection(1)」「Selection(2)」という風にそれぞれにSelectionの番号が充てられています。
・Selection.Countで最後のSelectionの番号を取得して
・Selection(1)から最後のセルまでを繰り返し実行するようにします
・それぞれのセルに対して、SendKyesで、F2とEnterを送ります

以上です。お役に立てれば何より！