excel VBA代码，自动回车怎么写？

excel VBA代码，自动回车怎么写？比如我想在G8中输入9位数字后自动回车，怎么写？VBA中的回车代码怎么写？

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Len(Range("G8")) = 9 Then
Range("G9").Select
End If
Application.EnableEvents = True
End Sub

其实工作表中的selectchange和change事件是要付出代价的。我觉得对好不要用vba编写，还不如用自定义格式   1000我想你那个应该是个编号吧，a1为1001，a2为1002……如果是这样一定要用代码的话，那么就把飞雨飘的代码改一下为：

private sub worksheet_change(byval target as range)

if target.column = 1 then target.value = 1000 + target.row

end sub