excel vba回车键移动选择

Question

I have a question: in excel I want, when I press the return key, move the selection one cell to the right. I know this option can be changed under options in excel. I want to set this option programmatically so it only works with one workbook when it loads, but not with other workbooks... so the option will be resetted back to the original "down" action when the workbook is closed.

Can this be done in vba? and how?

Answer 1

While maybe not completely recommended – using TAB would be how most people work this – You can change the option with the MoveAfterReturnDirection property.

So if you would have something like

Private Sub Workbook_WindowActivate(ByVal Wn As Excel.Window)
    Application.MoveAfterReturnDirection = xlToRight
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Excel.Window)
    Application.MoveAfterReturnDirection = xlDown
End Sub

in the code for the workbook, that should accomplish something along the lines of what you are asking.

Notice that this will change the setting for anyone who are using the workbook, and if they had anything else than Down set, then that will change. You could work around this by capturing the original value using a global variable, but I wouldn't bet my life on that it wouldn't mess up someones setting at some point.
Actually, testing the latter managed to somehow set my settings to "left" , after closing the book.

An even worse way to do it would be to completely change the function of the Enter key, using the OnKey method. Making the Enter key return a Tab key press. The approach would be the same, but using OnKey and then creating a sub that uses something like SendKeys to return the Tab press.