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

[µo°Ý] API³vµ§¹Bºâ­t¾á¤j¡A¥i§_ºë²

¥»©«³Ì«á¥Ñ GBKEE ©ó 2018-10-13 09:01 ½s¿è

¦^´_ 1# dreamsway
°Ñ¦Ò¬Ý¬Ý
  1. Option Explicit
  2. Public uMode&, StartTime, EndTime
  3. Public MyBook As Workbook, Sht1 As Worksheet, Sht2 As Worksheet, Sht3 As Worksheet, xRow&
  4. Sub ¦@¥Î°Ñ·Ó()
  5.     Set MyBook = ThisWorkbook
  6.     Set Sht1 = MyBook.Sheets("¦hªÅÂŹÏ")
  7.     Set Sht2 = MyBook.Sheets("³ø»ù¼Æ¾Ú")
  8.     Set Sht3 = MyBook.Sheets("¦hªÅ¼Æ¾Ú")
  9.     StartTime = "08:44:50"  '¶}½L®É¶¡¡]´£¦­¤Q¬í¶}©l¡A¤~¥i°O¿ý¶}½L¶q»ù¡^
  10. End Sub
  11. Sub ³ø»ù¹Bºâ()
  12.     Dim xTime As Date
  13.     Call ¦@¥Î°Ñ·Ó '´ú¸Õ¥Î
  14.     If Sht2.Range("H2") <> 1 Then '¶}½L±ø¥ó
  15.         Sht2.Range("J2,J4,J5").ClearContents '²M°£¬ö¿ý¸ê®Æ
  16.         Sht2.Range("K2") = Sht2.Range("I2") '§PÂ_»ù§ï¬°¶}½L»ù
  17.     End If
  18.     i = 1
  19.     xTime = Time
  20.     Do
  21.                 If Time > xTime Then  'Time ¥H¬í­pºâªº ** Time > xTime = >¤U¤@¬í **
  22.             i = i + 1: xTime = Time
  23.             If Sht2.Cells(2, "J") = "¡ô" And Sht2.Cells(i, "H") <> 1 Then '¦h¤è¥[Á`
  24.                 Sht2.Range("J4") = Sht2.Range("J4") + Sht2.Range("D" & i)
  25.             End If
  26.             If Sht2.Cells(2, "J") = "¡õ" And Sht2.Cells(i, "H") <> 1 Then 'ªÅ¤è¥[Á`
  27.                 Sht2.Range("J5") = Sht2.Range("J5") + Sht2.Range("D" & i)
  28.             End If
  29.             If Sht2.Cells(i, "H") <> 1 Then '³ø»ù®É¶¡¶Ç°e¨ì¦hªÅÂŹÏ
  30.                 Sht1.Cells(1, "C") = Sht2.Range("B" & i)
  31.             End If
  32.             Call ¦hªÅ¬ö¿ý
  33.             Sht2.Cells(i, "H") = 1 '¹Bºâ¹Lªº¶i¦æ¼Ð°OÁקK­«½Æ¹Bºâ
  34.         End If
  35.     Loop Until Sht2.Range("C" & i + 1) = 0 '°j°é°±¤î±ø¥ó
  36. End Sub
  37. Sub ¦hªÅ¬ö¿ý()
  38.      Dim xMinute As Integer
  39.         Call ¦@¥Î°Ñ·Ó '´ú¸Õ¥Î
  40.         xMinute = Int(Application.Text(Time - #8:45:00 AM#, "[M]") / 5)
  41.         '*** xMinute ¥H Time ¶Z 8:45 ªº¤ÀÄÁ¼Æ / 5 ¶Ç¦^ªº¾ã¼Æ
  42.         '*** Time ¤p©ó 8:45 ±o¨ì­t¼Æ
  43.         If xMinute > -1 And Time <= #1:45:00 PM# Then
  44.             xMinute = xMinute + 2   '*** ±q²Ä2¦C¶}©l
  45.             Sht3.Cells(xMinute, "B") = Sht2.Cells(4, "J")
  46.             Sht3.Cells(xMinute, "C") = Sht2.Cells(5, "J")
  47.         End If
  48. End Sub
  49. Sub ²M°£¼Ð°O()
  50.     Call ¦@¥Î°Ñ·Ó '´ú¸Õ¥Î
  51.     Sht2.Columns("H").Clear
  52.     Sht2.Cells(1, "H").Value = "¼Ð°O"
  53. End Sub
  54. Sub ²M°£³ø»ù()
  55.     Dim qyt As QueryTable '§R°£¥~³¡³s½u
  56.     Call ¦@¥Î°Ñ·Ó '´ú¸Õ¥Î
  57.     With Sht2
  58.         .Columns("A:G").Clear '§R°£«á±N¼ÐÃD¦WºÙ¶ñ¤J
  59.         .Columns("A:G").Rows(1) = Array("¥N¸¹", "®É¶¡", "¦¨¥æ»ù", "³æ¶q", "Á`¶q", "³Ì°ª»ù", "³Ì°ª»ù", "³Ì§C»ù")
  60.         For Each qyt In .QueryTables
  61.             qyt.Delete
  62.         Next
  63.     End With
  64. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 3# dreamsway
½Ð¦Û¦æ¸Õ§ï¬Ý¬Ý
Sub ¦hªÅ¬ö¿ý() ¤¤ Time §ï¦¨ Sht1.Range("C1")
  1. Sub ³ø»ù¹Bºâ()
  2.     Dim xTime As Date
  3.     Call ¦@¥Î°Ñ·Ó '´ú¸Õ¥Î
  4.     If Sht2.Range("H2") <> 1 Then '¶}½L±ø¥ó
  5.         Sht2.Range("J2,J4,J5").ClearContents '²M°£¬ö¿ý¸ê®Æ
  6.         Sht2.Range("K2") = Sht2.Range("I2") '§PÂ_»ù§ï¬°¶}½L»ù
  7.     End If
  8.     i = 1
  9.     xTime = Time
  10.     Do
  11.         i = i + 1
  12.         If Sht2.Cells(2, "J") = "¡ô" And Sht2.Cells(i, "H") <> 1 Then '¦h¤è¥[Á`
  13.             Sht2.Range("J4") = Sht2.Range("J4") + Sht2.Range("D" & i)
  14.         End If
  15.         If Sht2.Cells(2, "J") = "¡õ" And Sht2.Cells(i, "H") <> 1 Then 'ªÅ¤è¥[Á`
  16.             Sht2.Range("J5") = Sht2.Range("J5") + Sht2.Range("D" & i)
  17.         End If
  18.         If Sht2.Cells(i, "H") <> 1 Then '³ø»ù®É¶¡¶Ç°e¨ì¦hªÅÂŹÏ
  19.             Sht1.Cells(1, "C") = Sht2.Range("B" & i)
  20.         End If
  21.         If Time > xTime Then  '** ¤@¬í¹B¦æ¤@¦¸    **
  22.             xTime = Time
  23.             Call ¦hªÅ¬ö¿ý
  24.         End If
  25.         Sht2.Cells(i, "H") = 1 '¹Bºâ¹Lªº¶i¦æ¼Ð°OÁקK­«½Æ¹Bºâ
  26.     Loop Until Sht2.Range("C" & i + 1) = 0 '°j°é°±¤î±ø¥ó
  27. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 6# dreamsway

©ú¤Ñ¶}½L ¥i´ú¬Ý¬Ý

    ¨Ì®É¶¡¬ö¿ý.zip (29.26 KB)
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2018-10-16 10:53 ½s¿è

¦^´_ 9# dreamsway

¥Ñ©ó²{¦b¬O¨C¤@µ§¦¨¥æ´N¶i¦æ¤@¦¸¹Bºâ¡A1¬í¤º¥i¯à¦¨¥æ«Ü¦hµ§¥æ©ö

³o¸ê®Æ¬O­þ¸Ì¨Óªº



¦hªÅÂÅ¹Ï ¤W¬O»Ý¶ñ¤WDee¤½¦¡ªº¦p§A¨S¦³
½Ðªþ¤W§Aªº­ì©lÀɮ׬ݬÝ
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2018-10-16 18:13 ½s¿è

¦^´_ 11# dreamsway

"³z¹L´Á³f°ÓAPIªº±N³ø»ù¶Ç¿é¨ì¹q¸£¦¨¬°txtÀÉ"
¬OªÑ¥«Àç·~®É¶¡¤@ª½¦b±µ¦¬ µM«á"¦¨¬°txtÀÉ" ?

"­ì¥»¦³RTDªº³¡¤À¡A»Ý­n¥~±¾¤@°ï´Á³f°Óªºµ{¦¡"
µ¹§AªºÀÉ®×´N¬O¿é¤J³o¨Çªº¤½¦¡,©óªÑ¥«Àç·~®É¶¡±µ¦¬¸ê®Æ
§Ú¬O¥Î¥x·sÃҨ骺´¼¦h¬P¬Ý½L ±µ¦¬¸ê®Æ

¥¼©R¦W.jpg
2018-10-16 16:29


³o¸Ì­n­×§ï
ThisWorkbook.Sheets("¦hªÅÂŹÏ").Range("A2") '** «ü¼Æ ¥N¸¹
  1. Sub AUTO_OPEN()
  2. Dim i As Integer, A, Rng As Range, xName As String, n As Name
  3. '*** ³]©w¤ÀÄÁªº¶¡¹j***
  4. Names.Add "Ar", Array("1¤À", "5¤À", "10¤À", "15¤À", "20¤À", "30¤À", "60¤À")
  5. Set Rng = ThisWorkbook.Sheets("¦hªÅÂŹÏ").Range("A2") '** «ü¼Æ ¥N¸¹
  6. On Error GoTo Sh_Add '³B²zµ{¦¡¿ù»~®Éªº±¹¬I
½Æ»s¥N½X
³o¸Ì­n­×§ï
Dim ¦¨¥æ»ù As Double, ¦hªÅ As Long, ¦h©ñ As Long
With ThisWorkbook.Sheets(Rng(1).Value) '**¤u§@ªí(«ü¼Æ¥N¸¹)
  1. Private Sub Worksheet_Calculate()
  2. Dim Rng(1 To 2) As Range, i As Integer, xName As String, xTime(1 To 2) As Date, T(1 To 2) As Integer
  3. Dim ¦¨¥æ»ù As Double, ¦hªÅ As Long, ¦h©ñ As Long
  4. If IsError([sum(a:e)]) Then Exit Sub '**¶}½L«eªº²M½LDEE¦³®É·|¶Ç¦^ªÅ­È #NA
  5. Set Rng(1) = [a2] '**²Ä¤@­Ó«ü¼Æ¥N¸¹
  6. xTime(1) = #8:45:00 AM# '**¶}½L®É¶¡
  7. Do While Rng(1) <> "" '**°õ¦æ°j°éªº±ø¥ó¬O «ü¼Æ¥N¸¹<>""
  8. With ThisWorkbook.Sheets(Rng(1).Value) '**¤u§@ªí(«ü¼Æ¥N¸¹)
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 13# dreamsway

¦ý´Á³f¥æ©ö¤Ó§Ö¡Aº|tickÄY­«¡A§Ö¥«¥æ©ö¤§«e´ú¹L¡A¾ã¤Ñ¦¨¥æ¶qº|¤F3¦¨¥H¤W
©Ò¥H¤~¿ï¥Îtxt³oºØ¤ñ¸û³Â·Ðªº¤èªk¡A¦ý¬O¼Æ¾Ú´X¥G¤£·|º|

    ÀɮפW¥t¥[¤@¼Ò²Õ½Æ»s³oµ{¦¡ ¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Const ¶¡¹j = #12:15:00 AM#   '³o¸Ì­×§ï¤ÀÄÁ¶¡¹j
  3. Const ¶}½L = #8:45:00 AM#
  4. Sub k_15()
  5.     Dim i As Long, Ti As Integer, ¦¨¥æ»ù As Double, ¦hªÅ As Long, ¦h©ñ As Long
  6.     Dim xTime As Date
  7.     xTime = ¶}½L + ¶¡¹j
  8.     i = 0: Ti = 0
  9.     Do
  10.         With Sheets("³ø»ù¼Æ¾Ú").Range("b2").Offset(i)
  11.             If ¦¨¥æ»ù < .Cells(1, 2) Then ¦h©ñ = ¦h©ñ + .Cells(1, 3) Else ¦hªÅ = ¦hªÅ + .Cells(1, 3)
  12.             ¦¨¥æ»ù = .Cells(1, 2)
  13.             If .Value > xTime + ¶¡¹j Then
  14.                 With Sheets("¦hªÅ¼Æ¾Ú").Range("A2").Offset(Ti)
  15.                     .Resize(, 3) = Array(xTime, ¦h©ñ, ¦hªÅ)
  16.                     .NumberFormatLocal = "hh:mm;@"
  17.                 End With
  18.                  xTime = xTime + ¶¡¹j: Ti = Ti + 1
  19.              Else
  20.                 If .Cells.Offset(1) = "" And Format(TimeValue(.Cells.Text), "HH:MM") = "13:45" Then
  21.                     xTime = xTime + ¶¡¹j
  22.                     With Sheets("¦hªÅ¼Æ¾Ú").Range("A2").Offset(Ti)
  23.                         .Resize(, 3) = Array(xTime, ¦h©ñ, ¦hªÅ)
  24.                         .NumberFormatLocal = "hh:mm;@"
  25.                     End With
  26.                     Exit Do
  27.                 ElseIf .Cells.Offset(1) = "" Then '****µ{¦¡¹B¦æ³t«×«Ü§Ö·|¶]§¹³ø»ù¼Æ¾Ú **
  28.                      Do
  29.                         DoEvents
  30.                            '***µ{¦¡µ¥­Ô... ³ø»ù¤å¦rÀɪº¸ê®Æ¶Ç¤J**
  31.                      Loop Until Time >= xTime + #12:00:30 AM#
  32.                      ¶×¤JAPI³ø»ù¤å¦rÀÉ
  33.                 End If
  34.             End If
  35.         End With
  36.         DoEvents
  37.         i = i + 1
  38.     Loop
  39.     MsgBox "¤u§@§¹¦¨"
  40. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2018-10-18 17:25 ½s¿è

¦^´_ 15# dreamsway
¦A¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Const K = #12:15:00 AM#   '³o¸Ì­×§ï
  3. Const ¶}½L = #8:45:00 AM#
  4. Sub k_15()
  5.     Dim i As Long, Ti(1 To 3) As Integer, ¦¨¥æ»ù As Double
  6.     Dim xTime As Date, AR(1 To 6)
  7.     AR(1) = "®É¶¡": AR(2) = "¶}½L": AR(3) = "³Ì°ª": AR(4) = "³Ì§C": AR(5) = "¦¬½L": AR(6) = "¦¨¥æ¶q"
  8.     With Sheets("¦hªÅ¼Æ¾Ú")
  9.         .UsedRange.Clear                                                      '²M½L
  10.         .[A1].Resize(, UBound(AR)) = AR                                       'µ¹¼ÐÀY
  11.     End With
  12.     xTime = ¶}½L + IIf(K = #12:01:00 AM#, 0, K)                         '¶}½L+ K ªº¤ÀÄÁ¼Æ
  13.     Ti(2) = Application.Text(xTime, "[m]")
  14.     Ti(3) = 0       'K¼Æ¦¸
  15.     i = 0
  16.     AR(1) = xTime: AR(2) = 0: AR(3) = 0: AR(4) = 0: AR(5) = 0: AR(6) = 0
  17.     Do
  18.         With Sheets("³ø»ù¼Æ¾Ú").Range("b2").Offset(i)
  19.             ¦¨¥æ»ù = .Range("B1")
  20.             Ti(1) = Application.Text(.Cells.Offset(1), "[m]")                   '¤U¤@­Ó³ø»ù®É¶¡ªº¤ÀÄÁ¼Æ
  21.             AR(2) = IIf(AR(2) = 0, ¦¨¥æ»ù, AR(2))                               '¶}½L
  22.             AR(3) = IIf(¦¨¥æ»ù >= AR(3), ¦¨¥æ»ù, AR(3))                         '³Ì°ª
  23.             AR(4) = IIf(AR(4) = 0, ¦¨¥æ»ù, IIf(¦¨¥æ»ù <= AR(4), ¦¨¥æ»ù, AR(4))) '³Ì§C
  24.             AR(6) = AR(6) + .Range("C1")                                        '¦¨¥æ¶q
  25.             If Ti(1) > Ti(2) Then
  26.                 AR(5) = ¦¨¥æ»ù                                                  '¦¬½L"
  27.                 With Sheets("¦hªÅ¼Æ¾Ú").Range("A2").Offset(Ti(3))
  28.                     .Resize(, UBound(AR)) = AR
  29.                     .NumberFormatLocal = "hh:mm;@"
  30.                 End With
  31.                 xTime = xTime + K                     '¤U¤@­ÓK®É¶¡ÂI
  32.                 Ti(2) = Application.Text(xTime, "[m]")   '­«·s­pºâK®É¶¡ÂIªº¤ÀÄÁ¼Æ
  33.                 Ti(3) = Ti(3) + 1                        'K¼Æ¦¸+1
  34.                 AR(1) = xTime: AR(2) = 0: AR(3) = 0: AR(4) = 0: AR(5) = 0: AR(6) = 0 ''°}¦C­«·sµ¹­È
  35.              Else
  36.                 If .Cells.Offset(1) = "" And CDate(.Cells.Value) = CDate(#1:45:00 PM#) Then
  37.                     AR(5) = .Cells.Offset(0, 1)                             '¦¬½L"
  38.                     With Sheets("¦hªÅ¼Æ¾Ú").Range("A2").Offset(Ti(3))
  39.                         .Resize(, UBound(AR)) = AR
  40.                         .NumberFormatLocal = "hh:mm;@"
  41.                     End With
  42.                     Exit Do
  43.                 ElseIf .Cells.Offset(1) = "" Then
  44.                     ¶×¤JAPI³ø»ù¤å¦rÀÉ
  45.                 End If
  46.             End If
  47.         End With
  48.         DoEvents
  49.         i = i + 1
  50.     Loop
  51. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 18# dreamsway
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Const K = #12:15:00 AM#
  3. Const ¶}½L = #8:45:00 AM#
  4. Sub k_15()
  5.     Dim i As Long, Ti(1 To 3) As Long, ¦¨¥æ»ù As Double
  6.     Dim xTime As Date, AR(1 To 6)
  7.     AR(1) = "®É¶¡": AR(2) = "¶}½L": AR(3) = "³Ì°ª": AR(4) = "³Ì§C": AR(5) = "¦¬½L": AR(6) = "¦¨¥æ¶q"
  8.     With Sheets("¦hªÅ¼Æ¾Ú")
  9.         .UsedRange.Clear                                                      '²M½L
  10.         .[A1].Resize(, UBound(AR)) = AR                                       'µ¹¼ÐÀY
  11.     End With
  12.     xTime = ¶}½L + IIf(K = #12:01:00 AM#, 0, K)                               '²Ä¤@­ÓK®É¶¡ÂI
  13.     Ti(1) = Application.Text(xTime, "[S]")                                    'K®É¶¡ÂIªº¬í¼Æ
  14.     Ti(3) = 0                                                                 'K¼Æ¦¸
  15.     i = 0                                                                     '«ü©w³ø»ùªº¦C¸¹                                               '
  16.     AR(1) = Format(xTime, "hh:mm"): AR(2) = 0: AR(3) = 0: AR(4) = 0: AR(5) = 0: AR(6) = 0 '°}¦C­«·sµ¹­È
  17.     Do
  18.         With Sheets("³ø»ù¼Æ¾Ú").Range("b2").Offset(i)
  19.             ¦¨¥æ»ù = .Range("B1")
  20.             Ti(2) = Application.Text(.Cells.Offset(1), "[S]")                   '.Cells.Offset(1) -> ¤U¤@­Ó³ø»ù®É¶¡¬í¼Æ
  21.             AR(2) = IIf(AR(2) = 0, ¦¨¥æ»ù, AR(2))                               '¶}½L
  22.             AR(3) = IIf(¦¨¥æ»ù >= AR(3), ¦¨¥æ»ù, AR(3))                         '³Ì°ª
  23.             AR(4) = IIf(AR(4) = 0, ¦¨¥æ»ù, IIf(¦¨¥æ»ù <= AR(4), ¦¨¥æ»ù, AR(4))) '³Ì§C
  24.             AR(5) = ¦¨¥æ»ù                                                      '¦¬½L
  25.             AR(6) = AR(6) + .Range("C1")                                        '¦¨¥æ¶q
  26.             If Ti(2) > Ti(1) Then                                               '¤U¤@­Ó³ø»ù®É¶¡¬í¼Æ >     KÂI®É¶¡ªº¬í¼Æ
  27.                 Sheets("¦hªÅ¼Æ¾Ú").Range("A2").Offset(Ti(3)).Resize(, UBound(AR)) = AR  'k®É¶¡ÂI¾É¤J°}¦C
  28.                 xTime = xTime + K                                               '¤U¤@­ÓK®É¶¡ÂI
  29.                 Ti(1) = Application.Text(xTime, "[S]")                          '¤U¤@­Ó K ÂI®É¶¡ªº¬í¼Æ
  30.                 Ti(3) = Ti(3) + 1                                               'K¼Æ¦¸+1
  31.                 AR(1) = Format(xTime, "hh:mm"): AR(2) = 0: AR(3) = 0: AR(4) = 0: AR(5) = 0: AR(6) = 0 '°}¦C­«·sµ¹­È
  32.              Else
  33.                 If .Cells.Offset(1) = "" And CDate(.Cells.Value) = CDate(#1:45:00 PM#) Then
  34.                     '¤U¤@­Ó³ø»ù®É¶¡="" ¥B ³ø»ù®É¶¡=¦¬½L®É¶¡
  35.                     Sheets("¦hªÅ¼Æ¾Ú").Range("A2").Offset(Ti(3)).Resize(, UBound(AR)) = AR 'k®É¶¡ÂI¾É¤J°}¦C
  36.                     Exit Do                                                      'Â÷¶}°j°é
  37.                 ElseIf .Cells.Offset(1) = "" Then            '³o±ø¥ó¤£¦¨¥ß (¤U¤@­Ó³ø»ù®É¶¡="" ¥B ³ø»ù®É¶¡=¦¬½L®É¶¡  )
  38.                     ¶×¤JAPI³ø»ù¤å¦rÀÉ
  39.                 End If
  40.             End If
  41.         End With
  42.         DoEvents     '¼È°±°õ¦æ¡A¥H«KÅý§@·~¨t²Î¥i¥H³B²z¨ä¥¦ªº¨Æ¥ó
  43.         i = i + 1    '³ø»ùªº¦C¸¹ +1
  44.     Loop
  45. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 21# dreamsway
­×§ï¬Ý¬Ý
  1. ElseIf .Cells.Offset(1) = "" Then '****µ{¦¡¹B¦æ³t«×«Ü§Ö·|¶]§¹³ø»ù¼Æ¾Ú **
  2.                     wTime = Time   '**½Ð¦bµ{¦¡½X¶}ºÝ Dim wTime As Date
  3.                     Do
  4.                         If wTime > Time - #12:00:30 AM# Then '30¬í ­«·s¾ã²z ¤@¦¸
  5.                             Application.StatusBar = "­«·s¾ã²z...."
  6.                             ­«·s¾ã²z
  7.                             wTime = Time
  8.                         End If
  9.                         DoEvents
  10.                     Loop While .Cells.Offset(1) = ""  '**·í .Cells.Offset(1) = ""  ¤@ª½°õ¦æ¤U¥h
  11.                     Application.StatusBar = False
  12.                 End If
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 24# dreamsway
Range.Offset ÄÝ©Ê  ·|¶Ç¦^ Range ª«¥ó¡A¥Nªí±q«ü©w¤§½d³ò¦ì²¾ªº½d³ò¡C
¥i¦A¸Ô¬Ý»¡©ú
  1. i = 0     '**b1 ¬O¼ÐÀY¬°¤å¦r   i=0  -->  .Offset(i) ÁÙ¬Ob1,  ¦¨¥æ»ù As Double  ,©Ò¥H¦³§ÎºAªº¿ù»~
  2. Do
  3.         With Sheets("³ø»ù¼Æ¾Ú").Range("b1").Offset(i)
  4.            
  5.    
½Æ»s¥N½X
¥i­×§ï

  1.     i = 1
  2.    Do
  3.    With Sheets("³ø»ù¼Æ¾Ú").Range("b1").Offset(i)
  4. ©Î¬O
  5.     i = 0
  6.    Do
  7.    With Sheets("³ø»ù¼Æ¾Ú").Range("b2").Offset(i)
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¤f»¡¦n¸Ü¡B¤ß·Q¦n·N¡B¨­¦æ¦n¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD