DDE°ÊºA¸ê®Æ¦p¦ó©w®É¿z¿ï¡H
- ©«¤l
- 13
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 18
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS 7
- ³nÅ骩¥»
- HOME
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-10-25
- ³Ì«áµn¿ý
- 2023-8-18
|
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)
|
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 1# corcovado886
§Aªº·N«ä¬O³o¼Ë¡H
|
|
|
|
|
|
|
- ©«¤l
- 13
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 18
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS 7
- ³nÅ骩¥»
- HOME
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-10-25
- ³Ì«áµn¿ý
- 2023-8-18
|
¦^´_ 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¤£ºÉ ^^ |
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¥»©«³Ì«á¥Ñ c_c_lai ©ó 2015-11-19 09:30 ½s¿è
¦^´_ 3# corcovado886
¬O§_¦p¦¹µ²ªG¡H- Sub ¦Û°Ê°O¿ý()
- Dim cts As Integer
- If uMode = 0 Then Exit Sub
- If Time > TimeValue(EndTime) Then '¦¬½L®É¶¡¥H«á¤£°õ¦æ
- Sht1.[W4] = "¤w¹L¦¬½L"
- uMode = 0
- Exit Sub
- End If
- With Sht1
- .Range("W2") = Time '·í«e®É¶¡¡]®É¶¡½Xªí¡^
- '----------------------------------------------------------
- '¨C¢°¤ÀÄÁ°O¿ý¡A¢´¤ÀÄÁ«h§ï¬° Mod 5
- If Second(Time) Mod 3 = 0 Then
- xRow = .Range("A65536").End(xlUp).Row + 1 '±q³Ì«á¤@®æ©¹¤W´M§ä¦³¸ê®ÆªºÀx¦s®æ, ¬O¦b²Ä´X¦C¡AµM«á¦A¥[1¦C
- If xRow < 11 Then xRow = 11 '¦pªG¦C¼Æ¤p©ó11¡A«h±q²Ä11¦C¶}©l
- .Range("A" & xRow & ":V" & xRow).Value = .Range("A2:V2").Value
- For cts = 1 To 22
- .Range(Chr(64 + cts) & xRow).Font.Color = IIf(.Range(Chr(64 + cts) & xRow).Value >= 9, vbRed, vbBlack)
- Next
- .Range("W" & xRow).Value = Time 'WÄæ¦ìªº®É¶¡È©¹¤U°O¿ý
- '------------------------------------------------
- If ActiveSheet.Name = .Name And xRow > 20 Then
- ActiveWindow.ScrollRow = xRow - 12 'Åý³Ì·s¸ê®Æ«O«ù¦b¥i¨£µøµ¡¤¤
- End If
- End If
- End With
- Application.OnTime Now + TimeValue("00:00:01"), "¦Û°Ê°O¿ý" '¨C¤@¬í»¼°j¤@¦¸
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 3# corcovado886 - ActiveWindow.ScrollRow = xRow - 12 ' Åý³Ì·s¸ê®Æ«O«ù¦b¥i¨£µøµ¡¤¤
½Æ»s¥N½X ק令¦p¤U¡A¸û§k¦X¨Æ¹ê¡C§Y³Ì·s¤@µ§¸ê®Æ¥Ã»··|«O«ù¦b¥i¨£µøµ¡¤¤³Ì©³µ§¡C- ActiveWindow.ScrollRow = xRow - 11 ' Åý³Ì·s¤@µ§¸ê®Æ«O«ù¦b¥i¨£µøµ¡¤¤³Ì©³µ§
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 13
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 18
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS 7
- ³nÅ骩¥»
- HOME
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-10-25
- ³Ì«áµn¿ý
- 2023-8-18
|
¦^´_ 5# c_c_lai
¦n¹³¤£¬O³o¼Ë....:$
¥un±N²Ä¤G¦Cªº°ÊºA¸ê®Æ¡A¿z¿ï¤j©ó 9 ªº ªÑ¸¹¡A
©ñ¦b²Ä¤»¦C´N¥i¥H¤F(¬OÅã¥ÜªÑ¸¹ )¡A¤U±¨Cµ§ªº°O¿ý¤£¥Î§ó°Ê¡C
|
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 6# corcovado886
¬O³o¼Ë¡H- Sub ¦Û°Ê°O¿ý()
- Dim cts As Integer, A As Range, Rng As Range
-
- If uMode = 0 Then Exit Sub
- If Time > TimeValue(EndTime) Then '¦¬½L®É¶¡¥H«á¤£°õ¦æ
- Sht1.[W4] = "¤w¹L¦¬½L"
- uMode = 0
- Exit Sub
- End If
- With Sht1
- .Range("W2") = Time '·í«e®É¶¡¡]®É¶¡½Xªí¡^
- '----------------------------------------------------------
- '¨C¢°¤ÀÄÁ°O¿ý¡A¢´¤ÀÄÁ«h§ï¬° Mod 5
- If Second(Time) Mod 3 = 0 Then
- xRow = .Range("A65536").End(xlUp).Row + 1 '±q³Ì«á¤@®æ©¹¤W´M§ä¦³¸ê®ÆªºÀx¦s®æ, ¬O¦b²Ä´X¦C¡AµM«á¦A¥[1¦C
- If xRow < 11 Then xRow = 11 '¦pªG¦C¼Æ¤p©ó11¡A«h±q²Ä11¦C¶}©l
- .Range("A" & xRow & ":V" & xRow).Value = .Range("A2:V2").Value
- .[B6:V6].ClearContents
- Set Rng = .[B6]
- cts = 0
- For Each A In .Range("A" & xRow & ":V" & xRow)
- cts = cts + 1
- If (A.Value >= 9) Then
- ' A.Font.Color = vbRed
- Rng.Value = .Range(Chr(64 + cts) & 10).Value
- Set Rng = Rng.Offset(, 1)
- Else
- ' A.Font.Color = vbBlack
- End If
- Next
- .Range("W" & xRow).Value = Time 'WÄæ¦ìªº®É¶¡È©¹¤U°O¿ý
- '------------------------------------------------
- If ActiveSheet.Name = .Name And xRow > 20 Then
- ActiveWindow.ScrollRow = xRow - 11 ' Åý³Ì·s¤@µ§¸ê®Æ«O«ù¦b¥i¨£µøµ¡¤¤³Ì©³µ§
- End If
- End If
- End With
- Application.OnTime Now + TimeValue("00:00:01"), "¦Û°Ê°O¿ý" '¨C¤@¬í»¼°j¤@¦¸
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 13
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 18
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS 7
- ³nÅ骩¥»
- HOME
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-10-25
- ³Ì«áµn¿ý
- 2023-8-18
|
¦^´_ 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.... |
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 8# corcovado886 - Rng.Value = .Range(Chr(64 + cts) & 10).Value
½Æ»s¥N½X ¤]¥i¥H¼g¦¨¦p¤U¡G- 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 |
|
|
|
|
|
|
- ©«¤l
- 13
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 18
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS 7
- ³nÅ骩¥»
- HOME
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-10-25
- ³Ì«áµn¿ý
- 2023-8-18
|
¦^´_ 9# c_c_lai
ì¨ÓÁÙ¥i¥H³o¼Ë¥Î¡A¯u¬O¼F®`¡I
¨º¦pªGn°O¿ýªºÄæ¦ì¶W¹L26Ó«ç»ò¿ì©O¡H
¦]¬°A~Z¡A±µ¤U¨Ó´N´«¦¨ AA¡BAB¡BAC....
¬O§_¤]¥i¥Î¦P¼Ëªº¤èªk |
|
|
|
|
|
|