owen06

¦^´_ 1# HCG10G8bear

§A¥ý¥Î§Aªº¤è¦¡Åý¥L¿ï¾Ü¦n¤º®e«á¡A¦A¤U­±key:

Selection.NumberFormatLocal = "G/³q¥Î®æ¦¡"
Selection = Selection.Value

³o¼Ë´N¦æ¤F¡C

owen06

¦^´_ 7# HCG10G8bear

§ï³o¼Ë¤l´N¦æ¤F
Sub TEST()
For I = 2 To UsedRange.Rows.Count Step 2
Cells(I, 4).Resize(1, 7).NumberFormatLocal = "G/³q¥Î®æ¦¡"
Cells(I, 4).Resize(1, 7) = Cells(I, 4).Resize(1, 7).Value
Next
End Sub

owen06

¦^´_ 9# HCG10G8bear


    UsedRange.Rows.Count=¨Ï¥Îªº½d³ò.¦C¼Æ.­pºâ
   
    step 2 = ¨C¤@¦¸¸õ¤G¶¥
    for i = 1 to 10 ¡A i ·|¬O1¨ì10ªº³sÄò¼Æ
    for i = 1 to 10 step 2¡Ai ·|¬O 1¡B3¡B5¡B7¡B9
    for i = 1 to 10 step 3¡Ai ·|¬O 1¡B4¡B7¡B10
    ³o¼ËÀ³¸Ó«Ü©ú¾é§a¡C
    ¦]¬°§A³£¬O°¸¼Æ¦C­n°õ¦æ°Ê§@¡A©Ò¥H´N±q²Ä2¦C¶}©l¡A
    ¨C¤@¦¸¸õ2¶¥¡A²Ä2¦C~²Ä4¦C~²Ä6¦C¡A
    ¤@ª½¨ìUsedRange.Rows.Count©Ò­pºâ¥X¨Óªº¨º¤@¦C¬°¤î¡A
    ´N¤£·|¦]¬°³]ªº½d³ò¤Ó¤j¦Ó®ö¶O°õ¦æªº®É¶¡¡C

    RESIZE=¥H¬Y­ÓÀx¦s®æ¬°°ò·ÇÂI¨Ó¿ï¨ú½d³ò   
    [a1].resize(1,1).select     ¿ï¾Ü½d³ò¬°a1¬°°ò·ÇÂIªº1¦C¤Î1¦æ¡A¿ï¨úµ²ªG¬°a1
    [a1].resize(10,10).select  ¿ï¾Ü½d³ò¬°a1¬°°ò·ÇÂIªº10¦C¤Î10¦æ¡A¿ï¨úµ²ªG¬°a1:j10

owen06

¦^´_ 11# HCG10G8bear


¥i¬O¡K§Ú·Ó§A©Ò»¡ªº¤è¦¡Àx¦s§¹¦A¶}¤]³£¨S°ÝÃD§o¡A
§A­n¤£­n¤W¶Çªþ¥ó¡A¬Ý¤@¤U°ÝÃD¥X¦b­þ¡H

owen06

¦^´_ 13# HCG10G8bear


    §Ú¸Õ³£¨S°ÝÃD§r¡A§A¤ñ¹ï¬Ý¬Ý¬O¤£¬O¦³­þ¸Ì¤£¦P§a~

owen06

¦^´_ 17# HCG10G8bear

1. Sub TEST()
   
2. For I = 2 To Sheet1.UsedRange.Rows.Count Step 2
   
3. Sheet1.Cells(I, 4).Resize(1, 7).NumberFormatLocal = "G/³q¥Î®æ¦¡"
   
4. Sheet1.Cells(I, 4).Resize(1, 7) = Sheet1.Cells(I, 4).Resize(1, 7).Value
   
5. Next
   
6. End Sub

½Æ»s¥N½X

³o¼Ë§ï´N¦æ¤F¡A¦]¬°§A©ñ¦b¼Ò²Õ¸Ì¡A¦Ó¤£¬Oª½±µ©ñ¦bsheet1¸Ì¡A
©Ò¥H¥²»Ý©ú½Tªº§i¶D¥L¬O¦b­þ­Ósheet¸Ìªº­þ¨ÇªF¦è¡A
³o¼Ë¥L¤~·|¥h¨º¸Ì§ä¡A¤£µM´N·|°g¸ô¡C

owen06

¦^´_ 19# HCG10G8bear


§A­n¤£­n§â§A¦Û¤v¨Ï¥Î¡A¦³°ÝÃDªº¨º­ÓÀɮשñ¤W¨ÓÅý§Ú­ÌÀ°§AÀˬd¤@¤U¡H
¦]¬°§A»¡ªº°ÝÃD§Ú¦b°õ¦æ¤W³£¨Sµo¥Í¡A³o¼Ë­n¹jªÅ§â¯ß¬O¦³ÂI§xÃøªº¡C

owen06

¦^´_ 22# HCG10G8bear


¦b¬Ý¤F§A¤§«eªþªº¹Ï¤§«á¡A§Ú·QÀ³¸Ó§ä¥X­ì¦]¤F¡A
§A¦ü¥G¬O¦³¥t¥~¥Î¦³¤@­Ó¥spersonalªºexcelÀɨÓÀx¦s¼Ò²Õ¡A
µM«á¦A¶}¨ä¥LexcelÀɨӰõ¦æpersonal¸Ì¼Ò²Õªºµ{¦¡¡A
¦Ó§Ú¼gªº®É­Ô³æ¯Âªº¬O¥H¦b¦P¤@­ÓÀɮש³¤Uªº¤è¦¡¨Ó¼gªº¡A
¨Ã¨S¦³ª`·N¨ì³o­Óª¬ªp¡A©Ò¥H¤~·|³y¦¨³o¨Ç°ÝÃD¡C

owen06

¦^´_ 24# GBKEE


   ¶¶«KÂdzo­Ó°ÝÃD½Ð±Ð¤@¤Uª©¥D¡A¬°¤°»ò³o­Ócase¡A
   §Úª½±µ¼gsheet1¡A´N¤£¯à¦b¨ä¥LÀɮש³¤U°õ¦æ¡A
   ¦ý¦pªG§ï¦¨³£sheets("sheet1")¡A´N¥i¥H³q¥Î¤F¡A
   ½Ð°Ý³o¬O¤°»ò­ì¦]©O¡H·Ð½Ð½ç±Ð¡AÁÂÁÂ~