Question

如何使用特定值自动将CTRL + F搜索..

示例：我有两个带有名称列表的工作表，我想复制一个名称（值）在工作表1的特定单元格中，然后将其放在搜索表2中进行查找。

Answer 1

Neerozz可能在两个工作表上都使用WorkSheet_Change事件-一个工作表使用内部颜色，另一个通知源工作表调整“查找”工作表以将颜色更改为不填充（ws.Cells.Interior.ColorIndex = 0）。您没有指定需要在工作表中添加颜色，而是使它在视觉上变得容易，交互式且易于使用资源。

此代码应用于您要检查的工作表：

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Dim wsCheck As Worksheet
Dim intFound As Integer

Set wsCheck = ThisWorkbook.Worksheets("Sheet1")
intFound = Application.WorksheetFunction.CountIf _
(wsCheck.UsedRange.Cells, UsedRange.Cells)

If intFound > 0 Then: ActiveCell.Interior.Color = rgbCoral

End Sub

丹尼， ExcelVBADude

VBA如何自动执行CTRL + F搜索

1 个答案: