返回列表 上一主題 發帖

關於資料比對的寫法

本帖最後由 藍天麗池 於 2016-7-21 11:25 編輯

http://forum.twbts.com/viewthrea ... pageD1&page=13b]
回復 30# c_c_lai


    哇!不能個別判段嗎?這樣我設定1秒變動就執行可能會來不及看

c大,不能像上次寫的那個程式一樣有變動才紀錄,其他不變嗎?
如果用上次的邏輯寫也無法嗎?

TOP

回復 31# 藍天麗池

大大要自己試著學啊

TOP

回復 32# jackyq


    j大,我有阿,從跟你們的對談中一點一點學阿,只是我還沒有很厲害就是了,所以很感謝論壇這邊有這麼多好前輩

TOP

回復 31# 藍天麗池
明天早上你用這支程式試試看。
資料暫存A.rar (81.92 KB)

TOP

回復 31# 藍天麗池
  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
複製代碼
  1. 工作表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. Private Sub Worksheet_Calculate()
  15.     '  [K1] = [K1] + 1
  16. End Sub
複製代碼

TOP

回復 34# c_c_lai


    c大,感謝你這麼上心的幫忙,如果你有在忙就先忙喔!
我的沒有很趕,我只是想上來問問順便學習,每次c大都很幫忙,真的很感謝

TOP

回復 36# 藍天麗池
我是想印證 Worksheet_Change() 與DDE 間之微妙牽動,
如透過它欄 ( AD3 "= D3" ) 的對等關係想印證是否能觸發
而已。端結是提問人有否頓悟決心、及好奇求知心。

TOP

回復 37# c_c_lai


    c大,我了解了,明天測試完跟你報告結果

TOP

回復 37# c_c_lai


    c大,測試完一樣不行
請教一下c大,我看程式裡面ad欄總量有過去阿,但為什麼還是無法執行?
之前無法執行不是因為抓不到dde的數值變化嗎?

TOP

回復 39# 藍天麗池
再試試,觀察新增的 "CD 欄觸發"、"AD 欄動態"、"F 欄動態"
數字有否變化?
資料暫存A.rar (83.11 KB)

TOP

        靜思自在 : 心中常存善解、包容、感思、知足、惜福。
返回列表 上一主題