GBKEE

¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub EX() '**1. ±qSheets("2")ªº¤u§@ªí¦WºÙ(¤£¬O±q²Ä2­Ó¤u§@ªí¶}©l¼Æ),¤@ª½¨ì³Ì«á¤@­Ó¤u§@ªí¿ï¨ú°_¨Ó
   
3.     Dim Sh As Worksheet, Ar, M As String
   
4.     For Each Sh In Sheets
   
5.         If Sh.Name = "2" Then
   
6.             M = Sh.Name
   
7.         ElseIf M <> "" Then
   
8.             M = M & "," & Sh.Name
   
9.         End If
   
10.         '**Range(B2:C3)­È¤Æ(Åý¤½¦¡Åܦ¨­È)
    
11.         If M <> "" Then Sh.Range("B2:C3") = Sh.Range("B2:C3").Value
    
12.     Next
    
13.     Ar = Split(M, ",")
    
14.     Sheets(Ar).Select
    
15. End Sub
    
16. 
    
17. Sub EX1() '**2. ±qSheets("2")¶}©l¦ÜSheet("Á`ªí")µ²§ô,¤§¶¡ªº°_¨´½d³ò¤u§@ªí¿ï¨ú°_¨Ó
    
18.     Dim Sh As Worksheet, Ar, M As String
    
19.     For Each Sh In Sheets
    
20.         If Sh.Name = "2" Then
    
21.             M = Sh.Name
    
22.         ElseIf M <> "" Then
    
23.             M = M & "," & Sh.Name
    
24.         End If
    
25.         '**Range(B2:C3)­È¤Æ(Åý¤½¦¡Åܦ¨­È)
    
26.         If M <> "" Then Sh.Range("B2:C3") = Sh.Range("B2:C3").Value
    
27.         If Sh.Name = "Á`ªí" Then Exit For
    
28.     Next
    
29.     Ar = Split(M, ",")
    
30.     Sheets(Ar).Select
    
31. End Sub

½Æ»s¥N½X

¦^´_ 1# PJChen

GBKEE

¦^´_ 3# PJChen


¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Sh As Worksheet, xday(1 To 2) As Integer, Msg As Boolean, Ar
   
4.     xday(1) = 4            '**«ü©w¶}©l¤é
   
5.     xday(2) = Day(DateSerial(Year(Date), Month(Date) + 1, 0))  '**¤ë©³¤é
   
6.     Application.DisplayAlerts = False
   
7.     For Each Sh In Sheets
   
8.         Msg = True
   
9.         If IsNumeric(Sh.Name) And Val(Sh.Name) > xday(2) Then
   
10.             Msg = False
    
11.             Sh.Delete
    
12.         ElseIf IsNumeric(Sh.Name) And Val(Sh.Name) < xday(1) Then
    
13.             Msg = False
    
14.         End If
    
15.         If Msg Then Ar = Ar & "," & Sh.Name: Sh.[B2] = Sh.[B2].Value
    
16.     Next
    
17.     Ar = Split(Mid(Ar, 2), ",")
    
18.     Sheets(Ar).Select
    
19.     Application.DisplayAlerts = True
    
20. End Sub

½Æ»s¥N½X