- 帖子
- 95
- 主題
- 29
- 精華
- 0
- 積分
- 150
- 點名
- 0
- 作業系統
- windows2003
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Kaoshiung
- 註冊時間
- 2010-11-5
- 最後登錄
- 2018-2-8
|
2#
發表於 2013-1-29 11:58
| 只看該作者
小弟不是很會寫,你參考看看,謝謝!- Private Sub Worksheet_Change(ByVal Target As Range)
- LastRow = ActiveSheet.[b65536].End(xlUp).Row
- If Target.Address = "$A$1" Then
- ActiveSheet.Range("b1").Offset(LastRow, 0) = Format([a1].Value, "hh:mm:ss")
- End If
- End Sub
複製代碼 |
|