[發問] 記錄問題

帖子: 140
主題: 24
精華: 0
積分: 167
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-2-26
最後登錄: 2023-1-30

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2020-9-24 17:39 | 只看該作者

[發問] 記錄問題

檔案中，當I2的值有變動時，將E2至I2的內容記錄到Sheet2和Sheet3，Sheet2只記錄最新的，Sheet3會向下記錄全部及重新打開此檔案時，會接續記錄
當Sheet3記錄到指定行數，會向右移，繼續向下記錄
但Sheet2也會向右移及記錄，

請教大大如何改寫，使到Sheet2不會向右移記錄，謝謝!

記錄1.rar (18.9 KB)

樓主熱帖

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

2^#

發表於 2020-9-25 20:23 | 只看該作者

本帖最後由軒云熊於 2020-9-25 20:33 編輯

回復 1# donod
我把變數存在Sheets(1).Cells(2, 1)儲存格不知道是不是你要的
但寫法跟你不一樣我也順便練習一下有空在看看吧

javascript:;

記錄092501.rar (23.63 KB)

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

3^#

發表於 2020-9-25 21:03 | 只看該作者

本帖最後由軒云熊於 2020-9-25 21:09 編輯

回復 1# donod

如果  只是要修改  就改這樣但是你的 Public i% 變數有一個問題就是關閉檔案後變數會消失
覺得 Sub auto_open() 有點麻煩  所以才直接存到儲存格
   With Sheet2
   Set A = .Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 5)

帖子: 140
主題: 24
精華: 0
積分: 167
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-2-26
最後登錄: 2023-1-30

4^#

發表於 2020-9-26 01:18 | 只看該作者

回復 2# 軒云熊

謝謝大大，可以了!

帖子: 140
主題: 24
精華: 0
積分: 167
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-2-26
最後登錄: 2023-1-30

5^#

發表於 2020-9-26 01:27 | 只看該作者

有個原有的問題，Cell(I2)的數值是以import方式導入，每當導入的數值和之前的相同，也會觸發事件，
請教大大，如何避免，謝謝!

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

6^#

發表於 2020-9-26 14:35 | 只看該作者

Private Sub Worksheet_Calculate()
Dim C&, xE As Range
If [i2] = Sheet2.Range("E2") Then Exit Sub
C = Sheet3.Cells(2, Columns.Count).End(xlToLeft).Column
C = Application.Ceiling(C, 6) - 5
Set xE = Sheet3.Cells(Rows.Count, C).End(xlUp)(2)
If xE.Row > 5 Then Set xE = Sheet3.Cells(2, xE.Column + 6)
Sheet2.Range("A2:E2") = [E2:I2].Value
xE.Resize(1, 5) = [E2:I2].Value
End Sub

自行研究, 超過工作表欄數會出錯..不除錯

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

7^#

發表於 2020-9-26 17:39 | 只看該作者

本帖最後由軒云熊於 2020-9-26 17:41 編輯

回復 5# donod
我看錯了.... ...準大給的 Sheet2.Range("A2:E2") = [E2:I2].Value 才是 Sheet2只記錄最新的 ...抱歉 >"<

帖子: 140
主題: 24
精華: 0
積分: 167
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-2-26
最後登錄: 2023-1-30

8^#

發表於 2020-9-26 18:04 | 只看該作者

回復 donod
我看錯了.... ...準大給的 Sheet2.Range("A2:E2") = [E2:I2].Value 才是 Sheet2只記錄最 ...
軒云熊發表於 2020-9-26 17:39

沒問題呀，也是多學一方法，謝謝軒云熊大大。只是原有的問題解決不了。

有個原有的問題，Cell(I2)的數值是以import方式導入，每當導入的數值和之前的相同，也會觸發事件，
請教大 ...
donod 發表於 2020-9-26 01:27

帖子: 140
主題: 24
精華: 0
積分: 167
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-2-26
最後登錄: 2023-1-30

9^#

發表於 2020-9-26 18:11 | 只看該作者

Private Sub Worksheet_Calculate()
Dim C&, xE As Range
If = Sheet2.Range("E2") Then Exit Sub
C = ...
准提部林發表於 2020-9-26 14:35

感謝准提部林大大，正是這個。
原有的問題如何避免?

有個原有的問題，Cell(I2)的數值是以import方式導入，每當導入的數值和之前的相同，也會觸發事件，
請教大大，如何避免，謝謝!
donod 發表於 2020-9-26 01:27

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

10^#

發表於 2020-9-26 18:12 | 只看該作者

回復 8# donod

準大已經給你答案了 If [i2] = Sheet2.Range("E2") Then Exit Sub
我不是大大我也是新手我也還在學習 ...有時間就會來這裡找題目練習 ^_^