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

¦p¦ó§â¤u§@ªíªº¦WºÙÅã¥Ü¬°«ü©wªºÀx¦s®æ¤º®e?

¦p¦ó§â¤u§@ªíªº¦WºÙÅã¥Ü¬°«ü©wªºÀx¦s®æ¤º®e?

¤u§@ªí¦pªG¤£­«·s©R¦Wªº¸Ü
¦Û°Ê¬°Sheet1¡BSheet2¡BSheet3¤@ª½¦p¤U

¡@¡@A¡@¡@ B¡@¡@ C¡@¡@ D¡@¡@ E
1 qoo
2
3
4
5

Sheet1 Sheet2 Sheet3

¦p¦óÅýSheet1¦Û°ÊÅã¥Ü¬°a1ªº­È"qoo"
¤]´N¬OÅܦ¨
¡@¡@A¡@¡@ B¡@¡@ C¡@¡@ D¡@¡@ E
1 qoo
2
3
4
5

¡@¡@qoo Sheet2 Sheet3

µM«á
¦p¦óÅýSheet1¦Û°ÊÅã¥Ü¬°a1ªº­È"qoo"
¤]´N¬OÅܦ¨
¡@¡@A¡@¡@ B¡@¡@ C¡@¡@ D¡@¡@ E
1 qoo
2 abc
3
4
5

¡@¡@qoo abc Sheet3
ª½¦Ü¹J¨ìªÅ®æ¤~°±¤îÅÜ´«???

¦p¯à¸Ñ¨M¡A¤£³Ó·P¿E!!!

¦^´_ 1# irenemak2007
  1. Sub Ex()
  2.     Dim i%
  3.     With Sheets(1)
  4.         .Range("A:A") = ""
  5.         For i = 1 To Sheets.Count
  6.             .Range("A" & i) = Sheets(i).Name
  7.         Next
  8.     End With
  9. End Sub
½Æ»s¥N½X

TOP

¦^´_ 1# irenemak2007
  1. Sub nn()
  2. For Each sh In Sheets
  3. With sh
  4. If .[A1] <> "" Then .Name = CStr(.[A1])
  5. End With
  6. Next
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ solely ©ó 2010-8-18 16:36 ½s¿è

¦^´_ 2# GBKEE
§Ú·Q...irenemak2007¤j¡AÀ³¸Ó©M§O¤Hªº­n¨D¤£¦P
¥L¬O·Q­n...¤u§@ªíªº¦WºÙ=Àx¦s®æªº¸ê®ÆXD
Sub yy()
For i = 1 To Sheets.Count
Sheets(i).Name = Cells(i, 1)
Next
End Sub

TOP

ÁÂÁ§A­Ìªº«ü¾É!
§Ú­nªº¬Osolely ©Ò»¡ªº¡C
¤£¹L¡A§A¨º­Óµ{¦¡¥u¥i§ó§ï¦Ü
sheet3ªº¦WºÙ¡A«á­±ªºsheet 4...sheet21³£¤£¦æ¤F
½Ð°Ý¦³¤èªk¶Ü

TOP

¦^´_ 5# irenemak2007
solelyªºµ{§Ç¨S¿ù ½Ðªþ¤W¹ê»ÚÀÉ®× ¬Ý¬Ý

TOP

¦^´_ 5# irenemak2007

§Ú²q·Q..¥i¯à¬O±zªºAÄæ¸ê®Æµ§¼Æ¤£¨¬³y¦¨.

·í AÄæ¦ìªº¸ê®Æµ§¼Æ ¤p©ó sheet ¼Æ¶q,«h solely ¥S¥xªº»yªk´N·|¥X²{¿ù»~.
«Øij¥[­Ó On Error Resume Next
©ÎªÌ¼W¥[§PÂ_¦¡

TOP

¦^´_  irenemak2007
§Ú²q·Q..¥i¯à¬O±zªºAÄæ¸ê®Æµ§¼Æ¤£¨¬³y¦¨.
·í AÄæ¦ìªº¸ê®Æµ§¼Æ ¤p©ó sheet ¼Æ¶q, ...
jackdream µoªí©ó 2010-8-19 16:20

§Ú²q: ¥i¯à¬OAÄ榳¬Û¦Pªº¸ê®Æ ²£¥Í 1004ªº¿ù»~ "À³¥Îµ{¦¡©Îª«¥ó©w¸q¤Wªº¿ù»~"

TOP

¦U¦ì¤j­ô,
AÄæ¦ìªº¸ê®Æµ§¼Æ ¦h¹L sheet¦s¦bªº ¼Æ¶q¡C·í§Ú­Ì¥´¶}¤@­Ó¤u§@ï¡AùØ­±·|¦³¹w©w3±i¤u§@ªí¡C§Ú¦³4­Ó¦WºÙ·QÅܦ¨¦U¦Û4­Ó¤u§@ªíªº¦WºÙ®É¡Aµ²ªG¥u¦³²{¦s3±i¤u§@ªí§ó´«¤F¦WºÙ¡C§Ú´Á±æ²Ä¥|±i¯à¦Û°Ê¼u¥X¨Ó¡A¨Ã¤v§ó§ï¦n¦WºÙ¡C
By the way, I would like to say "thank you" to GBKEE. The marco you published at the beginning can help me to solve another problem. You are so great!

TOP

¦^´_ 9# irenemak2007
  1. Sub nn()
  2. With Sheet1
  3. For Each a In .Range(.[A1], .[A65536].End(xlUp))
  4.    i = i + 1
  5.    If i <= Sheets.Count Then
  6.       Sheets(i).Name = a
  7.       Else
  8.       With Sheets.Add(after:=Sheets(Sheets.Count))
  9.         .Name = a
  10.       End With
  11.     End If
  12. Next
  13. End With
  14. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD