[µo°Ý] Worksheet_Change ±ø¥óIJµo°ÝÃD

cw3076

½Ð¯q,

¦b«ü©wªºÄæ¦ì B3:B7 ¨Ï¥Î¤U©Ô¿ï³æ¥i§¹¦¨±ø¥óIJµo±a¤J¥H¤Uªº i ­È¨ì¤u¥óªí¡A
¦ý¬O¦pªG¨Ï¥ÎKeyin¤è¦¡«hµLªk±a¤J i ­È¡D
B3:B7 ¦³¨Ï¥Î¸ê®ÆÅçÃÒ¡Aªþ¤Wsample ¡A·Ð½Ð¥ý¶i´£ÂI¡D·PÁÂ

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B3:B7")) Is Nothing Then
        i = Worksheets("Defect Code").[A:A].Find(ActiveCell.Value).Offset(, 1).Resize(, 2)
        Range(Target.Address).Offset(, 1).Resize(, 2) = i
    End If
End Sub

GBKEE

¦^´_ 1# cw3076

¤U¸ü (89.47 KB)

2015-11-27 05:30

¦pªG¨Ï¥ÎKeyin«á«ö¤UEnter  ActiveCell <> Target

¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     Dim i As Variant
   
4.     If Not Intersect(Target, Range("B3:B7")) Is Nothing Then
   
5.         i = Worksheets("Defect Code").[A:A].Find(Target.Value).Offset(, 1).Resize(, 2) '¤U©Ôok
   
6.         Target.Offset(, 1).Resize(, 2) = i
   
7.     End If
   
8. End Sub

½Æ»s¥N½X

cw3076

Dear GBKEE ª©¤j,

   卝±`·PÁ«ü¾É¡A¥i¥H¸Ñ¨M°ÝÃD¡DÁÂÁÂ~