ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

½Ð¯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

test.zip (27.8 KB)

¦^´_ 1# cw3076

EX1.JPG
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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

Dear GBKEE ª©¤j,

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

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD