結論:マクロに組み込めば F2キー(編集)とEnterキー(編集終了)の連続入力が可能。他のブック(エクセルファイル)でも動きます。
Windows 10 の Excel2013 で動くように修正しました。
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]
もくじに戻る
【Excel】【marco】 マクロ 2011年02月14日