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

[µo°Ý] °Ñ·Ó¸ê®Æ®w¤ºªº¤£¦PÄæ¦ì¡A±a¥X¸ê®Æ

[µo°Ý] °Ñ·Ó¸ê®Æ®w¤ºªº¤£¦PÄæ¦ì¡A±a¥X¸ê®Æ

½Ð°Ý°Ñ·Ó"¸ê®Æ®w"¤º¦ì©ó¤£¦PÄæ¦ì¡A
±a¥X·Q­nªº¸ê®Æ¡AVBAµ{¦¡¸Ó¦p¦ó¼g¡A
¸Ô²Ó»¡©ú¦bªþ¥ó¤º¡A
½Ð«e½ú«ü¾É¤@¤U¡A
·P¿E¤£ºÉ!

°Ñ·Ó¤£¦PÄæ¦ì¸ê®Æ®w2.rar (9.91 KB)

  1. Sub nn()
  2. With Sheets("µ²ªG")
  3. .[E2:H1048576] = ""
  4. For Each a In .Range(.[A2], .[A1048576].End(xlUp))
  5. With Sheets("¸ê®Æ®w")
  6. m = Replace(a, "~", "~~") & a.Offset(, 1)
  7. Set b = .Columns("G:K").Find(m)
  8. Set c = .Range(.Cells(b.Row, 3), .Cells(b.Row, 6)).Find(1)
  9. k = c.Column + 2
  10. End With
  11. .Cells(a.Row, k) = IIf(b.Column < 9, 1, "-")
  12. Next
  13. End With
  14. End Sub
½Æ»s¥N½X
¦^´_ 1# pesi2884
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh


   ÁÂÁÂ Hsieh«e½ú¡A
   ¸Õ¹L«á¥i¥H¤F¡A±z¼gªºµ{¦¡¯uªºÁÙÆZºë²ªº¡A
  ©Ó»X§A¦h¦¸À°§U¡A¯uªº«D±`·P¿E¤£ºÉ!

TOP

        ÀR«ä¦Û¦b : ¤Ñ¤W³Ì¬ü¬O¬P¬P¡A¤H¥Í³Ì¬ü¬O·Å±¡¡C
ªð¦^¦Cªí ¤W¤@¥DÃD