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

sailorgg

试着用二种方法实现，请版主看看

[color="#0000ff"]楼主第二种方法，利用输入区域单元格的底色，来判断并控制Activecell，有新意-taller

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

wclaw

Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub CellTab Target.Offset(0, -1), True End Sub Sub CellTab(ByVal Target As Range, Optional T1 As Boolean) Dim TabOrder As Variant Dim i As Long, T2 As Boolean If T1 = False And T2 = False Then Application.EnableEvents = True Exit Sub End If T1 = False TabOrder = Array("B3", "C3", "D3", "B4", "C4", "D4", "B5", "C5", "D5") For i = LBound(TabOrder) To UBound(TabOrder) If TabOrder(i) = Target.Address(0, 0) Then If i = UBound(TabOrder) Then Range(TabOrder(LBound(TabOrder))).Select T2 = True Else Application.EnableEvents = False Range(TabOrder(i + 1)).Select T2 = False Exit For End If End If Next i CellTab Target End Sub

[color="#0000ff"]楼主利用数组保存单元格移动顺序，进而控件单元格的移动，是新颖的思路-taller

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

wshzw

答题

龙逸凡

以下是引用taller在2005-7-1 19:02:16的发言：

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

我的答案见附件

[color="#0000ff"]如果当前系统的Application.MoveAfterReturnDirection为向下，那么打开楼主文件就会有问题，请注意打开文件时并不激活工作表的Activate事件，相应代码应该写入工作簿的Open事件中－taller

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

Laolangsex

'说明： '根据题意：1、输入数字（本人认为限制为0-9十个数字,当然可以为其他值） '2、回车按指定的位置移动（本题限定为B3：D5九个单元格内，先列后行移动） Private Sub Worksheet_Activate() Application.MoveAfterReturnDirection = xlToRight '保证单元格向右移动 With Me '代码可改为Activesheet .ScrollArea = "B3:D5" '限定使用区域B3：D5 '限定输入值为0-9十个数字(用数据有效性) .Range("B3:D5").Select With Selection.Validation .Delete .Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _ Operator:=xlBetween, Formula1:="0", Formula2:="9" .IgnoreBlank = True .InCellDropdown = True .ShowInput = True .ShowError = True End With End With End Sub

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

lj1226189

用scrollarea b3:d5 工具选项 鼠标方向向左

keyck

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Worksheets(1).ScrollArea = "B3:D5"

Application.MoveAfterReturnDirection = xlToRight End Sub

bluestorm80

[color="#0000ff"]楼主没有设置Application.MoveAfterReturnDirection－taller

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

Samsea

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

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

bj_yuanshu

命名单元“输入区"+VBA单元选择变动事件处理程序

[color="#0000ff"]输入区域与题目要求不一致－taller

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