標題: 請教一個自動記錄篩選資料的問題 [打印本頁]

---

作者: laieven    時間: 2015-10-21 12:45     標題: 請教一個自動記錄篩選資料的問題

請問各位前輩
我寫了一個串接dde資料並每分鐘自動記錄的程式
我想另外把記錄過程中最新的5筆資料顯示在另一個區域
不曉得這該怎麼撰寫!!

我想過每分鐘加入篩選的方式去過濾!!
但概念還很模糊,上來發文希望能有前輩
願意教導一下!!!
感謝了!

@隨文附檔
[attach]22223[/attach]

---

作者: 准提部林    時間: 2015-10-23 10:22

Sub 委買委賣1分鐘()
Dim r&
Range("a2").Value = Time
If Range("A1") = "停止中" Then Exit Sub
If Second(Time) = 0 Then
　　r = Cells(Rows.Count, 1).End(xlUp).Row + 1
　　If r < 13 Then r = 13
　　Range("A" & r & ":K" & r) = [A2:K2].Value
　　
　　r = r - 4: If r < 13 Then r = 13
　　[N3:N7] = Range("A" & r).Resize(5).Value
　　[O3:O7] = Range("D" & r).Resize(5).Value
　　[P3:Q7] = Range("G" & r).Resize(5, 2).Value
End If
Application.OnTime Now + TimeValue("00:00:01"), "工作表1.委買委賣1分鐘"
End Sub
　
'＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Sub 清除數據()
Dim r&
Cells.EntireColumn.Hidden = False '把隱藏都取消'
r = ActiveSheet.UsedRange.Rows.Count
If r > 12 Then Range("A13:K" & r).EntireRow.Delete
Columns("B:C").EntireColumn.Hidden = True '隱藏BC列
Columns("E:F").EntireColumn.Hidden = True '隱藏EF列
[N3:Q7].ClearContents
End Sub


'＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
公式法：Ｑ２〔均差〕改為〔均口差〕
Ｍ３：=MAX(12,MATCH(9^9,$A:$A)-5)+ROW(A1)
Ｎ３：=IF(INDEX($A:$A,$M3)="","",INDEX($A:$K,$M3,MATCH(N$2,$A$12:$K$12,)))　右拉下拉

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)