- 帖子
- 365
- 主題
- 40
- 精華
- 0
- 積分
- 406
- 點名
- 0
- 作業系統
- Win 7
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 20
- 註冊時間
- 2012-12-11
- 最後登錄
- 2024-8-24
|
96#
發表於 2016-4-10 16:00
| 只看該作者
回復 92# c_c_lai
Sub 時間()
Sheets("RTD").Cells(2, 1) = WorksheetFunction.Text(Now(), "hh:mm:ss")-------------這個地方時間不用寫入
Application.OnTime Now() + TimeValue("00:00：01"), "時間"
End Sub
---------------------------------------------------------------------------------------------------------------------------
Sub RecordPrice(TG As Range)
Dim WR As Long, cts As Long
With Sheets("RTD")
If .Range("A1") < 1 Then Exit Sub
cts = TG.Column
WR = .Cells(Rows.Count, cts).End(xlUp).Row + 1 ' 求取該異動欄位的最後一筆紀錄列位置
If WR = 3 Or .Cells(WR - 1, cts) <> .Cells(2, cts) Then
.Cells(WR, cts).Offset(, -3).NumberFormatLocal = "hh:mm:ss" ' 設定儲存格格式 (時間)----------------這個地方的功能是??有時間的部分可以都拿掉嗎??
.Cells(WR, cts).Offset(, -2).Resize(, 3) = .Range(TG.Address).Offset(, -2).Resize(, 3).Value
End If
End With
End Sub |
|
