- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
回復 60# 藍天麗池
股票10：
shtRTD(RTD) 工作表單內容：- Private Sub Worksheet_Change(ByVal Target As Range)
- ' 當 Target (總量) 欄位有異動時， 則去呼叫 RecordPrice 的方法 (Method)。
-
- If Target.Row = 2 And Target.Column Mod 4 = 0 Then
- Call RecordPrice(Target.Address)
- End If
- End Sub
- Sub RecordPrice(TG As String)
- Dim WR As Long
-
- If Range("A1") < 1 Then Exit Sub
- ' ActiveWindow.ScrollRow = WR - 5 ' 只顯示最新幾筆資料
-
- WR = Range(Left(TG, Len(TG) - 1) & Rows.Count).End(xlUp).Row + 1 ' 求取該異動欄位的最後一筆紀錄列位置
-
- Range(Left(TG, Len(TG) - 1) & WR).Offset(, -3).NumberFormatLocal = "hh:mm:ss" ' 設定儲存格格式 (時間)
-
- Range(Left(TG, Len(TG) - 1) & WR) = Range(TG) ' 可處裡到 AA 以後的欄位 (總量)
- Range(Left(TG, Len(TG) - 1) & WR).Offset(, -1) = Range(TG).Offset(, -1) ' 可處裡到 AA 以後的欄位 (成交)
- Range(Left(TG, Len(TG) - 1) & WR).Offset(, -3) = Range(TG).Offset(, -3) ' 寫入異價時間 (時間)
- End Sub
- Sub 時間()
- Dim i As Integer
-
- For i = 1 To 400 Step 4
- Cells(2, i) = WorksheetFunction.Text(Now(), "hh:mm:ss")
- Next i
-
- Application.OnTime Now() + TimeValue("00:00：01"), "時間"
- End Sub
- Sub Cls()
- Range("A3:OK5000").ClearContents
- Range("A3").Select
- End Sub
|
|
發表於 2016-4-9 09:18
| 
