Hsieh

¦^´_ 1# Helain


     ActiveSheet.Name = " Im=" & i

Hsieh

¦^´_ 3# Helain
¬Ý¤£À´Demand_M_2nd¨ç¼Æ­n¶Ç¦^¬Æ»òªF¦è
°ò¥»¤W§Aªº¥Dµ{§ÇÀ³¸Ó¬O

1. Sub Remain_M()
   
2. For i = 0 To 5
   
3.     Worksheets.Add
   
4.     ActiveSheet.Name = CStr(Demand_M_2nd(i))
   
5. Next
   
6. End Sub

½Æ»s¥N½X

¥u­n¯à½T©wDemand_M_2nd¨ç¼Æ­pºâ¥¿½T´N¯à¬°¤u§@ªí©R¦W

Hsieh

¦^´_ 5# Helain

²³æªº»¡©pªº¤lµ{¦¡´N¬O¤u§@ªíªº©R¦W³W«h
½Ð»¡©ú§Aªº©R¦W³W«h

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

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¦¡

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¦ê

Hsieh

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

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