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

·Q½Ð°ÝÃö©ó¤@¨Ç¦Û°Ê¤Æ®æ¦¡³]©wªº°ÝÃD

·Q½Ð°ÝÃö©ó¤@¨Ç¦Û°Ê¤Æ®æ¦¡³]©wªº°ÝÃD

¦]¦³³\¦h¥÷¤å¥ó¦ý¨ä®æ¦¡¤j­P¬Û¦P¡A¥u¦³¬¡­¶Ã¯¼Æ¶q¤£¦P
¦]¬°Äæ¦ì¤j­P¬Û¦P ¥u¬O¦³¨Ç¦³·s¼W©M´î¤Ö
Äæ¼e¦³¨Ç¨Ç³\ÅܤƦӤw

(¥¨¶° µ{¦¡½X¥]§t ¨ú¥N¡B¦Û°Ê·s¼W¬¡­¶Ã¯¡B³]©wÄæ¼e¡B¦C¼e )


·Q½Ð°Ý»¡¥H¤Uªºµ{¦¡½X¬O§_¥i¥H²¤Æ(¯àªº¸Ü¯àªþµù¨Ç³\»¡©ú¶Ü?)
¦]¬°Åv­­©|¤£¨¬ ©Ò¥H¥u¯à¶K¤Wµ{¦¡½X...
³Â·Ð¦U¦ì°ª¤â¤F ÁÂÁÂ

'-------°Ï¤À-ÀY
For Each s In Sheets


    Sheets("¤@").Select
If s.Name = "¤@" Then

'-----§ó´«ÃöÁä¦r-ÀY----------
    Cells.Replace What:="AU", Replacement:="='C:\U", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
'-----§ó´«ÃöÁä¦r-§À-----------

'------¦C°ª-ÀY
            Rows("1:600").Select
            Selection.RowHeight = 20
'-------¦C°ª-§À

'-------Äê¦ì½Õ¾ã¼e«×-ÀY
        Columns("a:a").Select
        Selection.ColumnWidth = 14
        Columns("b:b").Select
        Selection.ColumnWidth = 30
        Columns("c:c").Select
        Selection.ColumnWidth = 26
        Columns("d:d").Select
        Selection.ColumnWidth = 12
        Columns("e:e").Select
        Selection.ColumnWidth = 50
        Columns("f:f").Select
        Selection.ColumnWidth = 10
        Columns("g:g").Select
        Selection.ColumnWidth = 20
        Columns("h:h").Select
        Selection.ColumnWidth = 10
        Columns("i:i").Select
        Selection.ColumnWidth = 20
        Columns("j:j").Select
        Selection.ColumnWidth = 10
        Columns("k:k").Select
        Selection.ColumnWidth = 20
        Columns("l:l").Select
        Selection.ColumnWidth = 10
         Columns("m:m").Select
        Selection.ColumnWidth = 20
        Columns("n:n").Select
        Selection.ColumnWidth = 30
        Columns("o:o").Select
        Selection.ColumnWidth = 30
        Columns("p:p").Select
        Selection.ColumnWidth = 60
        Columns("q:q").Select
        Selection.ColumnWidth = 60
        Columns("r:r").Select
        Selection.ColumnWidth = 26
         Columns("s:s").Select
        Selection.ColumnWidth = 18
        Columns("t:t").Select
        Selection.ColumnWidth = 14
        Columns("u:u").Select
        Selection.ColumnWidth = 12
        Columns("v:v").Select
        Selection.ColumnWidth = 18
        Columns("w:w").Select
        Selection.ColumnWidth = 14
        Columns("x:x").Select
        Selection.ColumnWidth = 14
        Columns("y:y").Select
        Selection.ColumnWidth = 50
'------Äæ¦ì½Õ¾ã¼e«×-§À


'------Äæ¦ì®æ¦¡½Õ¾ã-ÀY
        Columns("A:z").Select
        With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
       End With
'-------Äæ¦ì®æ¦¡½Õ¾ã-§À

    Exit For
End If
Next

'-------°Ï¤À-§À



'-------°Ï¤À-ÀY
For Each s In Sheets

If s.Name = "¤G" Then

                  
        
    Sheets("¤G").Select
    Cells.Replace What:="AU", Replacement:="='C:\U", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
            Rows("1:600").Select
            Selection.RowHeight = 20

        Columns("a:a").Select
        Selection.ColumnWidth = 14
        Columns("b:b").Select
        Selection.ColumnWidth = 30
        Columns("c:c").Select
        Selection.ColumnWidth = 26
        Columns("d:d").Select
        Selection.ColumnWidth = 12
        Columns("e:e").Select
        Selection.ColumnWidth = 50
        Columns("f:f").Select
        Selection.ColumnWidth = 10
        Columns("g:g").Select
        Selection.ColumnWidth = 20
        Columns("h:h").Select
        Selection.ColumnWidth = 10
        Columns("i:i").Select
        Selection.ColumnWidth = 20
        Columns("j:j").Select
        Selection.ColumnWidth = 10
        Columns("k:k").Select
        Selection.ColumnWidth = 20
        Columns("l:l").Select
        Selection.ColumnWidth = 10
         Columns("m:m").Select
        Selection.ColumnWidth = 20
        Columns("n:n").Select
        Selection.ColumnWidth = 30
        Columns("o:o").Select
        Selection.ColumnWidth = 30
        Columns("p:p").Select
        Selection.ColumnWidth = 60
        Columns("q:q").Select
        Selection.ColumnWidth = 60
        Columns("r:r").Select
        Selection.ColumnWidth = 26
         Columns("s:s").Select
        Selection.ColumnWidth = 18
        Columns("t:t").Select
        Selection.ColumnWidth = 14
        Columns("u:u").Select
        Selection.ColumnWidth = 12
        Columns("v:v").Select
        Selection.ColumnWidth = 18
        Columns("w:w").Select
        Selection.ColumnWidth = 14
        Columns("x:x").Select
        Selection.ColumnWidth = 14
        Columns("y:y").Select
        Selection.ColumnWidth = 50
            
        Columns("A:z").Select
        With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
       End With
              


    Exit For
End If
Next

'-------°Ï¤À-§À

¥»©«³Ì«á¥Ñ mark15jill ©ó 2011-4-22 10:23 ½s¿è

chin15¤j¤j
Ãö©ó±z¶Kªº¨º­Ó³sµ²¤å³¹ §Ú¦³¬Ý¹L
¥u¬O ¨º½g¦ü¥GµLªkÀHµÛ¼ÐÃDÄæ¦WºÙ§ó°Ê¸ÓÄæ¼e...
¨Ò¦p
        Columns("a:a").Select
        Selection.ColumnWidth = 14
        Columns("b:b").Select
        Selection.ColumnWidth = 30
³o¨âÄæ¦ì¨Ó»¡
ÁöµM sheet1 ©Msheet2 ³£¬O¤@¼Ë
¦ý¬O
        Columns("x:x").Select
        Selection.ColumnWidth = 14
        Columns("y:y").Select
        Selection.ColumnWidth = 50
«á­±³o´XÄæ¦ì «o·|¦]¬°¬¡­¶Ã¯¤£¦P¦Ó¦³©Ò·s¼W©Î´î¤Ö
¬G ¦pªG¥Î¨º½g¤å³¹ªº¤è¦¡¨Ó½s¼gªº¸Ü «Ü®e©ö·|²£¥Í®æ¦¡¿ù¶Ãªº°ÝÃD...
¦]¬°¦³¸ÕÅç¹L ©Ò¥H¤~·|¸ß°Ý¸Ó°ÝÃD ¤£¦n·N«ä
¥H¤U¦A¶K®t²§°Ï°ì
¦p
        Columns("h:h").Select
        Selection.ColumnWidth = 50
        Columns("i:i").Select
        Selection.ColumnWidth = 20
        Columns("j:j").Select
        Selection.ColumnWidth = 60
´N»Pµo¤åªº¨â¬qµ{¦¡½X®æ¦¡ ¦³©Ò®t²§

TOP

¥»©«³Ì«á¥Ñ mark15jill ©ó 2011-4-22 12:45 ½s¿è

§ÚªºÅv­­¤£¨¬ ©Ò¥H¥u¯àÂ^¨ú¨Çµ{¦¡½X¥X¨Ó...
¥Ø«e¸ÕµÛ¥Î°j°é¤è¦¡ ¹ï¨ä¬Û¦P³B§@³B²z(¦p ¬Û¦P®æ¦¡ªºÄæ¦ì)
¦Ü©ó®t²§³B ÁÙ¬O±o­Ó§O³]©w(¦p ®æ¦¡¤£¦PªºÄæ¦ì)...
¥Ø«e³B²zªººc·Q¤è¦V¤j·§¬°
¥Î        For Each s In Sheets   If s.Name = "" then §PÂ_¸Ó¬¡­¶Ã¯¬O§_¦s¦b...
¦A¥Î      For i =   ¥h°µ¬Û¦P³Bªº³B²z
¥u¬O°w¹ïÄæ¦ì­Ó§O¼e«× ÁÙ¬O±o°Ï¤À...
¤£¦n·N«ä §Úªº VBAµ{¦¡½s¼g¯à¤O ÁÙ¦b¾Ç²ß

TOP

­ì¨Ó¤p¾Ç¥ÍªºÅv­­¥i¥H¤W¶Çªü... -.-  (©l²×»{¬°¤£¯à...
¦³§â®æ¦¡©M®t²§³B¥ÎÃC¦â¼Ð¥Ü
Àɮצ³¨â­ÓEXCEL
¤@­Ó¬° ®t²§³BÃC¦â¸Ñ»¡
¤@­Ó¬°°ò¦®æ¦¡...
¦b³Â·Ð¦U¦ì¤j¤j¤F...

vba´ú¸Õ.rar (47.26 KB)


¤£¹L....¦pªG¯à²¤Æªº¸Ü ¯àª½±µPO µ{¦¡½X¶Ü???

TOP

½Ð°Ý¤U¸ü¦¨¥\¶Ü «Ü©È¿ù»~..

TOP

¦^´_ 9# Hsieh


    ´N¦p¦PÀɮפº©Òªþ ¦³¨Ç¬¡­¶Ã¯ªº¸ê®ÆÄæ¦ì¨Ã¤£»Ý­n¨º»ò¦h
     ¨Ò¦p ²Ä¤@­Ó¬¡­¶Ã¯ ªºÄæ¦ì(¥]§t¸¹½XÄæ ±q A ¨ì Y)
           ²Ä4©Î5ªº¬¡­¶Ã¯ ¥u»Ý­n A¨ì J  ¦Ó¤w
      ¦]¤§«e¦³·Q¹L¥Î¨º­Ó¤èªk ¥u¬O»yªk¤£¤Ó¼ô±x´N¨S¥Î
      ·PÁ¤j¤j©Ò´£¨Ñªº¤èªk

TOP

­è­è¸Õ¤F¤@¤U ¥i¥H¨Ï¥Î ¦A¦¸·PÁ Hsieh¤j¤j~
¤£¹L ¹ï©ó¤@ÂI¤£¬O«Ü¤F¸Ñ
11.Case Is < 5  <== ³o¦æªº IS  ¬O??
§Ú¬Ý±oÀ´³o¦æªº·N«ä ¥u¬O¹ï©ó¨º­Ó¤£²M·¡ (À³¸Ó¤£·|³æ¯Â¥u¬O­^¤åªº IS(¬O) §a...)

TOP

        ÀR«ä¦Û¦b : ¦Y­W¤F­W¡B­WºÉ¤Ü¨Ó¡A¨ÉºÖ¤FºÖ¡BºÖºÉ´d¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD