價格紀錄的語法有寫錯嗎?? - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 價格紀錄的語法有寫錯嗎??

1 234 5 6 7 下一頁

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

價格紀錄的語法有寫錯嗎??

中學生 Rank: 2

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

21^# 跳轉到 »

發表於 2016-4-9 08:37 | 顯示全部帖子

回復 39# GBKEE

G大好久不見了，之前聽你說眼睛不舒服，還以為你比較少上線了

G大請問一下這個是要放在哪裡?? Sheet or module ??
這個是新的版本，還是針對C大的修改的呢??

中學生 Rank: 2

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

22^#

發表於 2016-4-9 08:46 | 顯示全部帖子

回復 42# GBKEE

我了解了，我試試看

中學生 Rank: 2

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

23^#

發表於 2016-4-9 08:52 | 顯示全部帖子

回復 42# GBKEE

G大妳的版本會全部往下寫，而不是有變動才往下寫，是這樣嗎??
而且我手動更改也不會繼續往下寫

中學生 Rank: 2

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

24^#

發表於 2016-4-9 08:59 | 顯示全部帖子

回復 45# c_c_lai

別這樣說，C大真是辛苦你了，假日這麼早就起床幫我解決問題，萬分感謝

中學生 Rank: 2

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

25^#

發表於 2016-4-9 09:02 | 顯示全部帖子

回復 45# c_c_lai

可是C大，我#37的那個要怎麼修改??真的要打100個??

中學生 Rank: 2

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

26^#

發表於 2016-4-9 09:04 | 顯示全部帖子

回復 45# c_c_lai

修改之後，第一次變動會全部往下寫，為什麼會這樣??

中學生 Rank: 2

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

27^#

發表於 2016-4-9 09:15 | 顯示全部帖子

本帖最後由藍天麗池於 2016-4-9 09:18 編輯

回復 49# GBKEE

我測試的方式是直接手動輸入量，還是說手動輸入的方式會不準確??

中學生 Rank: 2

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

28^#

發表於 2016-4-9 09:17 | 顯示全部帖子

回復 50# c_c_lai

C大，你先忙，我的不急，你肯幫我就感謝不及了，所以你忙完你的事再幫我也不遲，謝謝

中學生 Rank: 2

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

29^#

發表於 2016-4-9 09:23 | 顯示全部帖子

回復 53# c_c_lai

沒有，全部都是有變動才寫入，那個是之前別人幫我寫的，可以拿掉，直接刪除就好嗎??

中學生 Rank: 2

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

30^#

發表於 2016-4-9 09:34 | 顯示全部帖子

回復 55# c_c_lai

所以替換後變成下面這樣??

Sub RecordPrice(TG As String)
Dim WR As Long

If Range("A1") < 1 Then Exit Sub
'  WR = Range("A1").End(xlDown).Row + 1
WR = Range(TG).End(xlDown).Row + 1          '  修改成以觸發之欄位為判斷基點

'  ActiveWindow.ScrollRow = WR - 5          '  只顯示最新幾筆資料

Cells(WR, 1).NumberFormatLocal = "hh:mm:ss"

Range(Left(TG, Len(TG) - 1) & WR) = Range(TG)
Range(Left(TG, Len(TG) - 1) & WR).Offset(, -1) = Range(TG).Offset(, -1)
End If
End Sub

靜思自在 : 生氣，就是拿別人的過錯來懲罰自己。

1 234 5 6 7 下一頁

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