麻辣家族討論版版 » Excel程式區 » 請問程式在紀錄資料,如何讓最新資料保持可見

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

帖子: 81
主題: 31
精華: 0
積分: 117
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2013-8-3
最後登錄: 2024-4-30

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2015-7-6 01:57 | 只看該作者

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

如提

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

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

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

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

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

附檔請各位先進協助解惑!!!感謝!!

保持可見.rar (17.66 KB)

樓主熱帖

收藏

中學生 Rank: 2

帖子: 81
主題: 31
精華: 0
積分: 117
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2013-8-3
最後登錄: 2024-4-30

8^#

發表於 2015-7-9 10:04 | 只看該作者

我傳錯檔案嗎?@_@

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

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2015-7-9 05:27 | 只看該作者

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

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

中學生 Rank: 2

帖子: 81
主題: 31
精華: 0
積分: 117
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2013-8-3
最後登錄: 2024-4-30

6^#

發表於 2015-7-8 22:50 | 只看該作者

回復 4# stillfish00

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

中學生 Rank: 2

帖子: 81
主題: 31
精華: 0
積分: 117
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2013-8-3
最後登錄: 2024-4-30

5^#

發表於 2015-7-8 22:48 | 只看該作者

回復 2# GBKEE

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

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

感謝了!!

保持可見.rar (17.66 KB)

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

4^#

發表於 2015-7-7 19:32 | 只看該作者

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

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

中學生 Rank: 2

帖子: 81
主題: 31
精華: 0
積分: 117
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2013-8-3
最後登錄: 2024-4-30

3^#

發表於 2015-7-6 11:56 | 只看該作者

回復 2# GBKEE

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

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2015-7-6 06:11 | 只看該作者

回復 1# laieven

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

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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 受人點水之恩，須當湧泉以報。

返回列表下一主題上一主題