excel当首次查找某个值时,另外一个单元格值加1,再次输入时提示重复输入
姓名性别年龄张三男25李四男28王二女27麻子男26。。。如上表,如果我用vup通过查找张三的年龄,当第一次输入张三时,源数据张三就变色(只要有标记出来就行了),且某个单...
姓名 性别 年龄
张三 男 25
李四 男 28
王二 女 27
麻子 男 26
。
。
。
如上表,如果我用vup通过查找张三的年龄,当第一次输入张三时,源数据张三就变色(只要有标记出来就行了),且某个单元值的值加1(当张三没有时,不加1),当第二,三,四,,次输入张三,某个单元格提示重复输入
感谢亲们,若有方法对的,再追加100分 展开
张三 男 25
李四 男 28
王二 女 27
麻子 男 26
。
。
。
如上表,如果我用vup通过查找张三的年龄,当第一次输入张三时,源数据张三就变色(只要有标记出来就行了),且某个单元值的值加1(当张三没有时,不加1),当第二,三,四,,次输入张三,某个单元格提示重复输入
感谢亲们,若有方法对的,再追加100分 展开
展开全部
下载附件试试, 在F1输入姓名,看看是不是你要的结果。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ra As Range
If Target.Address = "$F$1" Then
Application.EnableEvents = False
If Not IsEmpty(Target) Then
Set Ra = Columns("A").Find(Target)
If Not Ra Is Nothing Then
If Ra.Font.ColorIndex = 3 Then
[F3] = "有重复"
Else
Ra.Font.ColorIndex = 3
Range("F3").ClearContents
[F2] = [F2] + 1
End If
[F5] = Ra.Offset(, 2)
Else
[F3:F5].ClearContents
End If
Else
[F3:F5].ClearContents
End If
Application.EnableEvents = True
End If
End Sub
更多追问追答
追问
没错,就是这种效果,可是如果 我要自己做一个呢,上面这些代码要怎么用呢,能不能解释 下
追答
一下也说不清楚,你自己慢慢琢磨琢磨吧,如果不行,把你具体的表结构发来我帮你。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询