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

¦bVBA¤¤§Q¥ÎVLOOKUPªº°ÝÃD

¦bVBA¤¤§Q¥ÎVLOOKUPªº°ÝÃD

¥»©«³Ì«á¥Ñ tc1701 ©ó 2017-2-21 21:08 ½s¿è

¤j®a¦n,¤p§Ì¦³¤@­ÓÃö©óVLOOKUP¦bVBA¤Wªº°ÝÃD¡C

§Ú§âSHEETSªº¼Æ¥Ø³]¬°ÅܼÆ
©Ò¥H§Ú¦bVBA¤W¤£À´«ç¼Ë³]©wVLOOKUP¤¤ªºSHEET¦WºÙ
  1. A = Worksheets.COUNT
  2. For AZ = 2 To A
  3. Sheets(AZ).Activate
  4. Range("C2").Select
  5. ActiveCell.FormulaR1C1 = _  "=IFERROR(VLOOKUP(RC[-1],'06-2'!C[-2]:C[24],24,FALSE),0)"

  6. Next
½Æ»s¥N½X
Ãþ¦ü³o¼Ë¡A­«ÂI·Q°Ý'06-2' ªºSHEET ¬OAZ ÅܼÆ
½Ð°ÝÀ³¸Ó«ç¼Ë¼g?

¸U¤À·P¿E!!

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],'" & X & "'!C[-2]:C[24],24,FALSE)"  

§t¦³[¼Æ¦r.ªÅ®æ©Î²Å¸¹]¤u§@ªí¦WºÙ­n¥Î[³æ¤Þ¸¹]¥]ÂÐ!!!

TOP

¥»©«³Ì«á¥Ñ tc1701 ©ó 2017-2-21 22:36 ½s¿è

¤£¯à½s¿è¤F...

A = Worksheets.COUNT
For AZ = 2 To A
Sheets(AZ).Activate
X = Sheets(AZ).Name
    Sheets("A").Select
    Range("C2").Select
   
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1]," & X & "!C[-2]:C[24],24,FALSE)"
Next

¤£ª¾¹D¬°¤°»ò¤£¯à,¦¡¤¤Åã¥Ü¬O6-'02' , ¦ý¥¿½TªºÀ³¸Ó¬O'6-02' ,
¦]¬°§ÚªºSHEET ¦WºÙ¬O6-02...7-02,,,8-02µ¥µ¥

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD