ªð¦^¦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 : ¦³¦h¤Ö¤O¶q´N°µ¦h¤Ö¨Æ¡A¤£­n¤ß¦sµ¥«Ý¡Aµ¥«Ý¤~·|¸¨ªÅ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD