如何依两条件查找信息并返回批注?

作者：绿色风分类：时间：2022-08-18 浏览：82

楼主
liuguansky

Q;如何在表一中查找与表二中B1相同的序号，和与B2相同的日期这两个条件，则在B2中引用表一中相应的批注?
A:用如下代码可以实现:

Sub pzu()
Range("B2").Select
Selection.ClearComments
Dim i&, Myr&, Myc&, Arr, rng As Range
Dim cel As Range, xh, rq, aa$, j&
Application.ScreenUpdating = False
Sheet2.Activate
Arr = Range("a48:m94")
Sheet1.Activate
xh = [b1].Value
rq = [b2].Value
For j = 2 To UBound(Arr, 2)
If Arr(xh, j) = "" Then Exit For
If Arr(xh, j) = rq Then
If Sheet2.Cells(xh + 47, j).Comment Is Nothing Then
MsgBox "单元格中没有批注！"
Else
aa = Sheet2.Cells(xh + 47, j).Comment.Text
With [b2]
If .Comment Is Nothing Then
.AddComment Text:=aa: GoTo 100
Else
.ClearComment
.AddComment Text:=aa: GoTo 100
End If
End With
End If
End If
Next
100:
Application.ScreenUpdating = True
End Sub

引用批注.rar

2楼
kevinchengcw

进来学习一下liuguansky的帖子

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表