[µo°Ý] ½Ð°Ý¦p¦ó§Q¥Î°j°éªº¤è¦¡¥h¶]..¥t¤@­Ó¤u§@ªí¤ºªºÀx¯Â®æ¤º®eªº¤u§@ªí

´Ñ»y³¾»ï

°²³]§Ú¦ba3~a9¥´¤W­n°µ°j°éªº¤u§@ªí¦WºÙ!
½Ð°Ý­n¦p¦ó§Q¥Î«Å§iÅܼƤΰj°éªº¤è¦¡¥h¶]a3~a9³o´X­Ó¦WºÙªº¤u§@ªí!
¨ÃÅý¨äb1=5
¦bFor¤U­±ªº«Å§iÅܼƳ]©w
¥h°µ A & i ªº°j°é
¤£¹L¦n¹³·|¥X¿ù
¤£ª¾­þ¸Ìªº°ÝÃD
½Ð¦U¦ì¤j®v«ü±Ð...ÁÂÁÂ~~~

¤U¸ü (44.35 KB)

2012-4-11 19:31

GBKEE

¦^´_ 4# ´Ñ»y³¾»ï
¦³ Option Explicit ¤@©w­n «Å§iÅܼÆ
¤£¥[ Option Explicit ¤Wµ{¦¡®e©ö¥X¿ù

1. Option Explicit
   
2. Sub xx()
   
3. For i = 3 To 9
   
4.   Sh = Sheets("¤u§@ªí¦WºÙ").Range("A" & i)
   
5.   Sheets(Sh).[B1] = 5
   
6. Next i
   
7. End Sub
   
8. Sub yy()
   
9. For Each Sh In Sheets
   
10.   Set x = Sheets("¤u§@ªí¦WºÙ").[A3:A9].Find(Sh.Name, , , xlWhole)
    
11.   If Not x Is Nothing Then Sheets(Sh.Name).[B1] = 5
    
12. Next
    
13. End Sub

½Æ»s¥N½X

´Ñ»y³¾»ï

¦^´_ 2# Hsieh
¦^´_ 3# register313
­ì¨ÓÁÙ¦³³o»ò¦h¤èªk...·PÁ¨â¦ì¤j¤jªº±Ð¾É~
²{¦b¤~ª¾¹D...­ì¨Ó¦³®É«Å§i¤]¥i¥H¤£¥Îdim as.......

register313

¦^´_ 1# ´Ñ»y³¾»ï

1. Sub xx()
   
2. For i = 3 To 9
   
3.   Sh = Sheets("¤u§@ªí¦WºÙ").Range("A" & i)
   
4.   Sheets(Sh).[B1] = 5
   
5. Next i
   
6. End Sub
   
7. 
   
8. Sub yy()
   
9. For Each Sh In Sheets
   
10.   Set x = Sheets("¤u§@ªí¦WºÙ").[A3:A9].Find(Sh.Name, , , xlWhole)
    
11.   If Not x Is Nothing Then Sheets(Sh.Name).[B1] = 5
    
12. Next
    
13. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 1# ´Ñ»y³¾»ï

1. Sub ex()
   
2. Dim A As Range
   
3. For Each A In [A3:A9]
   
4.   Sheets(A.Text).[B1] = 5
   
5. Next
   
6. End Sub

½Æ»s¥N½X