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

[µo°Ý] ½Ð±Ð~¤u§@ªí©R¦W

[µo°Ý] ½Ð±Ð~¤u§@ªí©R¦W

½Ð°Ý«e½ú
¤u§@ªí¦³"N"­Ó,­nÅý¨C­Ó¤u§@ªí©R¦W¬°"A1"ªº¦WºÙ,«ç»ò¨Ï¥Î,¦³¥¨¶°¶Ü?
¶}¤ß¾Ç²ß,¾Ç²ß«Ü¶}¤ß

¦P¤@­Óworkbook¤UªºsheetÀ³¸Ó¬O¤£¯à¨ú¤@¼Ëªº¦W¦r¡A
¥Îworksheets(1).name = XXXX ´N¥i¥H§ïsheet ªº¦W¦r¤F¡C

TOP

¦^´_ 2# jarodz
¦P¤@­Óworkbook¤UªºsheetÀ³¸Ó¬O¤£¯à¨ú¤@¼Ëªº¦W¦r¡A   ³o¬O¹ïªº
  1. Sub Ex()
  2.     Dim E
  3.     For Each E In Sheets
  4.         E.Name = E.Cells(1).Text
  5.     Next
  6. End Sub
½Æ»s¥N½X

TOP

¦P¤@­Óworkbook¤UªºsheetÀ³¸Ó¬O¤£¯à¨ú¤@¼Ëªº¦W¦r(¦hÁ«e½ú«ü¥¿)
§Ú§ó¥¿¤@¤U,¤@­Óworkbook¸Ì­±¤w¸g¦³¦h­Ósheets,·Q§â¨C­Ósheetsªº¦WºÙ,©R¬°"B25"ªºÀx¦s®æ
­n¨C­Ósheets§ó§ï¦WºÙ§Ö©ü­Ë¤F~«ô°U«e½ú¤F
GBKEE «e½ú¦n ©pªº¤èªk·|¥d¦bE.Name = E.Cells(1).Text
§Ú¨Ï¥Îªº¬OExecl 2002ª©
¶}¤ß¾Ç²ß,¾Ç²ß«Ü¶}¤ß

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-1-5 14:49 ½s¿è

¦^´_ 4# linsurvey2005
Cells(1)´N¬O A1    ¦p¦³¤@­ÓA1 ¨S¦³¸ê®Æ ¦b¨ºùØ´N·|¦³¿ù»~
Cells(1) ¥i¦¨ RANGE("B25")

TOP

GBKEE «e½ú¦n·P¿E§A
¥t¥~·Q§â¨C­Ósheets¸Ì­±ªº"I20"Àx¦s®æªº¸ê®Æ
©ñ¦b¥Ø«e¤u§@ªí¸Ì­±A1 A2 A3..... ¤@ª½±Æ§Ç¥i¥H¶Ü?
¶}¤ß¾Ç²ß,¾Ç²ß«Ü¶}¤ß

TOP

¦^´_ 6# linsurvey2005
¤£¤ÓÀ´,¤W¶ÇÀɮ׬ݬÝ

TOP

¦^´_ 7# GBKEE

«e½ú¦n,Àɮ׸̭±¦³¤@­Ó¤u§@ªí¦WºÙ:"¾ã²zªí"
·Q§â¸ê®Æ±Æ§Ç¦b¤@°_~¥i¥H¶Ü?
    §ó§ï¤u§@ªí.rar (18.81 KB)
¶}¤ß¾Ç²ß,¾Ç²ß«Ü¶}¤ß

TOP

¦^´_ 8# linsurvey2005
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Sh As Worksheet
  4.     For Each Sh In Sheets
  5.         If Sh.Name <> "¾ã²zªí" Then
  6.             With Sheets("¾ã²zªí").Cells(Rows.Count, "a").End(xlUp).Offset(1)
  7.                 .Cells(1) = Sh.Name
  8.                 .Cells(1, 2) = Sh.[i38]  ' 6# ¬OI20  ªþÀɬOI38  ¦Û¤v¿ï
  9.             End With
  10.         End If
  11.     Next
  12. End Sub
½Æ»s¥N½X

TOP

Option Explicit
Sub Ex()
    Dim Sh As Worksheet
    For Each Sh In Sheets
        If Sh.Name <> "¾ã²zªí" Then '³o¦æ¬O»¡§ä¨ìsheets¾ã²zªí¤~°õ¦æ¶Ü?
            With Sheets("¾ã²zªí").Cells(Rows.Count, "a").End(xlUp).Offset(1)
                .Cells(1) = Sh.Name
                .Cells(1, 2) = Sh.[i38]  ' 6# ¬OI20  ªþÀɬOI38  ¦Û¤v¿ïª½±µ¤¤¸ó¸¹¤]¥i¥H³á
            End With
        End If
    Next
End Sub
¬Ý°_¨Ó²³æ¤£¹L«e½úªºÅÞ¿è¦n±j
·PÁ¦³¤T
¶}¤ß¾Ç²ß,¾Ç²ß«Ü¶}¤ß

TOP

        ÀR«ä¦Û¦b : ª¾ÃÑ­n¥Î¤ßÅé·|¡A¤~¯àÅܦ¨¦Û¤vªº´¼¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD