准提部林

回復 10# ABK


Sub 清除記錄資料()
Dim xE As Range
If MsgBox("※確定要清除〔Sheet1〕的記錄嗎？　", 4 + 32 + 256) = vbNo Then Exit Sub
Call 共用參照
Set xE = Sht1.[a65536].End(xlUp)
If xE.Row <= 9 Then Exit Sub
Range(Sht1.[A9], xE(0)).EntireRow.Delete
If ActiveSheet.Name = Sht1.Name Then ActiveWindow.ScrollRow = 1
End Sub

ABK

回復 11# 准提部林


謝謝准堤大!     由於我預計在 N欄之後 加入一些表格，所以整列的刪除會 刪到N欄後面的資料。
我只要 A欄到N欄這一區塊的紀錄 刪除 ， 保留最後一筆紀錄放到第9列 [A9:N9]， 這一段要如何修正?

准提部林

回復 12# ABK


Range(Sht1.[N9], xE(0)).Delete Shift:=xlUp

ABK

回復 13# 准提部林


   謝謝准提大!  
   再給我問一下!  (不好意思! 突然想到)
   如果區間是 D欄到N欄這一區塊的紀錄 要刪除 ， 保留最後一筆紀錄放到第9列 [D9:N9]， 又要如何寫?
   
不好意思!  想說以後寫程式會碰到不是從A欄開始的資料區， 先問起來放 !

准提部林

回復 14# ABK


Set xE = Sht1.[a65536].End(xlUp) 改成D

ABK

回復 15# 准提部林

謝謝准提大!  
假設 我的即時資料是呈現在 C8: N8
我想要以後在同一張圖表上一起呈現"即時資料"與"紀錄資料",
也就是當我"清除紀錄資料"後，C9:N9的數值等於 C8:N8的數值(即時的),
在"執行紀錄"啟動後:
當第一分鐘結束時, 即時資料便記錄在C9:N9，且變成C10:N10與C8:N8 同步,
當第二分鐘結束時, 即時資料便記錄在C10:N10，且變成C11:N11與C8:N8 同步,
當第三分鐘結束時, 即時資料便記錄在C11:N11，且變成C12:N12與C8:N8 同步, ...............。
(也就是在紀錄資料區的最後一列與一直與即時數據同步)

一直到我再次"清除紀錄資料"時， 又變成C9:N9與C8:N8 同步了。
這樣的程式碼要如何寫 ?

ABK

已經解決了!