[µo°Ý] ¦p¦ó²£¥Í¤£¦P¦WºÙworksheet

Helain

§Ú·Q½Ð°Ý¦p¦ó§Q¥Îexcel VBA ¤@¦¸·s¼W5­Óworksheets,
¶¶«K§ó§ïworksheets¦WºÙ

Sub XXX()

For i = 1 to 5

     worksheets.Add
    ActiveSheet.Name = " Im=i"

Next

End sub

mark15jill

Sub CODE_ST1()
'¿Ã¹õ§ó·sÃö³¬¡A´£¥ÜÃö³¬
Application.DisplayAlerts = False
Application.ScreenUpdating = True
   
'¬¡­¶Ã¯·s¼W
For AAA = 1 To 6 '1 TO 6 ¬O ³Ð³y6­Ó SHEET
    QQ = Sheet1.Range("A" & AAA).Value
'QQªº­È¬° SHEET1ªºAÄæ¦ìªº­È , ¦pªG¬O­n¦h¦r¦ê¦X¨Ö(¦p aÄæ¦ì©MbÄæ¦ì¦X¨Ö) «h ³o¦ê§ó§ï¬° QQ = SHEET1.RANGE("A"&AAA ).VALUE & SHEET1.RANGE("B"&AAA).VALUE  
Sheets.Add After:=Sheets(Sheets.Count)
    Sheets("Sheet" & QQ + 1).Select   'QQ+1¬OÁקK ¤@¶}©lªºSHEET1
    Sheets("Sheet" & QQ + 1).Name = QQ
Next AAA
End Sub

Helain

¥i¥H¤F! ÁÂÁÂ

Hsieh

¦^´_ 14# Helain
¬O³o¼Ëªº·N«ä¶Ü?

    "Im=" & i & "," &  "Ir=" & j"

Helain

®¦~ §Úª¾¹D¦p¦ó§e²{i&J, ¦b¤u§@ªí¦WºÙ
¤£¹L§Ú·Q­nª¾¹D­Y§Ú·Q§e²{"Im=i, Ir=j" ³o¼Ë¦r¦ê»PÅܼƪºµ²¦X¡A§Ú¸Õ¤£¥X¨Ó¡C

Hsieh

¦^´_ 12# Helain


    «ç»ò©R¦W?°Ý§A¦Û¤v°Ú!
¤u§@ªí¦WºÙ´N¬O¤@­Ó¦r¦ê
¨â­ÓÅܼƧA­n«ç¼Ë§e²{?
¬Oi & j¶Ü?
¥ÎF8³v¦æ¥\¯à¬ÝÅܼƪºÅܤơA¨Ó°Ñ¦Ò§A·Q¦p¦ó±o¨ì¦r¦ê

Helain

§Ú·Q­n¦A°Ý, ¦pªG¦³2­ÓÅܼơA­n¦p¦ó©R¦W
Sub Remain_M()
    For i = 0 To 5
          for j = 0 to 5
              Worksheets.Add
              With ActiveSheet
             .Name = (i,j)
             End With
    Demand_M_2nd i
    Demand_R_2ndj
  Next
Next
End Sub

Hsieh

¦^´_ 10# Helain

¨ä¹ê³oÃä¤]¤£¥²¥Î¨ìWith³¯­z¦¡
ª½±µ¨Ï¥ÎActiveSheet .Name = "Im=" & i§Y¥i
³q±`¦b¦P¤@ª«¥óªº±Ô­z®É¡A¬°´î¤Öª«¥óªº¨Ï¥Î
¤~»Ý­n±N¸Óª«¥ó­n±Ô­zªºÄݩʧQ¥ÎWith ...End With³¯­z¦¡

Helain

·PÁÂHsieh¤j¤jªº¸Ñµª¡A
¤£¹L¡A¥i§_¬°§Ú¸ÑÄÀ¤@¤U¥Dµ{¦¡ªº³¡¤À
¬°¦ó­n¥Îwith ~ end with
³o¬O¤°»òª¬ªp¤U¥Îªº©O?

p.s. §Ú¬O·s¤â¤@¤Á³£ÁÙ¦bºN¯Á»P¾Ç²ß

Hsieh

¦^´_ 8# Helain

¬O³o¼Ë¶Ü?

1. Sub Remain_M()
   
2. For i = 0 To 5
   
3.     Worksheets.Add
   
4.     With ActiveSheet
   
5.     .Name = "Im=" & i
   
6.     End With
   
7.     Demand_M_2nd i
   
8. Next
   
9. End Sub
   
10. Function Demand_M_2nd(ByVal Im As Integer)
    
11. 
    
12.     For i = 3 To 5
    
13.    
    
14.         If Worksheets(1).Cells(i, 2).Value - Im > 0 Then
    
15.         
    
16.             ActiveSheet.Cells(i, 2).Value = Cells(i, 2).Value - Im
    
17.         
    
18.         Else
    
19.         
    
20.             ActiveSheet.Cells(i, 2).Value = 0
    
21.          
    
22.         End If
    
23.          
    
24.     Next
    
25.                  
    
26. End Function

½Æ»s¥N½X