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

[µo°Ý] (¤w¸Ñ¨M)¦b¤£¬Û¾Fªº¤u§@ªí°µ¦P¼Ë°Ê§@

[µo°Ý] (¤w¸Ñ¨M)¦b¤£¬Û¾Fªº¤u§@ªí°µ¦P¼Ë°Ê§@

¥»©«³Ì«á¥Ñ freeffly ©ó 2012-2-22 17:01 ½s¿è

§Ú·Q­n¹ï¼Ï¯ÃªíB~¼Ï¯ÃªíE°µ¦P¼Ëªº°Ê§@
³£¬O½Æ»s¸Ó±i¤u§@ªíµM«á­×§ï½Æ»s«áªº¤u§@ªí¦WºÙµM«á¹ï½Æ»sªº¼Ï¶s§@¸s²Õ
¦³¨â¦U°ÝÃD
1.¥Îfor I =2 to sheets.count  ªº¤è¦¡³B²z¦n¹³­nÅý¤u§@ªí¦A¤@°_¤~¯à³o¼Ë°µ
   ¦pªG¤u§@ªí¨S¦³¦b¤@°_¡A¥i¬Oª¾¹D¬O­þ´X¤u§@ªí¦WºÙ­n³B²z¦³¤è¦¡Åýµ{¦¡½X²¤Æ¶Ü
   ¥Ø«e¬O¹ï³o¨Ç¤u§@ªí¤@¦U¤@¦U³B²z¤£¬O¥Î°j°éªº¤è¦¡
2.¦pªG±N³o¨Ç¤u§@ªí±Æ¦b¤@°_¦A¥Î°j°éªº¤è¦¡¦pfor I =2 to sheets.count ³B²z
   ½Æ»s«áªº¤u§@ªí¦WºÙ¦b­×§ï®É¬O¤£¤@¼Ëªº³o¦U¬O¤£¬O¥u¯à¦b°j°é³B²z§¹¤§«á¦A­Ó§O­×§ï
   ÁÙ¬O¥i¥H¼g¶i°j°é?
   Ä´¦p¼Ï¯ÃªíB½Æ»s«á¥i¯à¥Ñ¼Ï¯ÃªíB(2)§ï¦¨¦a°Ï§O   ¼Ï¯ÃªíC(2)¥i¯à§ï¦¨²£«~§O


¤£ª¾¹D³o¼Ëªº»¡©ú  ¦U¦ì¤j¤j¯à©ú¥Õ¶Ü?


¼Ï¯Ã.rar (4.89 KB)
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

¥»©«³Ì«á¥Ñ luhpro ©ó 2011-5-24 22:41 ½s¿è

Ãþ¦ü³oºØ¤£¨Ì·Ó¶¶§Ç¥u°w¹ï¤u§@ªí¦WºÙ°µ³B²zªº»Ý¨D¨ä¹ê³Ì¾A¦X¥Î°}¦C¨Ó³B²z¤F.

Sub nn()
  Dim vSheetName
  Dim iI%
   
  vSheetName = Array("¼Ï¯ÃªíA", "¼Ï¯ÃªíC", "¼Ï¯ÃªíE", "¼Ï¯ÃªíF")
  For iI = 0 To UBound(vSheetName)
    Debug.Print vSheetName(iI)
  Next iI
End Sub

­Y­n°ÊºA·s¼W¤u§@ªí¦WºÙ¨ì°}¦C¤º½Ð¨Ï¥Î¥H¤U¤è¦¡ :
ReDim Preserve vSheetName(UBound(vSheetName) + 1)
vSheetName(UBound(vSheetName)) = "¼Ï¯ÃªíG"

TOP

¦^´_ 2# luhpro



°}¦C§Ú¦³·Q¨ì
¤£¹LUBOUND³o­Ó§Ú´N¤£¤Ó·|
Debug.Print vSheetName(iI) ³o¥y¬O¤°»ò·N«ä?
©ú¤Ñ¤W¯Z¦A¨Ó¸Õ¸Õ¬Ý
ÁÂÁ¤j¤j³á
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 3# freeffly
­n¬d UBOUND ªº¥\¯à»¡©ú¥i¥H¥ý±N³o´X­Ó¦r Mark °_¨Ó«á«ö F1 ´N¥i¥H¬Ý¨ì¤F,
UBOUND(°}¦C¦WºÙ) ¬O¨ú±o¸Ó°}¦Cªº¤¸¯À¼Æ¶q, ¥i¥H§@¬° ReDim ÂX¥R¸Ó°}¦C¤j¤pªº¨Ì¾Ú.

¦Ü©ó Debug.print «h¬O§Ú­Ì¦bµ{¦¡³]­p¶¥¬q(¥ÎVBA½s¿è¾¹) «ö F8  ³æ¨B°õ¦æ¥H°lÂܵ{¦¡°õ¦æ¹Lµ{¤ÎÅܤƮÉ,
±N¤@¨ÇÅܼƤº®e©Î·Q­n¬Ý¨ìªº¸ê°T³z¹Lµ{¦¡ª½±µÅã¥Ü¦b "§Y®É¹Bºâ" µøµ¡ªº«ü¥O,
¦¹¥\¯àªñ¦ü DOS µøµ¡«ü¥O¤¤ªº Echo,
¸ò MsgBox ¤]«Ü¹³¥u¬O¸ê°T©ÒÅã¥Üªº¦a¤è¤£¦P.
¤§©Ò¥H¥Î¦¹«ü¥O¬O¦]¬°¤£ª¾¹D§A·Q­n«ç»ò¹B¥Î¨º¨Ç¸ê®Æ,
¨º»ò¥u­n¯àÅã¥Ü¥X¨Ó¥¿½Tªº¤º®e¤]´Nªí¥Ü§A¯àÀH·N®M¥Î¥¦­Ì¤F.

TOP

¦^´_ 4# luhpro


    §Ú³£¦bÃhºÃ¬Oª©¥»°ÝÃDÁÙ¬O¦w¸Ë¤£§¹¥þ
    ¦³¨Ç»¡©ú¬d¤£¨ì
    ÁÂÁ¤j¤j¸Ñ»¡
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 5# freeffly
"§Ú³£¦bÃhºÃ¬Oª©¥»°ÝÃDÁÙ¬O¦w¸Ë¤£§¹¥þ"

TOP

¦^´_ 6# GBKEE


    ¦³ªº¨S¿ï¶µ
     ¦³ªºÂI¤U¥h¤£·|¥X²{¤º®e
     «Ü©Ç
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 7# freeffly
"¦³ªº¨S¿ï¶µ"    ¬O¦ó·N«ä??
"¦³ªºÂI¤U¥h¤£·|¥X²{¤º®e"  ¦b¦ó³BÂI¤U,¬O¦ó¦r¥y?

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2011-5-30 22:35 ½s¿è
¦^´_  GBKEE
    ¦³ªº¨S¿ï¶µ
     ¦³ªºÂI¤U¥h¤£·|¥X²{¤º®e
     «Ü©Ç
freeffly µoªí©ó 2011-5-27 17:35

­è¶}©l¾Ç Excel ªº®É­Ô§Ú¤]¦³§A©Ò»¡ªº³oºØ§xÂZ.
¤×¨ä¬O§Ú­è¶}©l¥Îªº¬O¤½¥q²Î¤@ÁʶRªºExcel 2000 ª©¥»,
©Ò¦³ªºVBA«ü¥O¬d¸ß¥u¨q 10 ­Ó¶µ¥Øµ¹§A¬Ý,
¬d¸ß¬Y¨Ç¦rª½±µ´N¬O¸ò§A»¡§ä¤£¨ì¸ê®Æ,
¬d¸ß¬Y¨Ç¦r¨q¥X¨Óªº¤S¦n¹³¸ò©Ò¬dªº¦r¤£¤Ó·f¹Ç.

²{¦b¥Î2003¨qªº¶µ¥Ø¦h¤F,
¦ý¤]·d¤£À´¬d­Ó application ¬°¤°»ò¨S§â applicationÄÝ©Ê »P applicationª«¥ó ±Æ¦b³Ì¤W­±ÁÙ­n¥J²Óªº§ä¤~§äªº¨ì?
¬°¤°»ò¬d sheet ¬Ý¨ìªºªF¦è·|¤ñ¬d sheets ÁÙ­n¤Ö?(´Nºâ¬O¬d sheet1 ¤]¤ñ¥¦¦h«Ü¦h)

¤W­z³oÃþ±¡§Î¨ä¹ê¹ïªì¾ÇªÌ¨Ó»¡®À§é·P·|¤ñ¸û¤j. (²ßºD¤Fºô­¶·j´Mªº¼Ò¦¡·|ı±o Excel ¬d¸ß¹ê¦b¦³ÂI²Â)
©Ò¥H°Õ... ¦h¤W "³Â»¶®a±Ú" ª¦¤å©Î³\¾Çªº·|¤ñ¸û§Ö...

TOP

¦^´_ 9# luhpro

   

TOP

        ÀR«ä¦Û¦b : ¤H¨ÆªºÁ}Ãø»PµZ¿i¡A´N¬O¤@ºØ¦ÒÅç¡C
ªð¦^¦Cªí ¤W¤@¥DÃD