Excel2000 VBA Enterキーを押して、（右）（下）移動、移動の無効

Excel2000 VBA Enterキーを押して、（右）（下）移動、移動の無効

Sub cursor_right()
'
' enter で右移動
'
'エンターキーを押して右移動

    Application.MoveAfterReturn = True
    Application.MoveAfterReturnDirection = xlToRight
  
   
End Sub

---

Sub cursor_down()
'
' enter で下移動
'
'エンターキーを押して下移動

    Application.MoveAfterReturn = True
    Application.MoveAfterReturnDirection = xlDown
  
End Sub

---

Sub move_after_false()
'
' enter で移動無効
'
'エンターキーを押して移動を無効

    Application.MoveAfterReturn = False
   
End Sub

 

再生できない場合、ダウンロードは🎥こちら

タグ：Excel2000 VBA