c_c_lai

¦^´_ 18# ÂŤÑÄR¦À
¥Ø«e§Úªº¹q¸£Àô¹Ò¸ÌµL¦w¸Ë¨÷°Ó³nÅé¡A©Ò¥HµL±q´ú¸Õ¡C
§Ú¦A¾ã²z¤@­Ó¾A¦X§Aªºµ{¦¡§a¡I
¨ä¹ê§A¤]¥i¥H¦V GBKEE¡B­ã´£³¡ªL µ¥ª©¤j¡A¥H¤Î¯¸¤W
³\¦h«e½ú½Ð¯qªº¡C¥L­Ì¥ç§¡¬O§Úªº«ü¾É¦Ñ®v¡C

c_c_lai

¦^´_ 20# ÂŤÑÄR¦À
¦A¸Õ¤@¦¸
¸ê®Æ¼È¦sA.rar (70.54 KB)

¤U¸ü¦¸¼Æ: 5

2016-7-20 11:48

c_c_lai

¦^´_ 20# ÂŤÑÄR¦À

1. Private Sub Workbook_Open()
   
2.     Dim rng As Variant
   
3.    
   
4.     With Sheets(1)
   
5.         For Each rng In Range(.[D2], .[D2].End(xlDown))
   
6.             rng.Offset(, 26) = IIf(IsNumeric(rng), rng, 0)
   
7.             rng.Offset(, 1) = IIf(IsNumeric(rng.Offset(, -1)), rng.Offset(, -1), 0)
   
8.         Next
   
9. 
   
10.         If Time < TimeValue("08:45") Then                   '  ¦­©ó¶}½L®É¶¡
    
11.             Application.OnTime TimeValue("08:45"), "ThisWorkbook.MyWay"  '  ³]©w©ó08:45 °õ¦æ MyWay µ{§Ç
    
12.         ElseIf Time >= TimeValue("08:45") And Time <= TimeValue("13:30") Then '  ©ó¥æ©ö®É¶¡¤º
    
13.             MyWay                                           '  °õ¦æ MyWay µ{§Ç
    
14.         End If
    
15.     End With
    
16. End Sub
    
17. 
    
18. Sub MyWay()
    
19.     With Sheets(1)
    
20.         For Each rng In Range(.[D2], .[D2].End(xlDown))
    
21.             If IsNumeric(rng) Then
    
22.                 If rng.Offset(, 26).Value <> rng.Value Then
    
23.                     rng.Offset(, 26) = rng
    
24.                     rng.Offset(, 2) = rng.Offset(, 1)
    
25.                     rng.Offset(, 1) = IIf(IsNumeric(rng.Offset(, -1)), rng.Offset(, -1), 0)
    
26.                 End If
    
27.             End If
    
28.         Next
    
29.     End With
    
30.    
    
31.     Application.OnTime Now + TimeValue("00:00:10"), "ThisWorkbook.MyWay"  '  ³]©w 10 ¬í«á °õ¦æ MyWay µ{§Ç
    
32. End Sub
    
33. 
    
34. Sub addN()         '  ¤â°Ê´ú¸Õ¥Î
    
35.     Dim rng As Range
    
36.    
    
37.     With Sheets(1)
    
38.         For Each rng In Range(.[AD2], .[AD2].End(xlDown))
    
39.             rng = rng + 1
    
40.         Next
    
41.     End With
    
42. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 25# ÂŤÑÄR¦À
²Ä¤@¦¸°õ¦æ§¹¤§«á¡A¨C10¬í·|¦A¥h°õ¦æ¤@¦¸¡C
¶¶«K±N

1. Application.OnTime TimeValue("08:45"), "MyWay"

½Æ»s¥N½X

§ï¦¨

1. Application.OnTime TimeValue("08:45"), "ThisWorkbook.MyWay"

½Æ»s¥N½X

¥H¨¾´M§ä¤£µÛ¡C¥u¼Ð©ú "MyWay" ¡A¤@¯ë¨t²Î·|ª½±µ¥h¼Ò²Õ¸Ì·j´M¡C

c_c_lai

¦^´_ 27# ÂŤÑÄR¦À
"00:00:10" ¨º§A´N¤£·|Åܰʩʪº¨Ì§Aªº»Ý­×§ï¡H
Ä´¦p¡G¨â¬í¶]¤@¦¸ "00:00:02"¡B¤­¬í¶]¤@¦¸ "00:00:05"

c_c_lai

¦^´_ 29# ÂŤÑÄR¦À
¥þ³¡³£¤@°_¼g¤J¡A¦]¬°µLªk¨Ï¥Î Worksheet_Change()
µL±q§PÂ_¬O¥Ñ­þ­ÓÄæ¦ì­×¥¿Ä²µoªº½t¬G¡C

c_c_lai

¦^´_ 31# ÂŤÑÄR¦À
©ú¤Ñ¦­¤W§A¥Î³o¤äµ{¦¡¸Õ¸Õ¬Ý¡C
¸ê®Æ¼È¦sA.rar (81.92 KB)

¤U¸ü¦¸¼Æ: 4

2016-7-21 12:42

c_c_lai

¦^´_ 31# ÂŤÑÄR¦À

1. ThisWorkbook:
   
2. Private Sub Workbook_Open()
   
3.     Dim rng As Variant, rnt As Range
   
4.    
   
5.     With Sheets(1)
   
6.         Set rnt = [AD2]
   
7.         For Each rng In Range(.[D2], .[D2].End(xlDown))
   
8.             rng.Offset(, 1) = IIf(IsNumeric(rng.Offset(, -1)), rng.Offset(, -1), 0)
   
9.             rnt.FormulaR1C1 = "=RC[-26]"
   
10.             Set rnt = rnt.Offset(1)
    
11.         Next
    
12.     End With
    
13. End Sub

½Æ»s¥N½X

1. ¤u§@ªí1:
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     With Sheets(1)
   
4.         If Left(Target.Address, 3) = "$AD" And IsNumeric(Target) Then
   
5.             .Cells(Target.Row, 6) = .Cells(Target.Row, 5)
   
6.             '  Debug.Print "Target.Address = " & Target.Address
   
7.         ElseIf Left(Target.Address, 2) = "$F" Then
   
8.             .Cells(Target.Row, 5) = IIf(IsNumeric(.Cells(Target.Row, 3)), .Cells(Target.Row, 3), 0)
   
9.         Else
   
10.             
    
11.         End If
    
12.     End With
    
13. End Sub
    
14. 
    
15. Private Sub Worksheet_Calculate()
    
16.     '  [K1] = [K1] + 1
    
17. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 36# ÂŤÑÄR¦À
§Ú¬O·Q¦LÃÒ Worksheet_Change() »PDDE ¶¡¤§·L§®²o°Ê¡A
¦p³z¹L¥¦Äæ ( AD3 "= D3" ) ªº¹ïµ¥Ãö«Y·Q¦LÃÒ¬O§_¯àIJµo
¦Ó¤w¡CºÝµ²¬O´£°Ý¤H¦³§_¹y®©¨M¤ß¡B¤Î¦n©_¨Dª¾¤ß¡C

c_c_lai

¦^´_ 39# ÂŤÑÄR¦À
¦A¸Õ¸Õ¡AÆ[¹î·s¼Wªº "CD ÄæIJµo"¡B"AD Äæ°ÊºA"¡B"F Äæ°ÊºA"
¼Æ¦r¦³§_ÅܤơH
¸ê®Æ¼È¦sA.rar (83.11 KB)

¤U¸ü¦¸¼Æ: 2

2016-7-22 10:41