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

taller

题目要求：利用VBA的代码,有几种方法可以实现下面的效果:输入数字后按回车,光标按照如下方式移动.(示例见下图)

注：本题的出题人和评审人为Taller。

本期竞赛题目已经总结请参见 Excel VBA第一期竞赛总结

[此贴子已经被作者于2005-12-3 23:23:58编辑过]

来生缘

我先抛个石子先把按enter后键移动改为向右

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 5 And Target.Row < 5 Then Target.Offset(1, -3).Select ElseIf Target.Column = 5 And Target.Row >= 5 Then Target.Offset(-2, -3).Select End If End Sub

[color="#FF0000"]提醒：VBA测试题目以答题者提供的代码，或者示例文件为准，文字形式的表述在审核时不予考虑。鉴于在本期出题时并未声明此原则，所以这次将给予奖励积分。－taller

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

清风_ll

[color="#0000ff"]楼主代码中的亮点是文件退出时恢复了系统Application.MoveAfterReturnDirection的原来设置.-taller

[此贴子已经被taller于2005-7-23 11:03:47编辑过]

guangyp

Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer, j As Integer i = Target.Row j = Target.Column If i > 2 And i < 6 And j > 1 And j < 5 Then If j + 1 = 5 Then If i + 1 < 6 Then Cells(i + 1, 2).Select Else Range("B3").Select Else Cells(i, j + 1).Select End If End If End Sub

[color="#0000ff"]楼主代码中的没有考虑只按回车(也就是没有输入)的情况，但是鉴于出题时并未提出此要求，所以给予加分-taller

[此贴子已经被taller于2005-7-23 11:23:16编辑过]

cofe2000

先来一个试试

Private Sub Workbook_Open() Application.MoveAfterReturnDirection = xlToRight With Sheet1 .Range("B3:D5").ClearContents .ScrollArea = "B3:D5" .Range("B3").Select End With End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveCell.Value = ActiveCell.Value + 1 End Sub

asdf1001

交卷

maddog

先把輸入範圍儲存格的鎖定取消 再輸入以下程序 (我用 auto_open)

Sub Auto_Open()

Application.MoveAfterReturnDirection = xlToRight Sheet1.EnableSelection = xlUnlockedCells

End Sub

用 auto_close 還原 (我是用 excel2000, EnableSelection 會自動還原)

Sub Auto_close()

Application.MoveAfterReturnDirection = xlDown

End Sub

保護工作表, 儲存, 則每次開啟皆可用

跟貼不懂上傳文件, 怎麼辦 ????

ps. 不用 vba 也可做到

1 先把輸入範圍儲存格的鎖定取消 2 保護工作表 3 打開控制工具箱 4 打開屬性控制項 5 於 EnableSelection 選用 "1 - xlUnLockedCells " 6 保護工作表即可

halfzx

我是蔡鸟，只会用死办法：将“按回车键后光标跳转的方向”改为“向右”，选定这个单元格区域，录制这个宏，输入数据就可以实现这样的效果了。

乐无存

以下是我的方法：

Sub wlq2right() Range("B3:D5").Select Application.MoveAfterReturnDirection = xlToRight End Sub

gvntw

刚学的，请看看行不。

[color="#0000ff"]楼主代码中的没有考虑只按回车(也就是没有输入)的情况，但是鉴于出题时并未提出此要求，所以给予加分-taller

[此贴子已经被taller于2005-7-23 11:43:51编辑过]