請問程式在紀錄資料,如何讓最新資料保持可見

laieven

如提

當我使用vba自動幫我依序紀錄資料時

當資料筆數愈來越多~~會往下一直排序紀錄

於是我就看不到最新的資料了

1.我如何讓資料一邊紀錄~~~一邊讓最新的資歷保持在彼既仕和觀看的位置
不需要我再去捲動他才能看見最新的資料呢?

2.我如果希望記錄的做成不是單純的向下排序~~例如說紀錄20行或3行後
向右邊移動個2-3行~~繼續從比較上面的地方開始記錄
(比方說~~我是b6-c6行依序紀錄～記錄到20行或每一小時整點變換一次~~~資料不在往下一直排序
改從d6-e6開始排序

附檔請各位先進協助解惑!!!感謝!!
保持可見.rar (17.66 KB)

下載次數: 11

2015-7-6 01:57

laieven

我傳錯檔案嗎?@_@

我以為關鍵只是在這一串
If ActiveSheet.Name <> X.Name Then X.Activate

GBKEE

回復 5# laieven
你說: 自己根據理解寫了一段程式碼,但附檔的Sub 委買委賣紀錄()與第一帖的一模一樣.
當然沒辦法達到你要的保持可見的效果.

laieven

回復 4# stillfish00


        感謝熱心協助!!!
若方便可否幫忙加上註解!!!我看得有點似懂非懂!!
菜鳥新手還請包涵!!

laieven

回復 2# GBKEE


    有勞版主~~你寫的內容我研究了好一會
自己擅自根據理解寫了一段程式碼
但是沒辦法達到我要的保持可見的效果

現把檔案傳上來~~~~~有勞版主健診一下!!看看那兒有問題!!

感謝了!!
保持可見.rar (17.66 KB)

下載次數: 3

2015-7-8 22:48

stillfish00

回復 1# laieven
    Range("A999").Value = "See me"
    Application.Goto Reference:=Range("A999"), Scroll:=True

laieven

回復 2# GBKEE


感謝版主的幫忙~~第2點我想了一早上~~還是暫緩好了!
如果第1點能獲得解決~~應該是最好的結果
第2點就算能做到,恐怕也會有其他問題
在此先感謝版主的幫忙!!謝謝!

GBKEE

回復 1# laieven

請再詳述要??: 2.我如果希望記錄的做成不是單純的向下排序~~例如說紀錄20行或3行後

1. Option Explicit
   
2. Sub 委買委賣紀錄()
   
3.     Dim X As Worksheet
   
4.     Set X = ThisWorkbook.Sheets("工作表1")
   
5.     'StartT = "08:44:50"
   
6.     'endt = "13:45:10"
   
7.     X.Range("a2").Value = Time
   
8.     If X.Range("h1") = 1 Then Exit Sub
   
9.     If Second(Time) = 0 And Minute(Time) Mod 1 = 0 Then
   
10.         If ActiveSheet.Name <> X.Name Then X.Activate
    
11.         With X.Range("b1045786").End(xlUp).Offset(1, 0)
    
12.             .Value = Range("b1")
    
13.             .Offset(0, 1).Value = Range("c1")
    
14.             .Select
    
15.         End With
    
16.     End If
    
17.     Application.OnTime Now + TimeValue("00:00:01"), "thisworkbook.委買委賣紀錄"
    
18. End Sub

複製代碼