EXCEL VBA如何实现“不同工作表间自动核对并查找相关数据”?

工作表Sheet1中C2单元格的数据由公式计算得出,如某种条件下计算后显示得数为 510
工作表Sheet2中D列单元格数据依次为 100,200,300,400,500,600 ……
在工作表Sheet1中设置有一个按钮控件对应“宏ABC”
希望点击按钮控件后,程序自动将Sheet1中C2单元格的数据与Sheet2中D列单元格数据核对,并自动选中所属的数据行,如按前面数据计算后选中Sheet2的第5行。
请问VBA代码怎样编写?写在哪里?
请写得详细点。初学

第1个回答  2009-03-27
首先,在“视图”-〉“工具栏”-〉“窗体”下,选择“命令”按钮,画到excel上,然后到宏里面去编程序,假设你按钮的名字叫按钮1
程序如下:
Sub 按钮1_单击()
For i = 1 To 1000
If Cells(i, "D") = Cells(2, "C") Then
Cells(1, "F") = i
Exit For
End If
Next i
End Sub

我最终显示的行数i显示到F列第一格。
当你点按钮,就出来结果了
第2个回答  2009-03-24
Sub aa()
Sheet2.[d:d].Find(Int(Sheet1.Cells(2, 3).Value / 100) * 100).EntireRow.Select
End Sub
启动excel后,ALT+F11,插入菜单---插入模板---复制以上代码,然后执行这个宏.本回答被网友采纳
相似回答