EXCEL 表格中数据返回问题
发布网友
共1个回答
热心网友
1、分别命名：表格1，表格2
2、点击表格2，按Alt+F11,进入VBE界面（如果你的Office不能运行VBA的，那么这个方法就不行）
3、在vbe的界面，输入代码：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sht As Worksheet
On Error Resume Next
数字= Target.Value
If Application.WorksheetFunction.IsNumber(数字) = False Then Exit Sub
颜色 = Worksheets("表格1").Cells.Find(what:=数字).Interior.Color
Target.Interior.Color = 颜色
End Sub
然后就可以了。
对比下，看下输入的对不对！！
有几点要注意：如果输入的不是数字，或者输入的是文本型的数字，是没效果的。输入表格1不存在的数字，会填充为黑色！ 图片上有效果图
还有，我不知道你用的是哪个版本的excel，工作表的后缀必须是xls或者xlsm
