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

[µo°Ý] Excel 2007 ¦p¦ó§å¶q­×§ï¤u§@ªí¦WºÙ¡H

[µo°Ý] Excel 2007 ¦p¦ó§å¶q­×§ï¤u§@ªí¦WºÙ¡H

½Ð°Ý Excel 2007 ¦p¦ó§å¶q­×§ï¤u§@ªí¦WºÙ¡H

°Ñ¦Ò¬Ý¬Ý

Sub getSheetName()
    Dim i As Integer   
    Worksheets(1).Select
    For i = 2 To Worksheets.Count
        Range("A" & (i - 1)).Value = Worksheets(i).Name
    Next
End Sub

TOP

¦^´_ 2# clianghot546
ÁÂÁ±zªº¦^ÂСI
¬O§_¦³¤£­n¥Îµ{¦¡ªº¤èªk©O¡H

TOP

        ÀR«ä¦Û¦b : ¦³¤ß´N¦³ºÖ¡A¦³Ä@´N¦³¤O¡A¦Û³yºÖ¥Ð¡A¦Û±oºÖ½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD