比较高难度的输入限制?(可以考虑用VBA)

1353313808 · 发表于 2005-12-12 12:28

wIWk7oME.rar (2.14 KB, 下载次数: 97)

[此贴子已经被作者于2005-12-12 12:37:08编辑过]

兰色幻想 · 发表于 2005-12-12 12:45

1、=OR(AND(B2<>"",C2<>""),AND(B2="",C2=""))

兰色幻想 · 发表于 2005-12-12 12:51

验证输入后分数可以输入和验证输入后不可修改怎么理解？感觉有矛盾啊

1353313808 · 发表于 2005-12-12 13:11

以下是引用[I]兰色幻想[/I]在2005-12-12 12:51:04的发言：[BR]验证输入后分数可以输入和验证输入后不可修改怎么理解？感觉有矛盾啊

验证输入后验证输入的单元格不可更改验证输入后分数可以输入分数输入后就不可以更改要更改就要在确认处输入验证码

1353313808 · 发表于 2005-12-12 13:17

以下是引用[I]兰色幻想[/I]在2005-12-12 12:45:09的发言：[BR]1、=OR(AND(B2<>"",C2<>""),AND(B2="",C2=""))

要加一个条件 "确认"输入后不能更改或删除本单元格(B列不能更改或删除)

山菊花 · 发表于 2005-12-12 14:20

即时删除“修改”

bVxtTK4U.rar (20.72 KB, 下载次数: 73)

[此贴子已经被作者于2005-12-13 8:08:50编辑过]

1353313808 · 发表于 2005-12-12 14:33

以下是引用[I]山菊花[/I]在2005-12-12 14:20:07的发言：[BR]用VBA：

超强,3Q 烟酒烟酒

trschool · 发表于 2005-12-12 23:26

FrcMQ8sr.rar (41.12 KB, 下载次数: 39)

1353313808 · 发表于 2005-12-13 08:11

以下是引用[I]山菊花[/I]在2005-12-12 14:20:07的发言：[BR]即时删除“修改”

谢谢,有注释就好理解了

1353313808 · 发表于 2005-12-13 08:21

Private Sub Worksheet_Change(ByVal Target As Range)
'If Target.Count = 1 And Target.Column = 3 Then
'If Target = Target.Offset(0, -1) Then
'Application.EnableEvents = False
'Target = ""
'Target.Offset(0, -2).Select
'Application.SendKeys "{F2}"
'Application.EnableEvents = True
'End If
'End If
End Sub

这一截代码初了前后一行无',其余都有',是注释吧,那就是不执行咯,对吧,...??

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row <= 3 Then Exit Sub '光标在前三行的时候，不作任何处理，退出过程

If Target.Count > 1 Then Set Target = ActiveCell '不选择块

If Cells(Target.Row, 2) = Cells(Target.Row, 3) Then '当正确输入“修改”时
If Target.Column = 2 Then Cells(Target.Row, 1).Select '不修改“确定”
Else

If Cells(Target.Row, 2) > "" Then '如果已经确定
If Target.Column <= 2 Then '如果光标在前两列
Cells(Target.Row, 3).Select '强制跳至第三列 (确定以后，分数与“确定”均不可修改)
End If
Else '如果还未确定
If Target.Column = 3 Then Cells(Target.Row, 1).Select '当光标在第三列时强制跳到第一列
End If
End If
End Sub

这里面那个是存盘删掉修改内容呢,好象没有吧,那是怎么实现的呢?

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