ªð¦^¦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

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

TOP

°Ñ¦Ò¬Ý¬Ý

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

        ÀR«ä¦Û¦b : ­ì½Ì§O¤H´N¬Oµ½«Ý¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD