- 帖子
- 181
- 主題
- 5
- 精華
- 0
- 積分
- 197
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- 2000
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2014-3-9
- 最後登錄
- 2024-4-29
|
好精簡的方法
繼續沿用你的精簡碼
' 放到 Sheet1 裡面
Private Sub Worksheet_Calculate()
A = Sheet2.Range("A" & Rows.Count).End(xlUp).Offset(1)
If A = "" Then A = Time - TimeValue("00:00:01")
If Time > A Then
Sheet2.Range("A" & Rows.Count).End(xlUp).Offset(1) = Time
Sheet2.Range("B" & Rows.Count).End(xlUp).Offset(1) = Sheet1.[A2]
Sheet2.Range("C" & Rows.Count).End(xlUp).Offset(1) = Sheet1.[B2]
Sheet2.Range("D" & Rows.Count).End(xlUp).Offset(1) = Sheet1.[C2]
Sheet2.Range("E" & Rows.Count).End(xlUp).Offset(1) = Sheet1.[D2]
Sheet2.Range("F" & Rows.Count).End(xlUp).Offset(1) = Sheet1.[E2]
Sheet2.Range("G" & Rows.Count).End(xlUp).Offset(1) = Sheet1.[F2]
Sheet2.Range("H" & Rows.Count).End(xlUp).Offset(1) = Sheet1.[G2]
End If
End Sub |
|
發表於 2015-7-6 14:24
| 