VBA 自動記錄排序變更

vba 自動記錄排序變更

tkoper963 2020-07-06 19:23:53 ‧ 880 瀏覽

分享至

想請問大大原本記錄方式
欄位 B14 10:00
B15 10:01
B16 10:02
B17 10:03

想變更 B14 10:03
B15 10:02
B16 10:01
B17 10:00

程式如下我改如何修改

Sub VB1自動記錄()
If uMode = 0 Then Exit Sub

If Time > TimeValue(EndTime) Then
Sht1.[A4] = "休息"
uMode = 0
Exit Sub
End If
'----------------------------------------------------------------------
Sht1.Range("B13") = Time

If Second(Time) = 0 And Minute(Time) Mod 1 = 0 Then

xRow = Sht1.Range("A65536").End(xlUp).Row + 1

If xRow < 14 Then xRow = 14

Sht1.Range("A" & xRow & ":CZ" & xRow).Value = Sht1.Range("A13:CZ13").Value

ThisWorkbook.Save
End If
Application.OnTime Now + TimeValue("00:00:60"), "VB1自動記錄"
End Sub

paicheng0111 iT邦大師 5 級 ‧ 2020-07-07 08:53:07 檢舉

原本B17儲存格是10:03，修改之後的B17儲存格還是10:03。
不知道你想要修改甚麼？

tkoper963 iT邦新手 4 級 ‧ 2020-07-07 09:20:06 檢舉

不好意思，我改錯= =
想 B14 10:03
B15 10:02
B16 10:01
B17 10:00

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

尚未有邦友回答

立即登入回答

參賽組數

1064 組

團體組數

40 組

累計文章數

22125 篇

完賽人數

595 人

15th鐵人賽 16th鐵人賽 13th鐵人賽 14th鐵人賽 12th鐵人賽 11th鐵人賽鐵人賽 2019鐵人賽 javascript 2018鐵人賽 python 2017鐵人賽 windows php c# windows server linux css react vue.js

IT邦幫忙