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

If Not c Is Nothing Then»yªk

If Not c Is Nothing Then»yªk

³o¸Ì¥i¯à¦³·¸¦ìªº°ÝÃD... §ÚÃhºÃ¬O¤£¬OIf Not c Is Nothing Then»yªk§Ú¤£·|¥ÎªºÃö«Y
¤£ª¾¹D¬O¤£¬O¹³«e½gµo¤å¤j¤j©Ò»¡ÅܼƸê®Æ«¬ºA³]¿ù
¤U­±¦³¨â­Ósheets  ¡AQS¬O±q order_pool§ì¥X¨Óªºµ¥«Ý­q³æ
°ß¤@¤£¦Pªº¬O ¥¦¤w¸g²Å¦X¬Y¨Ç»Ý¨D¤~·|©ñ¨ìQSªí³æ¤¤
§Æ±æ§Ú¨S¦³ªí¹Fªº¨¥¤£§Y·N@@
============================================
  1. '½Ð°ÝIf Not c Is Nothing Then ¥Îªk

  2.     Dim b As Variant

  3.     b = Sheets("QS").Range(RR)


  4.     For Each r In Worksheets("order_pool").Range("A1", Sheets("order_pool").Range("A1").End(xlDown))
  5.          Set c = r.Find(b, , , xlWhole)   '³]©w¤º®e¬°bªºÀx¦s®æª«¥ó¬°c
  6.          
  7.              If Not c Is Nothing Then Drr = c.Address
  8.             '¨C§ä¨ìC«h±NCªº¬Û¹ï¦ì§}©ñ¶iDRR
  9.     Next
  10.     Sheets("order_pool").Range(Drr).Delete '§R°£±qorder pool¨ú¥X¤§¸ê®Æ
½Æ»s¥N½X
Àɮצ³ÂI¤j ©Ò¥H¥ÎDROPBOX³sµ²  
https://dl.dropbox.com/u/16247104/0715afternoon.xlsm

Àɮ׸̭±¼Æ¾Ú¤£»ô¥þ, «ÜÃø°µ´ú¸Õ.
¬O¹B¦æ³o­Ó®É¦³°ÝÃD¶Ü? Sub Call_order_pool_Add_batch_pool_del_order_ ...
kimbal µoªí©ó 2012-7-16 13:41


ÁÂÁ¤j¤j¡A¡@·¸¦ìªº°ÝÃD§Ú§ä¤F¦n´X¤Ñ¤~µo²{¬Oµ{¦¡°õ¦æÅÞ¿è¤Wªº¿ù»~¡A¦b¢÷¢ú¢ì¢í¢ú¢ø¢÷¢÷¢ô¡@³Ì«á¤@µ§¸ê®Æªº§PÂ_¥X¤F¥]

TOP

¦^´_ 3# hugh0620


    ÁÂÁ¤j¤j¡A§Ú¥Î¤F±zªºµ{¦¡§ï¹L¡A³o¼Ë°ÝÃD´î¤Ö³\¦h¡A

¡@µM«á§Ú¤Sµo²{row.countªº­ì¥ýµ{¦¡½X¡A¥Î¨Ó­pºâorder pool¡@¦C¼Æ¶q¦³»~¡A¡@§ï¦¨rows ´N¤Ö¤F¤@¨Ç°ÝÃD²£¥Í

TOP

        ÀR«ä¦Û¦b : ¤Ó¶§¥ú¤j¡B¤÷¥À®¦¤j¡B§g¤l¶q¤j¡A¤p¤H®ð¤j¡C
ªð¦^¦Cªí ¤W¤@¥DÃD