[µo°Ý] ¦p¦ó­áµ²«ü©w¤§µøµ¡®æ

c_c_lai

½Ð°Ý§Ú­n¦p¦ó­áµ²«ü©w¤§µøµ¡®æ¡A
°²³]§Ú·Q­áµ²«ü©w¤§µøµ¡®æ¡A¨ä½d³ò±q A1:C3¡A¤]´N¬O»¡·í§Ú¨Ï¥Î·Æ¹«ºu°Êµøµ¡¡A
¤W¤U²¾°Ê®É ¡AA1:A3 ¦¹¤T¦C«O«ù¦b­ì¦a¤£°Ê¡B¥H¤Î·í¥ª¥k¤è¦V²¾°Ê®É¡A
A1:C1 ¤TÄæ«O¯d¦b­ì¦a¤£°Ê¡A¥u²¾°Ê C1 ¥H«áªºÄæ¦ì¡C
·q½Ð¦U¦ì¤j¤j«ü±Ð¡I

Andy2483

¦^´_ 2# Hsieh


     ÁÂÁ«e½ú«ü¾É
¤Ï±À¨ú±o­áµ²µøµ¡ªºÄæ¦ì»P¦C¦ì

Sub ¨ú±o­áµ²µøµ¡ªºÄæ¦ì»P¦C¦ì()
With ActiveWindow
   MsgBox .SplitColumn 'Äæ¦ì=0 ¥NªíÄæ¦ìµL­áµ²
   MsgBox .SplitRow    '¦C¦ì=0 ¥Nªí¦C¦ìµL­áµ²
End With    'Äæ¦ì=0 & ¦C¦ì=0 ¥Nªí¨S¦³­áµ²µ¡®æ
End Sub

c_c_lai

¦^´_ 5# Hsieh
¦^´_ 4# register313
­ì¨Ó¬O¨ú¨M©ó´å¼Ð¦ì¸m¤§¥ª¤W¨¤°Ï¶ô¡A¦hÁ«ü¾É¡I
ªü¨½¨È¨§¡I

Hsieh

¦^´_ 3# c_c_lai


   

¤U¸ü (190.58 KB)

2012-4-9 21:08

register313

¦^´_ 3# c_c_lai

¿ïD4 , µøµ¡/­áµ²µ¡®æ (2003)

c_c_lai

¦^´_ 2# Hsieh
·PÁ¤j¤j¡I
¦pªG¤£³z¹L VBA ¨Ó³B­ù¡A ¦b¤u§@ªí³æ¤º¥i§_¦p¦¹³]©w¡A
¦]¬°¤£¨£±o¨C­Ó¤H³£±E±x VBA¡A ÁÂÁ±z¡I

Hsieh

¦^´_ 1# c_c_lai


        With ActiveWindow
        .SplitColumn = 3
        .SplitRow = 3
        .FreezePanes = True
       End With