|
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim JJB As Workbook
If Sh.Name = "Sheet1" And Target.Address = "$E$5" Then
Set JJB = Workbooks.Open(ThisWorkbook.Path & "/价格表.xls")
Dim x As Integer
Dim dj
For x = 2 To 7
If Target.Value = Cells(x, 1) Then
dj = Cells(x, 2)
Target.Offset(2, 0).Value = dj
'MsgBox (dj)
Exit For
Else
Target.Offset(2, 0).Value = "查找不到"
End If
Next x
JJB.Close
End If
End Sub |
评分
-
查看全部评分
|