怎样使用VBA跨工作表控制不重复值?
1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码,然后运行Private Sub Worksheet_Change(ByVal Target As Ra荏鱿胫协nge)With Target If .Count=1 And (.Column=3) Then '如果一次仅在单个单元格输入且当前列为3 If WorksheetFunction.CountIf(Sheet1.Columns(3), .Value)+ WorksheetFunction.CountIf(Sheet2.Columns(3), .Value) > 1 Then MsgBox "数据重复,请检查后再输入!", 64, "提示" .ClearContents End If End If End WithEnd Sub
5、在两个工作表中的第三列输入一个已存在的学号“025”,系统立即提示数据重复,同时清除输入的数据
声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
阅读量:24
阅读量:68
阅读量:50
阅读量:32
阅读量:42