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

[µo°Ý] EXCEL VBA ªº°ÝÃD

[µo°Ý] EXCEL VBA ªº°ÝÃD

½Ð°ÝªþªíªºÀɮפ¤¡A¦p¦ó¦b¤u§@ªí1¤¤ªí®æ¡A¨Ï¥ÎVBA§ä¥X¥Ò¡B¤A¡B¤þªº³Ì«á¤@¦C¼Æ­È©M¤é´Á¼g¨ì¤u§@ªí2¤¤¡A½Ð¥s¦³¸ô¹Lªº¤j­ô¥i¥H«ü¾É¤@¤U¡AÁÂÁÂ

¥t¦A½Ð±Ð¡A°²¦p¥Ò¤A¤þ¤B(Äæ¦ì)¦³«Ü¦h­Ó¡A¨ºVBAªº»yªk¤S¸Ó¦p¦ó½Õ¾ã©O

tt.rar (7.22 KB)

TT

¦^´_  idnoidno

»¡¹ê¦bªº¡A§Ú¯uªº¬Ý¤£À´§A­n¤°»ò¡H

§AÀ³¸Ó¹Á¸ÕµÛ°µ¤@¥÷§A­nªº...§c¡IªF¦è¡A¨Ó¬Ý¬Ý¡A ...
lpk187 µoªí©ó 2015-4-15 20:59


lpk 187¤j¤j±z¦n
·PÁ±z¦^´_¡A§Ú¼g§¹¤º®e¨S¦³²Ó¨s´N´£¥X½Ð¨D«ü¾É
²{¦b¦A¬Ýµo²{¦Û¤v¼gªº¯uªº¦³ÂI¤£ª¾©Ò¤ª
¤£¦n·N«ä
§Ú·|·Q£¸¤U¦A§ó¥¿
¤£¹L§Ú¦]¬°ªì¨ì½×¾Â
©Ò¥H·Q­n§ä­Ó¤H¨ó§U¾Ç²ß
¦ý¬O¦]¬°¿n¤À¤£°÷©Ò¥H³sµu«H³£µLªk¨Ï¥Î
¨£¨ì±z¼ö¤ß©Ò¥H§Æ±æ¸ò±z¾Ç²ß¤@¤U
§Æ±æ¦³³o­Ó¾÷·|
·PÁÂ

TOP

¦^´_ 21# idnoidno

»¡¹ê¦bªº¡A§Ú¯uªº¬Ý¤£À´§A­n¤°»ò¡H

§AÀ³¸Ó¹Á¸ÕµÛ°µ¤@¥÷§A­nªº...§c¡IªF¦è¡A¨Ó¬Ý¬Ý¡A¤£µM«ÜÃøÁA¸Ñªº¡A ¤£¦b¨ä¦ì¤£¿Ñ¨ä¬F¡A¤j­ô§AÀ³¸Óª¾¹D¡I

TOP

¦^´_  idnoidno


    §Ú·|¥h¬Ý»¡©ú¡A¦³®É¬O¦³·|·QªkµM«á¥h¬dÃöÁä¬Ý¬Ý(¤£¤@©w¬d±o¨ì)¬Æ¦Ü¤Wºô§ä¡A¤è¦¡¦³ ...
lpk187 µoªí©ó 2015-4-14 13:00

lpk188¤j¤j¡A¥i§_½Ð±z¬Ý¤p§Ìªº¥t¤@­Ó©µ¦ùªº°ÝÃD
http://forum.twbts.com/thread-13807-1-1.html
¥i§_½Ð¯q±zªº¤èªk¦³¦ó«Øij
ÁÂÁÂ

TOP

¦^´_ 19# idnoidno


    §Ú·|¥h¬Ý»¡©ú¡A¦³®É¬O¦³·|·QªkµM«á¥h¬dÃöÁä¬Ý¬Ý(¤£¤@©w¬d±o¨ì)¬Æ¦Ü¤Wºô§ä¡A¤è¦¡¦³«Ü¦h
¤£¹L»¡©ú­Y¬d±o¨ì¡A¥¦ªº½d¨Ò¤]¬O¾Ç²ßªº¦n¤èªk

TOP

lpk187¤j¤j¡A«ö±zªº¦^ÂСA±z¤]¬O·|¥h¬d¸ßF1¬d¸ß»¡©ú¥h¬Ý¨Ï¥Îªº¥Îªk¶Ü
ÁÙ¬O¦Ü¤Ö±z¬O¤w¸gª¾¹D¦³³o¼Ëªº¤@­Ó¨ç¼Æ¡A·|¥Î«áµM«á¦A¥h«ö­n¸Ñ¨Mªº¨Ò¤l¦A¥h¬d¬O¤£¬O¥i¥H¦X¾A¸Ñ¨Mªº¶Ü

TOP

¦^´_ 17# idnoidno


    ¦bFor Each Rng ³o­ÓÅܼƤ£¥Î«Å§i
§Ú¤W­±¼gªº¦n¹³¦³ÂIÃøÀ´¡A¥L­ì¨Ó¥i¥H¹³¤U­±³o¼Ë¼g
For Each Rng in Range("B1:D1")    ' ¨ä¤¤Range("B1:D1") ¬O°j°éªº½d³ò
        ...
        ...
Next  
§A¥i¥H¦h°Ñ¦ÒVBAªº»¡©ú

TOP

ÁÂÁ±z¡A±zªºÀx¦s®æÅܼƤ£¥Î«Å§i¶Ü?ÁÙ¬O¤@¯ëªì¾Ç´N¥ý¬Ù±¼©O

TOP

¦^´_ 15# idnoidno


For Each Rng In ¤u§@ªí1.Range("B1", ¤u§@ªí1.Cells(1, Columns.Count).End(xlToLeft).Address) '²Ä¤@¦C"°ÊºA"Ū¨ú°µ´`Àô

©Ò¿×ªº°ÊºA¬O«ü¡A·í§AÀx¦s®æ¦³"¼W´î"®É¤´¥i¥H¨Ì§Aªº¼W´î¨Ó°µÅª¨ú¡A¨Ò¦p¡G¥u¦³¥Ò¤A¤þ3Ä楦´N¥u°µ3¦¸´`Àô¡A­Y¼W¥[2Äæ«h¥i¥H°µ5¦¸ ´`Àô
¤W­± Rng ¬OÀx¦s®æ(Range)ªºÅܼơA
¤u§@ªí1.Range("B1", ¤u§@ªí1.Cells(1, Columns.Count).End(xlToLeft).Address) ¡A«h¬O½d³ò·N«ä¬O«áB1³o¤@Äæ¶}©l¨ì¡AColumns.Count¬O©Ò¦³Ä檺¼Æ¥Ø¡A
End(xlToLeft).Address¬O±q³Ì«áªºÀx¦s®æ´M§ä¦^¨Ó¹J¨ìªº²Ä¤@­Ó¦³­ÈªºÀx¦s®æ¦ì§}

ÁÙ¦³·í¹B¦æµ{§Ç®É­è¶}©l³Ì¦n¥Î"F8"¨Ó¤@¦æ¤@¦æ¬Ý¡A¤j³¡¥÷§Ú¥u¦³¥Î"°Ï°ìÅܼƵøµ¡"ºÊ¬ÝÅܤÆ

TOP

For Each Rng In ¤u§@ªí1.Range("B1", ¤u§@ªí1.Cells(1, Columns.Count).End(xlToLeft).Address) '²Ä¤@¦C"°ÊºA"Ū¨ú°µ´`Àô
³o¤@¦C¤¤¥Îªk¡A±z¥i§_¦A¤©¥H«ü¾É»¡©ú¤@¤U
¥t¥~°ÊºAŪ¨ú°µ´`Àôªº¤¤¤å·N«ä¦³ÂI¤£²M·¡
¯uªº·PÁ±z¥i¥H¦^´_¡AÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¦³¦h¤Ö¤O¶q´N°µ¦h¤Ö¨Æ¡A¤£­n¤ß¦sµ¥«Ý¡Aµ¥«Ý¤~·|¸¨ªÅ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD