php exce设置手机号,如何实现输入姓名或手机号后自动提取数据至列表中？？？...

录制的宏，要如何修改，使表格在指定的查询单元格中输入姓名或手机号码，即实现调取相匹配的客户详细数据？录制的宏代码如下：

Sub chaxun()

,

chaxun 宏()

,

Range("D2:E2").Select

ActiveCell.FormulaR1C1 = "吴生"

Range("D3:E3").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[2]C[-2]"

Range("G3:J3").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[2]C[-4]"

Range("D4").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[1]C"

Range("D5").Select

ActiveCell.FormulaR1C1 = "=客户资料库!RC[1]"

Range("D6").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[-1]C[2]"

Range("F4").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[1]C[1]"

Range("H4").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[1]C"

Range("J4").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[1]C[-1]"

Range("F5").Select

ActiveCell.FormulaR1C1 = "=客户资料库!RC[6]"

Range("H5").Select

ActiveCell.FormulaR1C1 = "=客户资料库!RC[2]"

Range("J5").Select

ActiveCell.FormulaR1C1 = "=客户资料库!RC[1]"

Range("F6").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[-1]C[8]"

Range("H6").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[-1]C[7]"

Range("J6").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[-1]C[3]"

Range("D7").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[-2]C[12]"

Range("F7").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[-2]C[13]"

Range("H7").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[-2]C[10]"

Range("J7").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[-2]C[7]"

Range("D8").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[-3]C[16]"

Range("E8:F8").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[-3]C[16]"

Range("G8:I8").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[-3]C[15]"

Range("J8").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[-3]C[13]"

Range("D9").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[-4]C[20]"

Range("E9:F9").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[-4]C[20]"

Range("G9:I9").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[-4]C[19]"

Range("J9").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[-4]C[17]"

Range("D10").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[-5]C[24]"

Range("F10").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[-5]C[23]"

Range("H10").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[-5]C[22]"

Range("I10:J10").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[-5]C[22]"

Range("D11").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[-6]C[28]"

Range("E11:F11").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[-6]C[28]"

Range("H11").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[-6]C[26]"

Range("J11").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[-6]C[25]"

Range("D12:F12").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[-7]C[32]"

Range("H12:J12").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[-7]C[29]"

Range("D13").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[-8]C[34]"

Range("F13:J13").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[-8]C[33]"

Range("C15").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[-10]C[37]"

Range("D15:J15").Select

ActiveCell.FormulaR1C1 = "=客户资料库!R[-10]C[37]"

Range("D16:J16").Select

End Sub