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

§Ú·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

¦^´_ 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

®¦~ §Úª¾¹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

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

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

Helain

¥i¥H¤F! ÁÂÁÂ

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