c_c_lai

¦^´_ 1# corcovado886
§Aªº·N«ä¬O³o¼Ë¡H

¤U¸ü (36.8 KB)

2015-11-18 16:16

c_c_lai

¦^´_ 3# corcovado886
¬O§_¦p¦¹µ²ªG¡H

1. Sub ¦Û°Ê°O¿ý()
   
2.     Dim cts As Integer
   
3.     If uMode = 0 Then Exit Sub
   
4.     If Time > TimeValue(EndTime) Then '¦¬½L®É¶¡¥H«á¤£°õ¦æ
   
5.         Sht1.[W4] = "¤w¹L¦¬½L"
   
6.         uMode = 0
   
7.         Exit Sub
   
8.     End If
   
9.     With Sht1
   
10.         .Range("W2") = Time '·í«e®É¶¡¡]®É¶¡½Xªí¡^
    
11.         '----------------------------------------------------------
    
12.         '¨C¢°¤ÀÄÁ°O¿ý¡A¢´¤ÀÄÁ«h§ï¬° Mod 5
    
13.         If Second(Time) Mod 3 = 0 Then
    
14.             xRow = .Range("A65536").End(xlUp).Row + 1 '±q³Ì«á¤@®æ©¹¤W´M§ä¦³¸ê®ÆªºÀx¦s®æ, ¬O¦b²Ä´X¦C¡AµM«á¦A¥[1¦C
    
15.             If xRow < 11 Then xRow = 11 '¦pªG¦C¼Æ¤p©ó11¡A«h±q²Ä11¦C¶}©l
    
16.             .Range("A" & xRow & ":V" & xRow).Value = .Range("A2:V2").Value
    
17.            For cts = 1 To 22
    
18.                 .Range(Chr(64 + cts) & xRow).Font.Color = IIf(.Range(Chr(64 + cts) & xRow).Value >= 9, vbRed, vbBlack)
    
19.             Next
    
20.             .Range("W" & xRow).Value = Time 'WÄæ¦ìªº®É¶¡­È©¹¤U°O¿ý
    
21.             '------------------------------------------------
    
22.             If ActiveSheet.Name = .Name And xRow > 20 Then
    
23.                 ActiveWindow.ScrollRow = xRow - 12 'Åý³Ì·s¸ê®Æ«O«ù¦b¥i¨£µøµ¡¤¤
    
24.             End If
    
25.         End If
    
26.     End With
    
27.     Application.OnTime Now + TimeValue("00:00:01"), "¦Û°Ê°O¿ý"   '¨C¤@¬í»¼°j¤@¦¸
    
28. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 3# corcovado886

1.                 ActiveWindow.ScrollRow = xRow - 12   '  Åý³Ì·s¸ê®Æ«O«ù¦b¥i¨£µøµ¡¤¤

½Æ»s¥N½X

­×§ï¦¨¦p¤U¡A¸û§k¦X¨Æ¹ê¡C§Y³Ì·s¤@µ§¸ê®Æ¥Ã»··|«O«ù¦b¥i¨£µøµ¡¤¤³Ì©³µ§¡C

1.                 ActiveWindow.ScrollRow = xRow - 11   '  Åý³Ì·s¤@µ§¸ê®Æ«O«ù¦b¥i¨£µøµ¡¤¤³Ì©³µ§

½Æ»s¥N½X

c_c_lai

¦^´_ 6# corcovado886
¬O³o¼Ë¡H

1. Sub ¦Û°Ê°O¿ý()
   
2.     Dim cts As Integer, A As Range, Rng As Range
   
3.    
   
4.     If uMode = 0 Then Exit Sub
   
5.     If Time > TimeValue(EndTime) Then '¦¬½L®É¶¡¥H«á¤£°õ¦æ
   
6.         Sht1.[W4] = "¤w¹L¦¬½L"
   
7.         uMode = 0
   
8.         Exit Sub
   
9.     End If
   
10.     With Sht1
    
11.         .Range("W2") = Time '·í«e®É¶¡¡]®É¶¡½Xªí¡^
    
12.         '----------------------------------------------------------
    
13.         '¨C¢°¤ÀÄÁ°O¿ý¡A¢´¤ÀÄÁ«h§ï¬° Mod 5
    
14.         If Second(Time) Mod 3 = 0 Then
    
15.             xRow = .Range("A65536").End(xlUp).Row + 1 '±q³Ì«á¤@®æ©¹¤W´M§ä¦³¸ê®ÆªºÀx¦s®æ, ¬O¦b²Ä´X¦C¡AµM«á¦A¥[1¦C
    
16.             If xRow < 11 Then xRow = 11 '¦pªG¦C¼Æ¤p©ó11¡A«h±q²Ä11¦C¶}©l
    
17.             .Range("A" & xRow & ":V" & xRow).Value = .Range("A2:V2").Value
    
18.             .[B6:V6].ClearContents
    
19.             Set Rng = .[B6]
    
20.             cts = 0
    
21.             For Each A In .Range("A" & xRow & ":V" & xRow)
    
22.                 cts = cts + 1
    
23.                 If (A.Value >= 9) Then
    
24.                     '  A.Font.Color = vbRed
    
25.                     Rng.Value = .Range(Chr(64 + cts) & 10).Value
    
26.                     Set Rng = Rng.Offset(, 1)
    
27.                 Else
    
28.                     '  A.Font.Color = vbBlack
    
29.                 End If
    
30.             Next
    
31.             .Range("W" & xRow).Value = Time 'WÄæ¦ìªº®É¶¡­È©¹¤U°O¿ý
    
32.             '------------------------------------------------
    
33.             If ActiveSheet.Name = .Name And xRow > 20 Then
    
34.                 ActiveWindow.ScrollRow = xRow - 11   '  Åý³Ì·s¤@µ§¸ê®Æ«O«ù¦b¥i¨£µøµ¡¤¤³Ì©³µ§
    
35.             End If
    
36.         End If
    
37.     End With
    
38.     Application.OnTime Now + TimeValue("00:00:01"), "¦Û°Ê°O¿ý"   '¨C¤@¬í»¼°j¤@¦¸
    
39. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 8# corcovado886

1. Rng.Value = .Range(Chr(64 + cts) & 10).Value

½Æ»s¥N½X

¤]¥i¥H¼g¦¨¦p¤U¡G

1. Rng = .Range(Chr(64 + cts) & 10)

½Æ»s¥N½X

·í cts = 1 ®É¡A64 +  1 = 65¡A
ASC(65) = 'A'¡C .Range(Chr(64 + cts) & 10) = .Range("A10")
·í cts = 2 ®É¡A64 +  2 = 66¡A
ASC(66) = 'B'¡C  .Range(Chr(64 + cts) & 10) = .Range("B10")
¥H¦¹Ãþ±À¡C

c_c_lai

¦^´_ 10# corcovado886
¥H¤U½d¨Ò¥uºtºâ¨ì A ~ AZ¡A¦pªG¹ê°È­È¦³¶W¥X AZ ªÌ¡A
¨Ì¤U­±¨Ò¤l¦A©¹¤UÄ~Äòºtºâ ( IIf( ... , ... , ...  ) )¤U¥h¡G

1. .Range(IIf(cts > 26, "A" & Chr(64 + cts - 26), Chr(64 + cts)) & 10)

½Æ»s¥N½X