選択範囲にエンターを押す

選択範囲のセルにエンター押すだけのVBAです。

注意点としては、
1) エンター押したい範囲を選択しておくこと。
2) シートを前面に表示してから[Alt]+[F8]で呼び出して実行すること。
です。2)でシート以外が前面にあると、そこに対してF2とEnterキーが送られます。

Sub エンター()
    'エンター押したい範囲を選択してから実行
    Dim c As Variant
    For Each c In Selection
        c.Activate
        Application.SendKeys "{F2}"
        Application.SendKeys "{Enter}"
    Next c
End Sub
タイトルとURLをコピーしました