|
#2
cdhilite2018-01-22 14:02
|
Sub 查询()
Dim rg As Range, i%, j%
Application.ScreenUpdating = False
If IsNumeric([b1]) = False Then MsgBox "单号错误": Exit Sub
Set rg = Sheets("合同配置").Columns(1).Find([b1], , , 1)
If rg Is Nothing Then MsgBox "单号格式不正确或查询不到单号数据！": Exit Sub
With Sheets("合同配置")
i = .Columns(1).Find([b1], searchdirection:=xlNext).Row
arr = .Range("a" & i & ":w" & i)
[E1] = arr(1, 2) '客户单位
[b2] = arr(1, 3) '项目地址
[E2] = arr(1, 4) '产品类型
[B3] = arr(1, 5) '安装方式
[E3] = arr(1, 6) '交付日期
[B4] = arr(1, 7) '质保方式
[E4] = arr(1, 8) '质保期限
[B5] = arr(1, 9) '包装运输
[E5] = arr(1, 10) '销售人员
[B6] = arr(1, 12) '单元规格
[E6] = arr(1, 13) '单元品牌
[B7] = arr(1, 14) '单元排列
[E7] = arr(1, 15) '单元数量
[B8] = arr(1, 16) '安装位置
[E8] = arr(1, 17) '单元价格
[A10] = arr(1, 18) '设备名称
[B10] = arr(1, 19) '设备品牌
[C10] = arr(1, 20) '设备型号
[D10] = arr(1, 21) '设备数量
[E10] = arr(1, 22) '设备单价
[A11] = arr(1, 23) '设备名称
[B11] = arr(1, 24) '设备品牌
[C11] = arr(1, 25) '设备型号
[D11] = arr(1, 26) '设备数量
[E11] = arr(1, 27) '设备单价
[A10] = arr(1, 28) '设备名称
[B10] = arr(1, 29) '设备品牌
[C10] = arr(1, 30) '设备型号
[D10] = arr(1, 31) '设备数量
[E10] = arr(1, 32) '设备单价
[A11] = arr(1, 33) '设备名称
[B11] = arr(1, 34) '设备品牌
[C11] = arr(1, 35) '设备型号
[D11] = arr(1, 36) '设备数量
[E11] = arr(1, 37) '设备单价
[A12] = arr(1, 38) '设备名称
[B12] = arr(1, 39) '设备品牌
[C12] = arr(1, 40) '设备型号
[D12] = arr(1, 41) '设备数量
[E12] = arr(1, 42) '设备单价
[A13] = arr(1, 43) '设备名称
[B13] = arr(1, 44) '设备品牌
[C13] = arr(1, 45) '设备型号
[D13] = arr(1, 46) '设备数量
[E13] = arr(1, 47) '设备单价
[A14] = arr(1, 48) '设备名称
[B14] = arr(1, 49) '设备品牌
[C14] = arr(1, 50) '设备型号
[D14] = arr(1, 51) '设备数量
[E14] = arr(1, 52) '设备单价
[A15] = arr(1, 53) '设备名称
[B15] = arr(1, 54) '设备品牌
[C15] = arr(1, 55) '设备型号
[D15] = arr(1, 56) '设备数量
[E15] = arr(1, 57) '设备单价
[A16] = arr(1, 58) '设备名称
[B16] = arr(1, 59) '设备品牌
[C16] = arr(1, 60) '设备型号
[D16] = arr(1, 61) '设备数量
[E16] = arr(1, 62) '设备单价
[A17] = arr(1, 63) '设备名称
[B17] = arr(1, 64) '设备品牌
[C17] = arr(1, 65) '设备型号
[D17] = arr(1, 66) '设备数量
[E17] = arr(1, 67) '设备单价
[A18] = arr(1, 68) '设备名称
[B18] = arr(1, 69) '设备品牌
[C18] = arr(1, 70) '设备型号
[D18] = arr(1, 71) '设备数量
[E18] = arr(1, 72) '设备单价
[A19] = arr(1, 73) '设备名称
[B19] = arr(1, 74) '设备品牌
[C19] = arr(1, 75) '设备型号
[D19] = arr(1, 76) '设备数量
[E19] = arr(1, 77) '设备单价
End With
Application.ScreenUpdating = True
End Sub
