作者：绿色风
分类：
时间：2022-08-18
浏览：135
楼主
研究研究 |
Q:如何自动查找信息？
A:利用数据有效性+Find来实现
- Private Sub Worksheet_Change(ByVal Target As Range)
- If Target.Address = "$B$1" Then
- Sheet3.Range("C1:H65526").ClearContents
- Dim k, c As Range, frows As String, l As Long
- If Len(Target.Value) < 1 Then Exit Sub
- Application.ScreenUpdating = False '不闪的代码
- k = Target.Value
-
- With Sheets("餐厅详细信息").Range("E2:E" & Sheets("餐厅详细信息").UsedRange.Rows.Count)
- Set c = .Find(k, LookIn:=xlValues, lookat:=xlPart)
- If Not c Is Nothing Then
- firstAddress = c.Address
- Do
- If InStr(frows, "|" & c.Row & "|") < 1 Then
- l = l + 1
- Sheets("餐厅详细信息").Range("D" & c.Row & ":I" & c.Row).Copy Sheet3.Cells(l, 3)
- frows = frows & "|" & c.Row & "|"
- End If
- Set c = .FindNext(c)
-
- Loop While Not c Is Nothing And firstAddress <> c.Address
- End If
- End With
- End If
- End Sub
 餐厅区域划分详细信息.rar
|
2楼
亡者天下 |
自动化办公
|
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一