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

DDE°ÊºA¸ê®Æ¦p¦ó©w®É¿z¿ï¡H

DDE°ÊºA¸ê®Æ¦p¦ó©w®É¿z¿ï¡H

¦³ ¤@±ÆDDE°ÊºA¸ê®Æ¡A¨C¤T¬í°O¿ý¤@¦¸¡A
½Ð°Ý¦p¦ó©w®É¿z¿ï¥Xº¦´T¤j©ó 9 ªº¹ïÀ³ªÑ¸¹¡H

¥Ø«e§Ú·Q¨ìªº¤èªk¬O¿ý»s¥¨¶°¡AµM«á°µ¶i¶¥¿z¿ï¡A½Æ»s¦b©T©wªí®æ¤º¡C
¦ý¤£ª¾¹D«ç»ò©w®É¿z¿ï¡A³Ì¦n¬O¯à°÷½Æ»s¦b¾î¦Vªí®æ¸Ì¡C
DDE_VBA_©w®É¿z¿ï¤j©ó9ªºªÑ¸¹.zip (29.84 KB)

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

TOP

¦^´_ 2# c_c_lai

«z¡I §Ú¨SÅv­­¤U¸ü­C.....

´N¬O±N²Ä¤G¦Cªº°ÊºA¸ê®Æ¡A§â¤j©ó9ªº¿z¿ï¥X¨Ó¡A
¦A±N¹ïÀ³ªº¸¹½XÅã¥Ü¦b©T©w¤@±Æªí®æ¤º¡C

¥i¥H©ñµ{¦¡½X¤W¨Ó¶Ü¡H ·P¿E¤£ºÉ ^^

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2015-11-19 09:30 ½s¿è

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

TOP

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

TOP

¦^´_ 5# c_c_lai

¦n¹³¤£¬O³o¼Ë....:$

¥u­n±N²Ä¤G¦Cªº°ÊºA¸ê®Æ¡A¿z¿ï¤j©ó 9 ªº ªÑ¸¹¡A
©ñ¦b²Ä¤»¦C´N¥i¥H¤F(¬OÅã¥ÜªÑ¸¹ )¡A¤U­±¨Cµ§ªº°O¿ý¤£¥Î§ó°Ê¡C

TOP

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

TOP

¦^´_ 7# c_c_lai
«z¡I¯u¬O¤Ó·P°Ê¤F....
¨S¿ù¡A´N¬O³o¼Ë¡A«D±`·PÁ¡I

¥i¥H½Ð°Ý¤@¤U¶Ü¡H   Rng.Value = .Range(Chr(64 + cts) & 10).Value   ¨ä¤¤ªºChr
google ¦n¤[¡A¥u§ä¨ì  Chr (10) ¬O´«¦æ¡A¦ýChr(64 + cts) & 10´N¬Ý¤£À´¤F....

TOP

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

TOP

¦^´_ 9# c_c_lai
­ì¨ÓÁÙ¥i¥H³o¼Ë¥Î¡A¯u¬O¼F®`¡I
¨º¦pªG­n°O¿ýªºÄæ¦ì¶W¹L26­Ó«ç»ò¿ì©O¡H

¦]¬°A~Z¡A±µ¤U¨Ó´N´«¦¨ AA¡BAB¡BAC....
¬O§_¤]¥i¥Î¦P¼Ëªº¤èªk

TOP

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