帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2015-12-27 19:00 | 只看該作者

如何讓最新的資料都寫在上面??

變動記錄.rar (20.51 KB)
Sub RecordPrice()
Dim WR As Long
Dim I As Long

WR = Range("A1").End(xlDown).Row + 1
[A2] = TimeValue(Now)
For I = 1 To 8
Cells(WR, I) = Cells(2, I)
Next 'I
With ActiveWindow
If Intersect(Cells(WR, "B"), .VisibleRange) Is Nothing Then .SmallScroll 1
End With
End Sub

程式碼如上，目前是最新資料會往下寫，如果我要改成最新的資料都出現在A3欄(就是往上寫)這邊WR = Range("A1").End(xlDown).Row + 1要怎麼改??

樓主熱帖

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

6^#

發表於 2015-12-28 19:18 | 只看該作者

本帖最後由 c_c_lai 於 2015-12-28 19:20 編輯

回復 5# 藍天麗池

Sub RecordPrice()
Dim WR As Long
' ActiveWindow.ScrollRow = WR - 5 ' 只顯示最新幾筆資料
Application.ScreenUpdating = False
With Sheets("RTD")
If .Range("H2") < 1 Then Exit Sub
WR = Range("A1").End(xlDown).Row + 1
If (WR = 3) Or _
(.Range("G" & WR - 1) <> .Range("G2")) Then ' 總量有異動時才記錄
.Rows(3).Insert
.[A3].Resize(1, 8) = .[A2].Resize(1, 8).Value
.[A3].Resize(1, 8).Font.FontStyle = "粗體"
End If
End With
Application.ScreenUpdating = True
End Sub

複製代碼

TOP

藍天麗池

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

5^#

發表於 2015-12-28 14:11 | 只看該作者

本帖最後由藍天麗池於 2015-12-28 14:23 編輯

回復 3# c_c_lai

C大可以告訴我這些程式碼要貼在哪裡，還有那些地方要修改嗎??
另外，之前有些程式碼沒貼到，抱歉
裡面還有G2變動才紀錄的條件

Sub RecordPrice()
Dim WR As Long
Dim I As Byte

If Range("H2") < 1 Then Exit Sub

WR = Range("A1").End(xlDown).Row + 1
'ActiveWindow.ScrollRow = WR - 5 '只顯示最新幾筆資料
If (WR = 3) Or _
(Range("G" & WR - 1) <> Range("G2")) Then '總量有異動時才記錄
For I = 1 To 8
   Cells(WR, I) = Cells(2, I)
Next 'I
End If
Application.ScreenUpdating = False
With Sheets("RTD")
      .Rows(3).Insert
      .[A3].Resize(1, 8) = .[A2].Resize(1, 8).Value
End With
Application.ScreenUpdating = True
End Sub

TOP

藍天麗池

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

4^#

發表於 2015-12-28 14:02 | 只看該作者

回復 2# koo

K大我上次少貼了一些程式碼，如果還要加上G2有變動才紀錄的條件要如何修改??

WR = Range("A1").End(xlDown).Row + 1
'ActiveWindow.ScrollRow = WR - 5 '只顯示最新幾筆資料
If (WR = 3) Or _
(Range("G" & WR - 1) <> Range("G2")) Then '總量有異動時才記錄
For I = 1 To 8
Cells(WR, I) = Cells(2, I)
Next 'I

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

3^#

發表於 2015-12-28 07:46 | 只看該作者

本帖最後由 c_c_lai 於 2015-12-28 07:48 編輯

回復 1# 藍天麗池
請參考：

Application.ScreenUpdating = False
With Sheets("RTD")
.Rows(3).Insert
.[A3].Resize(1, 8) = .[A2].Resize(1, 8).Value
End With
Application.ScreenUpdating = True

複製代碼

TOP

koo

中學生 Rank: 2

帖子: 60
主題: 4
精華: 0
積分: 64
點名: 0
作業系統: w7-32
軟體版本: 2013.2003
閱讀權限: 20
註冊時間: 2014-11-23
最後登錄: 2016-6-6

2^#

發表於 2015-12-27 19:31 | 只看該作者

要都在A3輸入資料就必須寫入資料前插入一列
Rows(3).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
[A2] = TimeValue(Now)
For I = 1 To 8
Cells(3, I) = Cells(2, I)
Next 'I

TOP