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

corcovado886

¦³ ¤@±Æ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)

¤U¸ü¦¸¼Æ: 15

2015-11-17 19:26

geneokimo

·PÁ±zªºµo©«¡AÀò¯q¨}¦h!!!

­ã´£³¡ªL

¢Ï¢¶¡G=IF(COUNT(0/(A2>9)),COLUMN(A1),"--")¡@¥k©Ô¦Ü¢ä¢¶
¢Ð¢µ¡G=IF(COLUMN(A1)>COUNT($A7:$V7),"",INDEX($A1:$V1,SMALL($A7:$V7,COLUMN(A1))))¡@¥k©Ô

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

corcovado886

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

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

corcovado886

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

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

corcovado886

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

¤U¸ü (10.51 KB)

2015-11-19 17:37

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