[第1期]控制单元格的输入顺序★★(已总结)

james.wan

[color="#0000ff"]未实现题目要求－taller

[此贴子已经被taller于2005-7-23 12:21:18编辑过]

taller

第一期Excel VBA竞赛总结： 由于时间仓促，所以本期题目对于限定条件没有充分描述，例如：不输入内容，只按回车时单元格单元格的控制，以及除了输入区域，其它单元格的状态（谢谢Emily版主提醒），鉴于上述情况，本次评分的标准是，只考察输入区域内容对于输入顺序的控制。 [color="#0000ff"]方法一：选中目标输入区域，活动单元格定位于数据区域的第一个单元格。 Private Sub Workbook_Open() Application.MoveAfterReturnDirection = xlToRight Range("B3:D5").Select End Sub 请大家注意下面的代码，虽然其输入顺序不完全符合本期题目的要求，但是有时也可以用于类似的应用中。处于数据输入模式时，仅可在当前选定区域的未锁定单元格中输入数据，但是当前选中区域不会出现颜色反转；并且输入顺序不受MoveAfterReturnDirection 的影响，默认为回车后向下移动。使用<ESC>键可以退出数据输入模式。 Private Sub Workbook_Open() Application.MoveAfterReturnDirection = xlToRight With ActiveSheet.Range("B3:D5") .Locked = False .Select End With Application.DataEntryMode = xlOn End Sub [color="#0000ff"]方法二：利用ScrollArea限定数据输入区域。 Private Sub Workbook_Open() Application.MoveAfterReturnDirection = xlToRight ActiveSheet.ScrollArea = "B3:D5" [B3].Select End Sub [color="#0000ff"]方法三：利用保护工作表限定数据输入区域。 Private Sub Workbook_Open() Application.MoveAfterReturnDirection = xlToRight With ActiveSheet .Cells.Locked = True .Range("B3:D5").Locked = False .[b3].Select .Protect .EnableSelection = xlUnlockedCells End With End Sub [color="#0000ff"]方法四：利用SelectChange事件控制输入后的活动单元格。直接判断选中单元格的行号和列号来进行控制活动单元格，下面的代码提供了另外一种的方法，利用Intersect来判断当前选中的单元格是否在数据输入区域中。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rng As Range Application.EnableEvents = False Set rng = Range("B3:D5") If Application.Intersect(Target, rng) Is Nothing Then If Application.Intersect(Target.Offset(1, 0).EntireRow, rng) Is Nothing Then rng.Cells(1).Select Else Cells(Target.Row + 1, rng.Column).Select End If End If Application.EnableEvents = True End Sub Private Sub Workbook_Open() Application.MoveAfterReturnDirection = xlToRight [b3].Select End Sub [color="#0000ff"]方法五：利用SelectChange事件控制输入后的活动单元格，wclaw在14楼提供了另一中思路，利用数组保存单元格移动顺序，进而控件单元格的移动。

最后有点提醒大家，对于更改的系统设置，如Application.MoveAfterReturnDirection，在工作簿退出时应该恢复，请参考3楼清风的帖子。

[此贴子已经被作者于2005-7-23 12:39:34编辑过]

jack.zhou

'不好意思，上两次做的是错的，没有看到当跳到最后一个单元时返回第一个单元格,以及把区域设置错了，加注释便于看懂 Private Sub Worksheet_Change(ByVal Target As Range) Dim Rng1 As Range, Rng2 As Range, icol% Set Rng2 = Range("b3:d5") '可将区域更改为任意连续区域，有通用性 Set Rng1 = Target.Cells(1) icol = Rng2.Column + Rng2.Columns.Count - 1 '获取最后一列列号 If Not Intersect(Rng1, Rng2) Is Nothing Then '判断更改区域是否在指定区域 If Rng1.Address = Rng2(Rng2.Count).Address Then '如果是区域最后一个单元格，则返回第一个单元格 Rng2(1).Activate ElseIf Rng1.Column = icol Then '如果是最后一列，则返回下一列的开始 Rng1.Offset(1, icol * -1 + Rng2.Column).Activate Else '横向移动 Rng1.Offset(0, 1).Activate End If End If End Sub

Sub ScrolAres() Application.MoveAfterReturnDirection = xlToRight '改变回车方向 Me.ScrollArea = "b3:d5" '设置卷轴区域（连续区域） End Sub

Sub LockCells() Application.MoveAfterReturnDirection = xlToRight '改变回车方向 Cells.Locked = True '锁定所有单元格 Range("B3:d5").Locked = False '解锁指定单元格 Me.Protect '保护工作表 Me.EnableSelection = xlUnlockedCells '不可选保护单元格 End Sub

[color="#0000ff"]非常感谢楼主提供了代码注释，便于其他朋友学习-taller

[此贴子已经被taller于2005-7-23 12:00:35编辑过]

fieldsun

先给一个解决办法

Private Sub Worksheet_Activate() Application.MoveAfterReturnDirection = xlToRight ScrollArea = "B3:D5" End Sub

Long_III

斑竹,第一次参加这种答题,比较紧张,忽略了一些事情

先前的回帖是把工作表控制在那几个单元格范围,也直接设置了enter键的方向,虽然也可以实现目的,但觉得不大好

现在增加了selection事件,把它们设置回来,望斑竹给个机会,以我现在发的为主,谢谢!

[color="#0000ff"]楼主没有完全理解题目要求(也许是我对题目解释不够详细),楼主的文件中在第一单元格输入后,会自动在输入区域填充,而在其它单元格输入后没有对单元格的移动做控制,所以未加分-taller

[此贴子已经被taller于2005-7-25 13:32:15编辑过]

yecdx

!!!!!!!!!!!!!!!!

200240

学习了
真的是以前没有注意到这个功能。

fcdd

学习让人进步，知识让人提升