c_c_lai

¦^´_ 60# ÂŤÑÄR¦À
ªÑ²¼10.rar (22.15 KB)

¤U¸ü¦¸¼Æ: 3

2016-4-9 12:59

c_c_lai

¦^´_ 60# ÂŤÑÄR¦À
ªÑ²¼10¡G

shtRTD(RTD) ¤u§@ªí³æ¤º®e¡G

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     '  ·í Target (Á`¶q) Äæ¦ì¦³²§°Ê®É¡A «h¥h©I¥s RecordPrice ªº¤èªk (Method)¡C
   
3.    
   
4.     If Target.Row = 2 And Target.Column Mod 4 = 0 Then
   
5.         Call RecordPrice(Target.Address)
   
6.     End If
   
7. End Sub

½Æ»s¥N½X

Module1 ¼Ò²Õ¤º®e¡G

1. Sub RecordPrice(TG As String)
   
2.     Dim WR As Long
   
3.    
   
4.     If Range("A1") < 1 Then Exit Sub
   
5.     '  ActiveWindow.ScrollRow = WR - 5           '  ¥uÅã¥Ü³Ì·s´Xµ§¸ê®Æ
   
6.    
   
7.     WR = Range(Left(TG, Len(TG) - 1) & Rows.Count).End(xlUp).Row + 1       '  ¨D¨ú¸Ó²§°ÊÄæ¦ìªº³Ì«á¤@µ§¬ö¿ý¦C¦ì¸m
   
8.    
   
9.     Range(Left(TG, Len(TG) - 1) & WR).Offset(, -3).NumberFormatLocal = "hh:mm:ss"   '  ³]©wÀx¦s®æ®æ¦¡ (®É¶¡)
   
10.    
    
11.     Range(Left(TG, Len(TG) - 1) & WR) = Range(TG)                            '  ¥i³B¸Ì¨ì AA ¥H«áªºÄæ¦ì (Á`¶q)
    
12.     Range(Left(TG, Len(TG) - 1) & WR).Offset(, -1) = Range(TG).Offset(, -1)  '  ¥i³B¸Ì¨ì AA ¥H«áªºÄæ¦ì (¦¨¥æ)
    
13.     Range(Left(TG, Len(TG) - 1) & WR).Offset(, -3) = Range(TG).Offset(, -3)  '  ¼g¤J²§»ù®É¶¡ (®É¶¡)
    
14. End Sub
    
15. 
    
16. Sub ®É¶¡()
    
17.     Dim i As Integer
    
18.    
    
19.     For i = 1 To 400 Step 4
    
20.         Cells(2, i) = WorksheetFunction.Text(Now(), "hh:mm:ss")
    
21.     Next i
    
22.    
    
23.     Application.OnTime Now() + TimeValue("00:00¡G01"), "®É¶¡"
    
24. End Sub
    
25. 
    
26. Sub Cls()
    
27.     Range("A3:OK5000").ClearContents
    
28.     Range("A3").Select
    
29. End Sub

½Æ»s¥N½X

ÂŤÑÄR¦À

¦^´_ 63# GBKEE


    ¦³§ï¡A¤â°Ê¬O§ï¦¨¥æ¶q¡A¤£¬O°õ¦æµ{¦¡¡A¥L¤£·|¦Û°Ê°õ¦æ¶Ü¡H

GBKEE

¦^´_ 62# ÂŤÑÄR¦À
¦³³]¬°¦Û°Ê­«ºâ¶Ü?

1. Applicaion.Calculation = xlCalculationAutomatic  '¦Û°Ê­«ºâ

½Æ»s¥N½X

¤â°Ê¬O°õ¦æ©Òµ¹ªºExµ{¦¡¶Ü?

ÂŤÑÄR¦À

¦^´_ 61# GBKEE

G¤j¡A§Ú§ó§ï«á¤â°Ê¿é¤JÁÙ¬O¨S°Ê§@

GBKEE

¦^´_ 51# ÂŤÑÄR¦À
¶·¥ý§ï¬°¦Û°Ê­«ºâ

1. Private Sub Workbook_Open()
   
2.     Dim xRng As Range, First_Aaddres  As String, xRng_Name As String
   
3.     Application.RTD.ThrottleInterval = 0
   
4.     Application.Calculation = xlCalculationAutomatic  '¦Û°Ê­«ºâ
   
5. With Sheets("RTD")
   
6.         Set xRng = .Rows(2).Cells.Find("TotalVolume", LookIn:=xlFormulas)
   
7.         If Not xRng Is Nothing Then
   
8. '
   
9. '
   
10.    

½Æ»s¥N½X

1. Sub Ex()
   
2.     Dim i As Integer
   
3.     With Sheets("RTD")
   
4.         .Range("a" & Rows.Count) = "=a1"   '±Ò°Ê²Ä¤@¦¸ Worksheet_Calculate
   
5.         i = 1
   
6.         For i = 1 To i * 4 * 8 Step 2
   
7.             With .Cells(Rows.Count, 4 * i).End(xlUp).Offset(1)
   
8.                 .Value = Int((500 - 100 + 1) * Rnd + 100)
   
9.                 'Á`¶q¦WºÙ©Ò¦bªº³Ì©³¦C©¹¤W¨ì¦³¸ê®ÆªºÀx¦s®æµ¹¶Ã¼Æ
   
10.                 ''¦]¨SÀç·~DEE¤£·|ÅÜ°Ê,©Ò¥Hµ¹­Ó¶Ã¼Æ
    
11.                 'µ¥¦PDEEÁ`¶q¦³ÅÜ°Ê
    
12.             End With
    
13.             .[a1] = i                  ' ¤½¦¡­È¦A«×ÅÜ°Ê±Ò°Ê Worksheet_Calculate
    
14.         Next
    
15.     End With
    
16. End Sub

½Æ»s¥N½X

ÂŤÑÄR¦À

¦^´_ 59# c_c_lai

¦n¡AC¤j§Ú¤F¸Ñ¡AÁÂÁÂ
#37¦A³Â·Ð§A¦h¥÷¤ß¤F

c_c_lai

¦^´_ 56# ÂŤÑÄR¦À
¾i¦¨¼gµ{¦¡ÀH¤â¥[¤Wµù¸Ñ»¡©ú¡A¤H¤£¬O¯«¥P
¹L°}¤l§A´N·|¬Ý¤£À´§A¦Û¤w¥H©¹¼gªºµ{¦¡¤F¡A
¦pªG³£µLµùÄÀªº¸Ü¡Aµ´¤£­n°½Ãi¦Û§Ú­n¨D¡C

ÂŤÑÄR¦À

¦^´_ 57# c_c_lai

C¤j¡A¨º­Ó¬O§Ú¬G·N§R±¼ªº¡A¦]¬°®É¶¡·|Âл\¡A©Ò¥H§Ú¦b#37¸Ì­±¦³¥Î¨ä¥L¤è¦¡¨ú¥N¤F¡A³o¼ËÀ³¸Ó¥i¥H§a??

c_c_lai

­Ë¼Æ²Ä¤­¦C¥[¤W
Cells(WR, 1) = [A2]
¥i¯à¦b´ú¸Õ®É¤£¤p¤ß§R±¼¤F¡C