曼城足球论坛技术论坛

找回密码
收费注册

QQ登录

只需一步,快速入手下手

EH探索
EH技术汇-专业的职场身手充电站 妙哉!函数段子手兴味讲函数 足球供职器-会足球,做管理系统 足球 Home精品图文教程库
足球不给力? 何不试试FoxTable! 足球 2016函数公式学习大典 Office知识技巧收费学 制造主题竞争力的职场宝典
Tableau-数据可视化工具 曼城足球论坛出品 - VBA代码宝收费下载
你的足球 2010实战技巧学习锦囊 不能自休, 过目难忘的 Office 新界面 足球 VBA典范代码履行指南
巡视: 169 | 回复: 2
打印 上一主题 下一主题

[求助] VBA检测重复值

[复制链接]

TA的精华主题

TA的得分主题

跳转到指定楼层
1
楬橥于 2020-10-16 16:18 | 只看该作者 回帖奖赏 | 倒序涉猎 | 阅读形式
2个sheet,需要按钮提示能否重复,足球直播论坛。依据输出项查询能否在date表中生存,date表为数据库,一个check表为输出项。

按钮检测重复值.rar

15.99 KB, 下载次数: 6

TA的精华主题

TA的得分主题

2
楬橥于 2020-10-16 16:28 | 只看该作者
Sub check2()
Dim arr, k0

With Worksheets("date")
k0 = .[a1].End(4).Row - 1
arr = .[a2].Resize(k0, 4)
End With

For i = 1 To k0
If [a2] = arr(i, 1) And [b2] = arr(i, 2) Then
If [c2] >= arr(i, 3) And [c2] <= arr(i,足球直播论坛。 4) Then MsgBox "重复": Exit Sub,足球直播论坛。
End If
Next

MsgBox "不重复"
End Sub

评分

参与人数 1 鲜花 +1 收起 理由
ytthome + 1 优秀作品

巡视全数评分

TA的精华主题

TA的得分主题

3
楬橥于 2020-10-16 16:55 | 只看该作者
请看附件。

a1.rar

17.19 KB, 下载次数: 5

评分

参与人数 3 鲜花 +7 收起 理由
ytthome + 2 优秀作品
TTZXX2016 + 3 太强壮了
LSYYLW + 2 太强壮了

巡视全数评分

您需要登录后才不妨回帖 登录 | 收费注册

本版积分规则

体贴官方微信,高效办公专列,每天发车

手机版|关于我们|干系我们|曼城足球论坛

GMT+8, 2020-10-18 11:21, Processed in 0.0 second(s),007足球论坛。 15 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

? 1999-2021 Wooffice Inc.

沪公网安备号 沪ICP备号

本论坛言论纯属楬橥者小我意见,任何违反国度相关法律的言论。

快速回复 前往顶部 前往列表