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

[µo°Ý] VBA¨S¦³³]©wª«¥óÅܼƩÎwith°Ï¶ôÅܼÆ

[µo°Ý] VBA¨S¦³³]©wª«¥óÅܼƩÎwith°Ï¶ôÅܼÆ

¬°¤°»ò·|error ?«ç»ò¸Ñ¨M
¨S¦³³]©wª«¥óÅܼƩÎwith°Ï¶ôÅܼÆ

TESTERROR.png (17.36 KB)

TESTERROR.png

test abc recv - ANS---TEST01.zip (67.12 KB)

Set xF = [update!B:B].Find(xR, Lookat:=xlWhole)
    If xF Is Nothing Then GoTo 101  '¬OxF ¤£¬OxR

°ò¥»¤W xR ¤£¶· Nothing ªº§PÂ_~~

TOP

¦^´_ 2# GBKEE


  ¦n¹³¤£¦æ

TOP

¦^´_ 1# john2006168
  1. If xR = "" Or xR.Row < 5 Then GoTo 101
  2.     Set xF = [update!B:B].Find(xR, Lookat:=xlWhole)
  3.   **¦A¥[¤W  If xF Is Nothing Then GoTo  §Aªº³B¸Ìµ{¦¡
  4.     If xR Is Nothing Then GoTo 101
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¡i¬°µ½Ävª§¡j¤H¥Í­n¬°µ½Ävª§¡A¤À¬í¥²ª§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD