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

[µo°Ý] ½Ð°Ý¦p¦ó§Q¥Îvba§R°£¬¡­¶Ã¯¤¤ªº¤u§@ªí?

[µo°Ý] ½Ð°Ý¦p¦ó§Q¥Îvba§R°£¬¡­¶Ã¯¤¤ªº¤u§@ªí?

¦pªG§Úªº¬¡­¶Ã¯¤¤¦³n­Ó¤u§@ªí
§Ú¥u·Q«O¯dsheet1 & sheet2
¨ä¾lªº±q sheet3¶}©l¥]§t¥H¤Wªº¤u§@ªí¥þ³¡§R±¼!
½Ð°Ý«ü¥O­n¦p¦ó¤U??

¦^´_ 1# ´Ñ»y³¾»ï
  1. Sub Ex()
  2.     Dim i As Integer
  3.     Application.DisplayAlerts = False
  4.     For i = Sheets.Count To 3 Step -1
  5.         Sheets(i).Delete
  6.     Next
  7.     Application.DisplayAlerts = True
  8. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE


    ­ì¨Ó¬O³o¼Ë¼gªü~§Ú¤@ª½·Q¤£³q~G¤jÁÂÁªü~¨C¦¸³£³Â·Ð±z~¯u¬O¤£¦n·N«ä!!

TOP

½Ð°ÝGBKEEª©¤j¡A¦pªG§Ú¤u§@ªí³£¦³¯S®íªº©R¦W¤è¦¡¡]¤é´Á+§ë¤J¶q¡^¡A¥i§_¥H°}¦C¤è¦¡±N¤§«e·s¼WªºÀɮקR°£¡A¤U­±¬O§Úªºµ{¦¡½X¡G
PS.§Úª¾¹D¤£¯à¥Îdir¨Ó«ü©w¤u§@­¶¡A¤£¹L¥Ø«e§ÚÁÙ¨S·Q¨ì¨ä¥L¤è¦¡
  1. Sub §ë¤J¶q()

  2.     Set MyBook = ThisWorkbook
  3.     Set MySht = MyBook.Sheets("³øªí")
  4.     MyPath = MyBook.Path & "\§ë¤J¶q\"

  5.     '§R°£¤u§@­¶
  6.     Dim FindSht( ) As String
  7.     FindSht( ) = Dir(MyBook.Sheet("*§ë¤J¶q"))
  8.     Do While FindSht( ) <> ""
  9.         FindSht( ).Delete
  10.     Loop

  11.     '¶×¤J¸ê®Æ
  12.     Dim str(1), FindFile(1) As String, WbDate(1) As Date
  13.     For i = 3 To 95
  14.         If i Mod 3 = 0 Then
  15.             If MySht.Cells(i, 1).Value <> "" Then
  16.                 WbDate(0) = MySht.Cells(i, 1).Value
  17.                 WbDate(1) = MySht.Cells(i, 1).Value + 1
  18.                 str(0) = Format(WbDate(0), "mmddyyyy")
  19.                 str(1) = Format(WbDate(1), "mmddyyyy")

  20.                 FindFile(0) = Dir(MyPath & "d_ic1_" & str(0) & "_0200.xls")                 '¶}date(0)ÀÉ®×
  21.                 If FindFile(0) <> "" Then
  22.                     Workbooks.Open MyPath & FindFile(0)

  23.                     Windows("d_ic1_" & str(0) & "_0200.xls").Activate
  24.                     Range("C35:F35").Select
  25.                     Application.CutCopyMode = False
  26.                     Selection.Copy
  27.                
  28.                     Windows("¦yÂ÷®pµo¹q¤ÎµI¤Æ¶q²Î­p.xls").Activate
  29.                     Worksheets.Add
  30.                     ActiveSheet.Name = Mid(str(0), 1, 4) + "§ë¤J¶q"
  31.                     Range("B2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  32.                     :=False, Transpose:=False

  33.                     Workbooks(FindFile(0)).Close SaveChanges:=False
  34.                 Else
  35.                     MsgBox "§ä¤£¨ìÀÉ®×: " & "d_ic1_" & str(0) & "_0200.xls", 0 + 48, ">>´£¥Ü°T®§": Exit Sub 'Exit For·|²£¥ÍnextµLfor¿ù»~!!
  36.                     Application.ScreenUpdating = False
  37.                 End If
  38.         
  39.                 FindFile(1) = Dir(MyPath & "d_ic1_" & str(1) & "_0200.xls")                 '¶}date(1)ÀÉ®×
  40.                 If FindFile(1) <> "" Then
  41.                     Workbooks.Open MyPath & FindFile(1)

  42.                     Windows("d_ic1_" & str(1) & "_0200.xls").Activate
  43.                     Range("C12:F34").Select
  44.                     Application.CutCopyMode = False
  45.                     Selection.Copy

  46.                     Windows("¦yÂ÷®pµo¹q¤ÎµI¤Æ¶q²Î­p.xls").Activate
  47.                     Sheets(Mid(str(0), 1, 4) + "§ë¤J¶q").Activate
  48.                     Range("B3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  49.                     :=False, Transpose:=False

  50.                     Range("A1").FormulaR1C1 = "Hour"
  51.                     Range("A2").FormulaR1C1 = "00:00"
  52.                     Range("A3").FormulaR1C1 = "01:00"
  53.                     Range("A2:A3").Select
  54.                     Selection.AutoFill Destination:=Range("A2:A25")
  55.    
  56.                     Range("B1").FormulaR1C1 = "#1Äl§ë¤J¶q"
  57.                     Range("C1").FormulaR1C1 = "#2Äl§ë¤J¶q"
  58.                     Range("D1").FormulaR1C1 = "#3Äl§ë¤J¶q"
  59.                     Range("E1").FormulaR1C1 = "#4Äl§ë¤J¶q"
  60.                     
  61.                     Range("G1").FormulaR1C1 = "­È§O"
  62.                     Range("G2").FormulaR1C1 = "1"
  63.                     Range("G3").FormulaR1C1 = "2"
  64.                     Range("G4").FormulaR1C1 = "3"
  65.                     Range("H1").FormulaR1C1 = "#1Äl§ë¤J¶q"
  66.                     Range("H2").FormulaR1C1 = "=SUM(RC[-6]:R[8]C[-6])"
  67.                     Range("H3").FormulaR1C1 = "=SUM(R[8]C[-6]:R[14]C[-6])"
  68.                     Range("H4").FormulaR1C1 = "=SUM(R[14]C[-6]:R[21]C[-6])"
  69.                     Range("I1").FormulaR1C1 = "#2Äl§ë¤J¶q"
  70.                     Range("I2").FormulaR1C1 = "=SUM(RC[-6]:R[8]C[-6])"
  71.                     Range("I3").FormulaR1C1 = "=SUM(R[8]C[-6]:R[14]C[-6])"
  72.                     Range("I4").FormulaR1C1 = "=SUM(R[14]C[-6]:R[21]C[-6])"
  73.                     Range("J1").FormulaR1C1 = "#3Äl§ë¤J¶q"
  74.                     Range("J2").FormulaR1C1 = "=SUM(RC[-6]:R[8]C[-6])"
  75.                     Range("J3").FormulaR1C1 = "=SUM(R[8]C[-6]:R[14]C[-6])"
  76.                     Range("J4").FormulaR1C1 = "=SUM(R[14]C[-6]:R[21]C[-6])"
  77.                     Range("K1").FormulaR1C1 = "#4Äl§ë¤J¶q"
  78.                     Range("K2").FormulaR1C1 = "=SUM(RC[-6]:R[8]C[-6])"
  79.                     Range("K3").FormulaR1C1 = "=SUM(R[8]C[-6]:R[14]C[-6])"
  80.                     Range("K4").FormulaR1C1 = "=SUM(R[14]C[-6]:R[21]C[-6])"
  81.                     Range("L1").FormulaR1C1 = "ªþµù"
  82.                     Range("L2").FormulaR1C1 = "23:00~08:00"
  83.                     Range("L3").FormulaR1C1 = "08:00~15:00"
  84.                     Range("L4").FormulaR1C1 = "15:00~23:00"
  85.                     
  86.                     Workbooks(FindFile(1)).Close SaveChanges:=False
  87.                 Else
  88.                     MsgBox "§ä¤£¨ìÀÉ®×: " & "d_ic1_" & str(1) & "_0200.xls", 0 + 48, ">>´£¥Ü°T®§": Exit Sub
  89.                     Application.ScreenUpdating = False
  90.                 End If
  91.             End If
  92.         End If
  93.     Next
  94. End Sub
½Æ»s¥N½X
waterful.tw

TOP

¦^´_ 4# waterful.tw
¬O³o¼Ë½X?
  1. Option Explicit
  2. Sub §ë¤J¶q()
  3.     Dim MyBook As Workbook, MySht As Worksheet, MyPath As String
  4.     Set MyBook = ThisWorkbook
  5.     Set MySht = MyBook.Sheets("³øªí")
  6.     MyPath = MyBook.Path & "\§ë¤J¶q\"
  7.     '§R°£¤u§@­¶ ( ÀÉ®× )
  8.     Kill MyPath & "*§ë¤J¶q*"   '§R°£ÀɦW¤¤¦³ "§ë¤J¶q" ¦r¦ê ªºÀÉ®×
  9.    ' Kill "d:\*.txt"                 '§R°£©Ò¦³txtÀÉ,ªºÀÉ®×
  10. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

RE: ½Ð°Ý¦p¦ó§Q¥Îvba§R°£¬¡­¶Ã¯¤¤ªº¤u§@ªí?

Sorryª©¤j¡A§Ú´y­zªº¤£°÷²M·¡¡A¬O§R°£²£¥Íªºsheets("*§ë¤J¶q")¡Aªþ¤W§ÚªºÀÉ®×°µ°Ñ¦Ò¡A·PÁ¡I ¦yÂ÷®pµo¹q¤ÎµI¤Æ¶q²Î­p.rar (92.58 KB)
waterful.tw

TOP

¦^´_ 6# waterful.tw
¨º¬O³o¼Ë!!
  1. Sub §ë¤J¶q()
  2.     Dim MyBook As Workbook, sh As Worksheet
  3.     Set MyBook = ThisWorkbook
  4.     Application.DisplayAlerts = False  '°±¤î¨t²ÎªºÄµ¥Ü
  5.     For Each sh In MyBook.Sheets
  6.         If sh.Name Like "*§ë¤J¶q" Then sh.Delete
  7.     Next
  8.     Application.DisplayAlerts = True   '«ì´_¨t²ÎªºÄµ¥Ü
  9. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 7# GBKEE
·PÁÂGBKEEª©¤j¡A°ÝÃD¤w¸Ñ¨M¡A§ÚÁÙ¨S·Q¨ì¥i¥H¥ÎFor Each...Next°j°é¥sWB¸Ì­±ªº©Ò¦³sheets¡Aª©¤jªGµM¼F®`¡I
waterful.tw

TOP

        ÀR«ä¦Û¦b : §ïÅܦۤv¬O¦Û±Ï¡A¼vÅT§O¤H¬O±Ï¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD