GBKEE

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

GBKEE

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

GBKEE

¦^´_ 6# dreamsway

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

    ¨Ì®É¶¡¬ö¿ý.zip (29.26 KB)

¤U¸ü¦¸¼Æ: 9

2018-10-15 15:33

GBKEE

¦^´_ 9# dreamsway

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

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



¦hªÅÂÅ¹Ï ¤W¬O»Ý¶ñ¤WDee¤½¦¡ªº¦p§A¨S¦³
½Ðªþ¤W§Aªº­ì©lÀɮ׬ݬÝ

GBKEE

¦^´_ 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 ±µ¦¬¸ê®Æ

¤U¸ü (106.3 KB)

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

GBKEE

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

GBKEE

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

GBKEE

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

GBKEE

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

GBKEE

¦^´_ 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. 
   
2.     i = 1
   
3.    Do
   
4.    With Sheets("³ø»ù¼Æ¾Ú").Range("b1").Offset(i)
   
5. ©Î¬O
   
6.     i = 0
   
7.    Do
   
8.    With Sheets("³ø»ù¼Æ¾Ú").Range("b2").Offset(i)
   

½Æ»s¥N½X