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

¶¡Â_¿é¤J®É ¦p¦óÅýµ{¦¡¤]¥i¥H±a¥X¸ê®Æ

¦^´_ 7# hugh0620
¥Hoobirdª©¥Dªºµ{¦¡½X¨Ó­×§ïªº¸Ü
²Ä2¦æ§ï>3, ¦A·s¼W²Ä5¦æ§Y¥i~
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Target.Count > 1 Or Target.Column > 3 Then Exit Sub
  3. On Error Resume Next
  4. Target(1, 2) = Sheet2.[b:b].Find(Target, , , 1)(1, 2).Value
  5. Target(1, 2) = Sheet3.[b:b].Find(Target, , , 1)(1, 2).Value
  6. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : µÊ®ð¼L¤Ú¤£¦n¡A¤ß¦a¦A¦n¤]¤£¯àºâ¬O¦n¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD