ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

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

¦^´_ 1# Helain


     ActiveSheet.Name = " Im=" & i
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÂÁª©¥D:D

¥t¥~¤@­Ó°ÝÃD:
Sub Remain_M()

For i = 0 To 5

    Worksheets.Add
    ActiveSheet.Name = "Im=" & i
    Worksheets("Im=" & i) = Demand_M_2nd(Im)
(©³½uªº³¡¤À¸Ó¦p¦ó§ó§ï)
   
   
Next

   
End Sub

Function Demand_M_2nd(ByVal Im As Integer)

    For i = 3 To 5
   
        If Worksheets("Sheet1").Cells(i, 2).Value - Im > 0 Then
        
            Cells(i, 2).Value = Cells(i, 2).Value - Im
        
        Else
        
            Cells(i, 2).Value = 0
         
        End If
         
    Next
                 
End Function

TOP

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

§Úªº°ÝÃD¬O¦b ¥Dµ{¦¡¤£¦P­Ói¤§¤U,
¥hŪ¨ú¤lµ{¦¡¡A¦A§â¤lµ{¦¡µ²ªG¡A¿é¥X¦Ü¤@­Ó·sªº¤u§@ªí, ¶¶«K©R¦W·sªº¤u§@ªí¦WºÙ

TOP

¥»©«³Ì«á¥Ñ hugh0620 ©ó 2011-10-21 11:57 ½s¿è

¦^´_ 5# Helain

    ¼Ó¥Dªº°ÝÃD~ §Ú¥H«e¤]¦³°Ý¹L~  
    ­Ó¤H¶K©«ªº³sµ²ÂI¸ê®Æ¦ç±ø¥ó ¤ÀSHEET
    ´£¨Ñ¤@­Óª©¤j­Ìªº³B²z¤âªk~ ¦Û¤v¦AºI¨ú©Ò»Ý­nªº³¡¥÷~ ¨Ó§¹¦¨ªºÀÉ®×~
    Data_VBA§¹¦¨ª©_1.rar (103.16 KB)
  1. Private Sub CommandButton1_Click()
  2. Macro5 '½Æ»s¶K¤WData¶×¾ã

  3. '=====±Æ§Ç====
  4. Range("B3").End(xlToRight).End(xlDown).Sort Key1:=Range("B3"), _
  5. Order1:=xlAscending, Key2:=Range("C3"), Order2:=xlAscending, Key3:=Range("E3"), Order3:=xlAscending, Header:=xlYes
  6. '=====±Æ§Ç====

  7. '=====¶i¶¥¿z¿ï====
  8.     Range("B2").Select
  9.     Range(Selection, Selection.End(xlDown)).Select
  10.     Range("B2:B256").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
  11.         "A2"), Unique:=True
  12. '=====¶i¶¥¿z¿ï====

  13. Dim N As Integer

  14. A = Application.CountA(Sheet2.[A3:A65536])  'A²Î­p¥X»Ý­n¶]´X­ÓSheet

  15. For N = 1 To A

  16.   Sheets.Add AFTER:=Worksheets(N + 1)           '·s¼Wsheet
  17.   ActiveSheet.Range("A1") = Sheet2.Range("B2")
  18.   ActiveSheet.Range("B1") = Sheet2.Cells(2 + N, 1)
  19.   ActiveSheet.Range("B2") = Sheet2.Range("E2")
  20.   
  21.     For K = 1 To 96
  22.     ActiveSheet.Cells(3 + Y, 1) = "POINT_" & K
  23.     ActiveSheet.Cells(3 + Y, 2) = 1
  24.     Y = Y + 1
  25.     Next
  26.     For K = 1 To 96
  27.     ActiveSheet.Cells(3 + Y, 1) = "POINT_" & K
  28.     ActiveSheet.Cells(3 + Y, 2) = 97
  29.     Y = Y + 1
  30.     Next
  31.     For K = 1 To 96
  32.     ActiveSheet.Cells(3 + Y, 1) = "POINT_" & K
  33.     ActiveSheet.Cells(3 + Y, 2) = 193
  34.     Y = Y + 1
  35.     Next
  36.     Y = 0
  37.   ActiveSheet.Name = Sheet2.Cells(2 + N, 1) 'Sheet2.Range("B2") & Sheet2.Cells(2 + N, 1) '¼ÐÅÒ¦WºÙ ¶È¼Ð¤W¼Æ¦r,­Y¦³»Ý­n½Ð§â=«á­±§ï¦^Sheet2.Range("B2") & Sheet2.Cells(2 + N, 1)
  38.    
  39.     Do Until Sheet2.Cells(3 + H, 2) = ""
  40.         If Sheet2.Cells(3 + H, 2) = Sheet2.Cells(2 + N, 1) Then
  41.             If ActiveSheet.Cells(2, 2 + Z) = Sheet2.Cells(3 + H, 3) Then
  42.                 Select Case Sheet2.Cells(3 + H, 5)
  43.                     Case 1
  44.                         For X = 1 To 96
  45.                         ActiveSheet.Cells(2 + X, 2 + Z) = Sheet2.Cells(3 + H, 5 + X)
  46.                         Next
  47.                     Case 97
  48.                         For X = 1 To 96
  49.                         ActiveSheet.Cells(98 + X, 2 + Z) = Sheet2.Cells(3 + H, 5 + X)
  50.                         Next
  51.                     Case 193
  52.                         For X = 1 To 96
  53.                         ActiveSheet.Cells(194 + X, 2 + Z) = Sheet2.Cells(3 + H, 5 + X)
  54.                         Next
  55.                 End Select
  56.             Else
  57.                 Z = Z + 1
  58.                 ActiveSheet.Cells(2, 2 + Z) = Sheet2.Cells(3 + H, 3)
  59.                 Select Case Sheet2.Cells(3 + H, 5)
  60.                     Case 1
  61.                         For X = 1 To 96
  62.                         ActiveSheet.Cells(2 + X, 2 + Z) = Sheet2.Cells(3 + H, 5 + X)
  63.                         Next
  64.                     Case 97
  65.                         For X = 1 To 96
  66.                         ActiveSheet.Cells(98 + X, 2 + Z) = Sheet2.Cells(3 + H, 5 + X)
  67.                         Next
  68.                     Case 193
  69.                         For X = 1 To 96
  70.                         ActiveSheet.Cells(194 + X, 2 + Z) = Sheet2.Cells(3 + H, 5 + X)
  71.                         Next
  72.                 End Select
  73.             End If
  74.         End If
  75.     H = H + 1
  76.     Loop

  77.     H = 0
  78.     Z = 0
  79.     ActiveSheet.Rows("2:2").Select
  80.     Selection.NumberFormatLocal = "yyyy/m/d"
  81. Next
  82. End Sub
½Æ»s¥N½X
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦^´_ 5# Helain

²³æªº»¡©pªº¤lµ{¦¡´N¬O¤u§@ªíªº©R¦W³W«h
½Ð»¡©ú§Aªº©R¦W³W«h
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¤£¦n·N«ä¡A§Ú¥i¯à»¡ªº¤£¬O«Ü²M·¡
§Ú·Q§Q¥Î¥Dµ{¦¡¤£¦PªºIm,
µM«á¨ì¤lµ{¦¡¥h°µ¹Bºâ,
¦A§â¤lµ{¦¡ºâ¥X¨Óªºµ²ªG¡A
¿é¥X¨ì·sªº¤u§@ªí,
µM«á, §Ú·Q¬°§Úªº¤u§@ªí©R¦W(·Q­n©R¦W¤è¦¡¬°Im= i , ³oºØ«¬ºA)

TOP

¦^´_ 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.     For i = 3 To 5
  12.    
  13.         If Worksheets(1).Cells(i, 2).Value - Im > 0 Then
  14.         
  15.             ActiveSheet.Cells(i, 2).Value = Cells(i, 2).Value - Im
  16.         
  17.         Else
  18.         
  19.             ActiveSheet.Cells(i, 2).Value = 0
  20.          
  21.         End If
  22.          
  23.     Next
  24.                  
  25. End Function
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

·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¾Ç²ß

TOP

        ÀR«ä¦Û¦b : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD