excel VBA代码，自动回车怎么写？
答案:2 悬赏:60 手机版
解决时间 2021-01-25 07:17
- 提问者网友：我是我
- 2021-01-24 15:24
excel VBA代码，自动回车怎么写？比如我想在G8中输入9位数字后自动回车，怎么写？VBA中的回车代码怎么写？
最佳答案
- 五星知识达人网友：胯下狙击手
- 2021-01-24 15:31
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
On Error Resume Next
Application.EnableEvents = False
If Len(Range("G8")) = 9 Then
Range("G9").Select
End If
Application.EnableEvents = True
End Sub
全部回答
- 1楼网友：患得患失的劫
- 2021-01-24 15:56
其实工作表中的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
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯