[已解决]一行单列输入问题

YUFQ

要求第七行的B到g列，只允许有一列打钩，不允许几列同时打钩，其它行业是如此，请看附件

dcb.rar

2013-4-24 09:00 上传

点击文件名下载附件




10.67 KB, 下载次数: 1

最佳答案

月排行榜 / 总排行榜

csmctjg

2013-4-25 09:48

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If ((Target.Row > 6 And Target.Row < 14) Or (Target.Row > 17 And Target.Row < 26)) And (Target.Column > 1 And Target.Column < 8) Then
   
3.     If Application.CountIf(Range("B" & Target.Row & ":G" & Target.Row), "√") > 1 Then
   
4.         Target = ""
   
5.         MsgBox "该行中不允许几列同时打钩！"
   
6.     End If
   
7. End If
   
8. End Sub

复制代码

跳转到最佳答案楼层

sixnu

都没办法撤销工作表保护，怎么给你做?点啥都是灰色的

csmctjg

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If ((Target.Row > 6 And Target.Row < 14) Or (Target.Row > 17 And Target.Row < 26)) And (Target.Column > 1 And Target.Column < 8) Then
   
3.     If Application.CountIf(Range("B" & Target.Row & ":G" & Target.Row), "√") > 1 Then
   
4.         Target = ""
   
5.         MsgBox "该行中不允许几列同时打钩！"
   
6.     End If
   
7. End If
   
8. End Sub

复制代码