[已解决]单元格中滚动输入

asiaexcel · 发表于 2015-1-31 20:52

本帖最后由 asiaexcel 于 2015-2-28 21:17 编辑

大家给看看，谢谢各位了。

最佳答案

爱疯

2015-2-2 09:58

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r, c
r = Target.Row: c = Target.Column
If r > 1 And r < 19 And c = 1 Then r = IIf(r = 18, 2, r + 1)
Cells(r, c).Activate
End Sub

2.rar (12.32 KB, 下载次数: 9)

asiaexcel · 发表于 2015-1-31 20:52

请各位帮忙。

爱疯 · 发表于 2015-1-31 21:07

发个图，发代码，可能能快点解决吧，手机路过

wangjy023 · 发表于 2015-2-1 20:55

用鼠标框选要输入的全部单元格，直接输入，回车就行了，

asiaexcel · 发表于 2015-2-2 06:58

wangjy023 发表于 2015-2-1 20:55
用鼠标框选要输入的全部单元格，直接输入，回车就行了，

怎么自动返回A2

爱疯 · 发表于 2015-2-2 09:58

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r, c
r = Target.Row: c = Target.Column
If r > 1 And r < 19 And c = 1 Then r = IIf(r = 18, 2, r + 1)
Cells(r, c).Activate
End Sub

2.rar (12.32 KB, 下载次数: 9)

qqyyh · 发表于 2015-2-2 10:03

认真学习！！

		自动登录	找回密码
密码			注册

[已解决]单元格中滚动输入

评分

RE: 单元格中滚动输入