- ©«¤l
- 39
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 53
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2013-11-16
- ³Ì«áµn¿ý
- 2016-1-30
|
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim data As Range, Y As Variant
Application.EnableEvents = False
If Not Intersect(Target, [A1:A10]) Is Nothing Then
' Set data = ['sheet2'!$A$1:B$25]
'Y = Application.VLookup(Target, data, 2, 0)
Y = Application.VLookup(Target, ['sheet2'!$A$1:B$25], 2, 0)
Target.Offset(, 1) = IIf(IsError(Y), "", Y)
End If
Application.EnableEvents = True
End Sub
¤j¤j·Q½Ð°Ý³o¤@¬q¬O§_¦³¿ìªk§â¥~®Ø¦rÅéÃC¦â¤]¤@¨Ö±a¹L¨Ó©O??? ·P®¦....... |
|