GBKEE

¦^´_ 1# FONG47
¶W¥ð ªº©w¸q¬°¦ó?

GBKEE

¦^´_ 3# FONG47
¥dÀɸê®Æ.xls ¸ê®Æ¤¤­û¤u¨C¤é¨ê¥d¬°¦ó¦³¤j©ó4µ§ªº¸ê®Æ

GBKEE

¦^´_ 5# FONG47
21¡G00~22¡G00 ¥ð®§  ³W©w¥ð®§20¤ÀÄÁ/¤H
23¡G00~00¡G30 ¥ÎÀ\  ³W©w¥ð®§40¤ÀÄÁ/¤H
02¡G00~03¡G00 ¥ð®§  ³W©w¥ð®§20¤ÀÄÁ/¤H
05¡G00~06¡G30 ¥ÎÀ\  ³W©w¥ð®§40¤ÀÄÁ/¤H
¤£¦n·N«ä . ¥dÀɪº¸ê®Æ§ÚµLªk§ì¥X   [ ¨ê¤J®É¶¡,¨ê¥X®É¶¡ ] ³o¨Ç®É¬qªº ®É¶¡
²á¥H¶W¥ð²Î­p.xlsªº­pºâµ{¦¡½X¥R¼Æ

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng(1 To 2) As Range, Ot As Integer, i As Integer, T As Single
   
4.     T = #12:20:00 AM#
   
5.     With ActiveSheet
   
6.         Set Rng(1) = .Range("A3")
   
7.         Do While Rng(1) <> ""
   
8.             Set Rng(2) = .Range("D1")
   
9.             Ot = 0
   
10.             Do While IsDate(Rng(2))
    
11.                 For i = 1 To 4
    
12.                     With .Cells(Rng(1).Row, Rng(2).Column).Cells(i)
    
13.                         If .Value > IIf(i Mod 2 > 0, T, T * 2) Then
    
14.                             Ot = Ot + 1
    
15.                             .Interior.Color = vbRed
    
16.                         Else
    
17.                             .Interior.ColorIndex = xlNone
    
18.                         End If
    
19.                     End With
    
20.                 Next
    
21.                 Set Rng(2) = Rng(2).Offset(, 1)
    
22.             Loop
    
23.             .Cells(Rng(1).Row, Rng(2).Column) = Ot
    
24.             Set Rng(1) = Rng(1).End(xlDown)
    
25.         Loop
    
26.     End With
    
27. End Sub

½Æ»s¥N½X