Board logo

¼ÐÃD: [µo°Ý] ½Ð±Ð~¤u§@ªí©R¦W [¥´¦L¥»­¶]

§@ªÌ: linsurvey2005    ®É¶¡: 2012-1-5 12:11     ¼ÐÃD: ½Ð±Ð~¤u§@ªí©R¦W

½Ð°Ý«e½ú
¤u§@ªí¦³"N"­Ó,­nÅý¨C­Ó¤u§@ªí©R¦W¬°"A1"ªº¦WºÙ,«ç»ò¨Ï¥Î,¦³¥¨¶°¶Ü?
§@ªÌ: jarodz    ®É¶¡: 2012-1-5 12:20

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

¦^´_ 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

§@ªÌ: linsurvey2005    ®É¶¡: 2012-1-5 13:45

¦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ª©
§@ªÌ: GBKEE    ®É¶¡: 2012-1-5 14:47

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

¦^´_ 4# linsurvey2005
Cells(1)´N¬O A1    ¦p¦³¤@­ÓA1 ¨S¦³¸ê®Æ ¦b¨ºùØ´N·|¦³¿ù»~
Cells(1) ¥i¦¨ RANGE("B25")
§@ªÌ: linsurvey2005    ®É¶¡: 2012-1-5 16:49

GBKEE «e½ú¦n·P¿E§A
¥t¥~·Q§â¨C­Ósheets¸Ì­±ªº"I20"Àx¦s®æªº¸ê®Æ
©ñ¦b¥Ø«e¤u§@ªí¸Ì­±A1 A2 A3..... ¤@ª½±Æ§Ç¥i¥H¶Ü?
§@ªÌ: GBKEE    ®É¶¡: 2012-1-5 16:55

¦^´_ 6# linsurvey2005
¤£¤ÓÀ´,¤W¶ÇÀɮ׬ݬÝ
§@ªÌ: linsurvey2005    ®É¶¡: 2012-1-5 18:56

¦^´_ 7# GBKEE

«e½ú¦n,Àɮ׸̭±¦³¤@­Ó¤u§@ªí¦WºÙ:"¾ã²zªí"
·Q§â¸ê®Æ±Æ§Ç¦b¤@°_~¥i¥H¶Ü?
    [attach]9082[/attach]
§@ªÌ: GBKEE    ®É¶¡: 2012-1-5 20:30

¦^´_ 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

§@ªÌ: linsurvey2005    ®É¶¡: 2012-1-5 22:50

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
§@ªÌ: jarodz    ®É¶¡: 2012-1-6 01:26

<> ¬O¤£µ¥©ó
§@ªÌ: GBKEE    ®É¶¡: 2012-1-6 07:53

¦^´_ 10# linsurvey2005
For Each Sh In Sheets     '¨Ì§Ç¸Ì¨C¤@­Ó¤u§@ªí
        If Sh.Name <> "¾ã²zªí" Then   '·í¤u§@ªí¦WºÙ¤£¬O"¾ã²zªí" ¤~°õ¦æªº




Åwªï¥úÁ{ ³Â»¶®a±Ú°Q½×ª©ª© (http://forum.twbts.com/)