[已解决]求助：VBA工作表事件，防止指定区域有重复值输入

yjwdjfqb · 发表于 2011-8-13 16:46

用VBA工作表事件的方法，防止
C4：M4这个区域有重复值输入，
当有重复值输入时，弹出提示框“该区域禁止输入重复值”，并且光标返回到当前单元格消除当前单元格的重复值。

见附件，请老师们帮忙，写个VBA工作表事件。

谢谢大家！！！

最佳答案

月排行榜 / 总排行榜

wbzxz

2011-8-13 18:06

把以下代码放入表三中

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim rngTemp As Range
Dim b As Boolean
Application.EnableEvents = False
Set rng = Application.Union(Range("C4:M4"), Range("F8:P8"), Range("J12：L15"), Range("H15：H23"))
b = True
If Not Application.Intersect(Target, rng) Is Nothing Then
For Each rng In Range("C4:M4")
If Target.Address <> rng.Address And rng = Target Then
b = False
Exit For
End If
Next
For Each rng In Range("F8:P8")
If Target.Address <> rng.Address And rng = Target Then
b = False
Exit For
End If
Next
For Each rng In Range("J12:L15")
If Target.Address <> rng.Address And rng = Target Then
b = False
Exit For
End If
Next
For Each rng In Range("H15：H23")
If Target.Address <> rng.Address And rng = Target Then
b = False
Exit For
End If
Next
End If
If b = False Then
MsgBox "该区域禁止输入重复值"
Target = ""
Target.Select
End If
Application.EnableEvents = True
End Sub

复制代码

详见附件：

VBA工作表事件，防止指定区域有重复值输入.rar (12.59 KB, 下载次数: 110)

yjwdjfqb · 发表于 2011-8-13 16:55

回复 yjwdjfqb 的帖子

哦，刚才那个附件，没有发对，大家以这个附件为准吧，，，谢谢大家了

用VBA工作表事件的方法，防止
C4：M4，F8：P8，J12：L15，H15：H23
这几个区域有重复值输入，
当有重复值输入时，弹出提示框“该区域禁止输入重复值”，并且光标返回到当前单元格消除当前单元格的重复值。

fjmxwrs · 发表于 2011-8-13 17:01

晕，你把附件的东西都删除了，又表述不清，实难猜出你要的是什么，是每个区域单独不能重复吗？晕，你输入的是什么样的数据？

wbzxz · 发表于 2011-8-13 17:22

其实数据有效性就可以啊，不过如果学习的话，到可以用vba试一试，详见附件

VBA工作表事件，防止指定区域有重复值输入.rar (2.01 KB, 下载次数: 33)

yjwdjfqb · 发表于 2011-8-13 17:29

回复 wbzxz 的帖子

老师，你好，你发的那个附件中没有VBA代码，你下载二楼那个附件，给我写一下代码好吧，谢谢啦。。。

wbzxz · 发表于 2011-8-13 17:29

回复 yjwdjfqb 的帖子

新附件和老附件相比，不过是多增加了几个区域而已，多加几个for next 循环就行啊。

yjwdjfqb · 发表于 2011-8-13 17:30

回复 wbzxz 的帖子

老师，你刚才发的那个附件中没有VBA代码

wbzxz · 发表于 2011-8-13 18:06

把以下代码放入表三中

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim rngTemp As Range
Dim b As Boolean
Application.EnableEvents = False
Set rng = Application.Union(Range("C4:M4"), Range("F8:P8"), Range("J12：L15"), Range("H15：H23"))
b = True
If Not Application.Intersect(Target, rng) Is Nothing Then
For Each rng In Range("C4:M4")
If Target.Address <> rng.Address And rng = Target Then
b = False
Exit For
End If
Next
For Each rng In Range("F8:P8")
If Target.Address <> rng.Address And rng = Target Then
b = False
Exit For
End If
Next
For Each rng In Range("J12:L15")
If Target.Address <> rng.Address And rng = Target Then
b = False
Exit For
End If
Next
For Each rng In Range("H15：H23")
If Target.Address <> rng.Address And rng = Target Then
b = False
Exit For
End If
Next
End If
If b = False Then
MsgBox "该区域禁止输入重复值"
Target = ""
Target.Select
End If
Application.EnableEvents = True
End Sub

复制代码

详见附件：

VBA工作表事件，防止指定区域有重复值输入.rar (12.59 KB, 下载次数: 110)

yjwdjfqb · 发表于 2011-8-13 18:32

回复 wbzxz 的帖子

谢谢老师，不厌其烦的解答，非常的感谢！！！

yjwdjfqb · 发表于 2011-8-13 19:00

回复 wbzxz 的帖子

刚发现一个问题，
这三个区域，再输入，语文，数学等字符时，不能输入。
防止输入重复值，只是针对各自的区域中，不能再出现第二个两样的字符。
如：C4：M4中不能输入重复值；
　　F8：P8中不能输入重复值；
　　H15：H23中不能输入重复值；
　　J12：L15中不能输入重复值；
他们是各自独立的。

请见附件：

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