曼城足球论坛技术论坛

找回密码
收费注册

QQ登录

只需一步,快速起先

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

[求助] 求助:如何使用VBA。

[复制链接]

TA的精华主题

TA的得分主题

跳转到指定楼层
1
公告于 2020-10-16 23:59 | 只看该作者 回帖嘉勉 | 倒序观赏 | 阅读形式
求助:如何使用VBA。
案例:假如数据库的办事表中中有向例项目1,5,4,3,2。
第一种情状:B列单元格中展示数据库中的项目。
第二种情状:B列单元格中展示数据库中不生存的项目。
第三种情状:B列单元格中展示数据库中不生存的项目。

这三种情状别离如何写VBA?

求助:如何使用VBA,在建立的数据库中筛选出形式?.zip

9.42 KB, 下载次数: 9

TA的精华主题

TA的得分主题

2
公告于 2020-10-17 06:41 来自手机 | 只看该作者
建立字典举办鉴定(●°u°●)」

TA的精华主题

TA的得分主题

3
公告于 2020-10-17 11:12 | 只看该作者
Sub 鉴定1()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("数据库")
r = .Cells(Rows.足球赛免费直播。Count, 1).End(xlUp).Row
If r < 2 Then MsgBox "数据库为空": Exit Sub,足球赛免费直播。
ar = .Range("a1:a" & r)
End With
For i = 2 To UBound(ar)
If Trim(ar(i, 1)) <> "" Then
d(Trim(ar(i, 1))) = ""
End If
Next i
With Sheet1
m = .[b3].End(xlDown).Row
.Range("a2:a" & m) = Empty,足球赛免费直播。
br = .Range("a2:b" & m)
For i = 2 To UBound(br)
zf = ""
If Trim(br(i, 2)) <> "" Then
If InStr(br(i, 2),第一足球网论坛。 ",") > 0 Then
rr = Split(br(i, 2),足球直播论坛。 ",")
For s = 0 To UBound(rr)
If d.exists(Trim(rr(s))) Then,足球比分论坛。
If zf = "" Then,足球赛免费直播。
zf = rr(s)
Else
zf = zf & "," & rr(s),足球求助:如何应用VB足球赛免费直播A。
End If
End If
Next s
ElseIf InStr(br(i, 2),在建树的数据库中挑选出景象?。 ",") = 0 Then
If d.exists(Trim(br(i,足球VBA措施垦荒。 2))) Then
zf = br(i, 2)
End If
End If
br(i, 1) = zf
End If
Next i
.Range("a2:b" & m) = br
End With
MsgBox "ok!"
End Sub

TA的精华主题

TA的得分主题

4
公告于 2020-10-17 11:13 | 只看该作者
求助:如何使用VBA,在建立的数据库中筛选出形式?.rar (18.73 KB, 下载次数: 5)

TA的精华主题

TA的得分主题

5
公告于 2020-10-17 11:14 | 只看该作者

TA的精华主题

TA的得分主题

6
公告于 2020-10-17 11:26 | 只看该作者

TA的精华主题

TA的得分主题

7
公告于 2020-10-17 11:27 | 只看该作者
Sub 鉴定2()
Dim d As Object
Set d = CreateObject("scripting.dictionary"),曼城足球论坛技术论坛。
With Sheets("数据库")
r = .Cells(Rows.足球。Count, 1).End(xlUp).Row
If r < 2 Then MsgBox "数据库为空": Exit Sub,求助。
ar = .Range("a1:a" & r)
End With
For i = 2 To UBound(ar)
If Trim(ar(i, 1)) <> "" Then
d(Trim(ar(i, 1))) = ""
End If
Next i
With Sheet1
m = .[b14].End(xlDown).Row
.Range("a14:a" & m) = Empty,如何。
br = .Range("a13:b" & m)
For i = 2 To UBound(br)
zf = ""
If Trim(br(i, 2)) <> "" Then
If InStr(br(i, 2),应用。 ",") > 0 Then
rr = Split(br(i, 2),vb。 ",")
For s = 0 To UBound(rr)
If Not d.exists(Trim(rr(s))) Then,足球赛。
zf = "*",免费。
Exit For
End If
Next s
ElseIf InStr(br(i, 2),直播。 ",") = 0 Then
If Not d.exists(Trim(br(i,a。 2))) Then
zf = "*"
End If
End If
br(i, 1) = zf
End If
Next i
.Range("a13:b" & m) = br
End With
MsgBox "ok!"
End Sub

TA的精华主题

TA的得分主题

8
公告于 2020-10-17 14:35 | 只看该作者
自訂函數:
Function CheckStr(xStr, xArea As Range,在建。 xN%) As String
Dim xD, A, K%, T$
Set xD = CreateObject("Scripting.Dictionary"),建树。
For Each A In xArea
If A <> "" Then xD(A & "") = 1
Next
K = IIf(xN = 1, 1, 0)
For Each A In Split(xStr, ",")
If Val(xD(A & "")) = K Then T = T & "," & A,数据库。
Next A
If xN = 3 And T <> "" Then T = "**",挑选出。
CheckStr = Mid(T, 2)
End Function

Xl0000153.rar (14.04 KB, 下载次数: 2)


TA的精华主题

TA的得分主题

9
楼主 | 公告于 2020-10-17 17:48 | 只看该作者
准提部林 公告于 2020-10-17 14:35
自訂函數:
Function CheckStr(xStr, xArea As Range, xN%) As String
Dim xD, A, K%, T$

这个看的不是很懂,是怎样使他运行的?

TA的精华主题

TA的得分主题

10
楼主 | 公告于 2020-10-17 21:03 | 只看该作者
公告于 2020-10-17 11:27
Sub 鉴定2()
Dim d As Object
Set d = CreateObject("scripting.dictionary")

您好,自己水平有限。
您需要登录后才不妨回帖 登录 | 收费注册

本版积分规则

眷注官方微信,高效办公专列,每天发车

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

GMT+8, 2020-10-18 11:21, Processed in 0.0 second(s),景象。 13 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

? 1999-2021 Wooffice Inc.

沪公网安备号 沪ICP备号

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

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