有一点小麻烦,因为Excel自动的搜索方式是按行进行的,而楼主要求是按列,没辙,我就弄个小子程序,并把楼主要求的范围按列拆成三个区域,然后逐个搜索了。
代码如下,效率也很高,因为一找到空的就停止了。
Private Sub Worksheet_Change(ByVal Target As Range)
If Not FoundBlank(Range("A1:A20")) Then
If Not FoundBlank(Range("B1:B20")) Then Call FoundBlank(Range("C1:C20"))
End If
End Sub
Private Function FoundBlank(myRange As Range) As Boolean
Dim m As Range
FoundBlank = False
For Each m In myRange
If m.Text = "" Then
m.Select
FoundBlank = True
Exit For
End If
Next m
End Function
快捷键的问题,这个是Excel系统自带的,只能按它的规则去设置,没法自己弄呀。
不过呢,把上面的代码放在工作表的代码区域中,你什么快捷都不用按了,在你输入时,它自动执行定位的!当然这样只对当前有代码的工作表有效。多个工作表的话就把代码多放几次。
有疑问,请Hi我或给我发百度消息
GoodLuck!
如果,只能在A2:C20这三列中录入数据,其他地方均锁定。这样的情况比较好实现!
(超出就报错!)
如:1、将A2:C20单元格作好块标志——选择数值——保护——“锁定”去消打勾!
2、点击表左上第一格,点工具——保护——保护工作表!
这样除A2:C20内可输入数据,其他地方点击均会警报!录不进数据!
但就是光标不会象你要的,自动跳到B2去!(但不能录数据的地方,你可设其他色,以示提示)
没看懂什么意思?