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

»ù®æ¬ö¿ýªº»yªk¦³¼g¿ù¶Ü??

¥»©«³Ì«á¥Ñ GBKEE ©ó 2016-4-9 10:05 ½s¿è

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 61# GBKEE

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

TOP

¦^´_ 62# ÂŤÑÄR¦À
¦³³]¬°¦Û°Ê­«ºâ¶Ü?
  1. Applicaion.Calculation = xlCalculationAutomatic  '¦Û°Ê­«ºâ
½Æ»s¥N½X
¤â°Ê¬O°õ¦æ©Òµ¹ªºExµ{¦¡¶Ü?
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 63# GBKEE


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

TOP

¦^´_ 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. Sub ®É¶¡()
  16.     Dim i As Integer
  17.    
  18.     For i = 1 To 400 Step 4
  19.         Cells(2, i) = WorksheetFunction.Text(Now(), "hh:mm:ss")
  20.     Next i
  21.    
  22.     Application.OnTime Now() + TimeValue("00:00¡G01"), "®É¶¡"
  23. End Sub

  24. Sub Cls()
  25.     Range("A3:OK5000").ClearContents
  26.     Range("A3").Select
  27. End Sub
½Æ»s¥N½X

TOP

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

TOP

¦^´_ 60# ÂŤÑÄR¦À
§Úı±o·í WR µ¥©ó 3 ®É¡AÀ³¥[¤J§PÂ_¡A§_«h¦b«áÄò³B¸Ì·|¦³·åÒ¯¡G
  1.     If WR = 3 Or Range(Left(TG, Len(TG) - 1) & WR - 1) <> Range(TG) Then
  2.         Range(Left(TG, Len(TG) - 1) & WR).Offset(, -3).NumberFormatLocal = "hh:mm:ss"   '  ³]©wÀx¦s®æ®æ¦¡ (®É¶¡)
  3.         
  4.         Range(Left(TG, Len(TG) - 1) & WR) = Range(TG)                            '  ¥i³B¸Ì¨ì AA ¥H«áªºÄæ¦ì (Á`¶q)
  5.         Range(Left(TG, Len(TG) - 1) & WR).Offset(, -1) = Range(TG).Offset(, -1)  '  ¥i³B¸Ì¨ì AA ¥H«áªºÄæ¦ì (¦¨¥æ)
  6.         Range(Left(TG, Len(TG) - 1) & WR).Offset(, -3) = Range(TG).Offset(, -3)  '  ¼g¤J²§»ù®É¶¡ (®É¶¡)
  7.     End If
½Æ»s¥N½X

TOP

¦^´_ 67# c_c_lai
DEE¤½¦¡­ÈªºÅÜ°Ê,Àx¦s®æ¤º¤½¦¡°Ñ·Ó¨ä¥L¤u§@ªí,­pºâ«á­Èªº§ïÅÜ.
¤£·|IJµo Private Sub Worksheet_Change(ByVal Target As Range)¨Æ¥óµ{¦¡

¦^´_ 64# ÂŤÑÄR¦À
¤â°Ê¬O§ï¦¨¥æ¶q,»Ý¬O (DEE¤½¦¡ ©Î Àx¦s®æ¤º¤½¦¡ ) ­Èªº§ïÅÜ
1 ½Ð½Æ»s39©«ªº Private Sub Workbook_Open() ¨ìThisWorkbook¼Ò²Õ«á°õ¦æ¤@¦¸
2 ½Ð½Æ»s39©«ªºPrivate Sub Worksheet_Calculate() ¨ìSheets("RTD") ¼Ò²Õ
3½Ð¦b Sheets("RTD")¤W¦³DEEÁ`¶q¤½¦¡ªº D2,H2,,, ¿é¤J¤½¦¡=¤u§@ªí2!A1
4½Ð¦b ¤u§@ªí2!A1¿é¤J>0ªº¥ô·N¼Æ­È
5¬Ý¬Ý Sheets("RTD")ªºÅÜ°Ê
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 68# GBKEE
§Ú±q¥¼¨Ï¥Î¹L Private Sub Worksheet_Calculate()
¥¦¬O«ç»ò¹B§@¡H
DDE ¶×¤J­ÈÅܰʮɤ£·|IJµo Worksheet_Change ¶Ü¡H
§Ú¬O¨S¹ê»ÚÆ[´ú¹L¡A¦]¬°¥­±`§Ú¤]¤£¤Ó¨Ï¥Î¥¦¡C¤§«e
§Ú¤ñ¸û°¾¦VÀ³¥Î³nÅé¤ÀªR»P¹B§@¤è­±¡AÁÂÁ±z§iª¾¡I

TOP

¦^´_ 68# GBKEE
°²³] DDE ªº¶×¤J­È²§°Ê¤£·|IJµo _Change() ªº¸Ü¡G
¬°¤F­n¸Ñ¨M¦¹®×¨Ò¡A§Ú·|¼W¥[²Ä¤T¦C§@¬°Ä²°Ê¦C¡A
§Y²Ä¤T¦C¨CÄ椺®e¬° A3 (=A2)¡A B3 (=B2)¡A C3 (=C2)¡A. . . . .
¦p¦¹«K¯àIJµo¨Æ¥ó¤F¡C
¼g¤J¤§¸ê®Æ«h§ï±q²Ä¥|¦C¶}©l§PÂ_¼g¤J¡C

TOP

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD