从另一张表中查找值并复制BG

我已经分配了简单的任务（起初我是这么认为的），监视input到Excel中，如果有号码（如0000068145），我需要用它的颜色来突出显示它。 所以我创build了两张Sheet1和Database。 在数据库中我保持我的数据是这样的：

所以我使用这个代码，每当我改变一些东西的时候，

Private Sub Worksheet_Change(ByVal Target As Range) End Sub 

我想过使用Vlookup，但是据我所知它只能检索到价值。

那么你怎么会意识到这种操作呢？

我不能使用Vlookup，我真的需要“数据库”与主表单独分开。

对不起我的英语不好

Answer 1

我认为你的方法使用Worksheet_Change是正确的。

将以下内容放入Sheet1代码中：

 Private Sub Worksheet_Change(ByVal Target As Range) Dim oCell As Range, oDBCell As Range Dim dbWS As Worksheet Dim lColor As Long Set dbWS = ThisWorkbook.Worksheets("Database") For Each oCell In Target Set oDBCell = dbWS.Range("A:A").Find(what:=oCell.Value, LookIn:=xlValues, lookat:=xlWhole) If Not oDBCell Is Nothing Then lColor = oDBCell.Interior.Color oCell.Interior.Color = lColor End If Next End Sub 

您的“数据库”表必须命名为Database 。

现在，如果您将一些值放入Sheet1中的某个单元格中，该单元格也位于数据库表格的A列中，则将从该数据库表格中复制颜色。