我知道这是个老问题,但有人可能还想知道答案。
更进一步,更具体的问题是,你可以在工作表的Worksheet_Change
宏中添加代码。
-右击工作表,查看代码。
-将下拉(General)改为工作表,(Declarations)改为工作表_Change。
在我给出你想要的代码之前,请注意,如果你有一个比Excel 2007更早的版本,你的用户将只有256列(A-IV)可以使用。在Excel 2007之后,他将有16384列。
首先,如果他想做的只是移动到下一列,你可以直接进入选项/高级,并将ENTER时光标移动的DOWN改为RIGHT。但由于他希望有一个自定义的设置,我提供了这段代码。
只需将其粘贴到工作表和更改下拉菜单下的空白处。
Private Sub Worksheet_Change(ByVal Target As Range)
tgr = Target.Row
tgc = Target.Column
If Trim(Cells(1, tgc)) <> "" And Trim(Cells(2, tgc)) <> "" Then
Cells(1, tgc + 1).Select
ElseIf Trim(Cells(1, tgc)) <> "" And Trim(Cells(2, tgc)) = "" Then
Cells(2, tgc).Select
End If
End Sub
这段代码假设用户正在开始一个单元格A1
。