- 帖子
- 559
- 主題
- 58
- 精華
- 0
- 積分
- 626
- 點名
- 0
- 作業系統
- win8
- 軟體版本
- office2013
- 閱讀權限
- 50
- 性別
- 男
- 來自
- TW
- 註冊時間
- 2010-11-22
- 最後登錄
- 2024-6-14
|
回復 3# riceeric
試試看~ 不過不知道會不會有bug- Sub ex_1()
- Dim a As Date
- a = Application.Lookup(Now, Sheet1.Range("A:A"))
- '先求now的時間落在哪一個數值上
- d = Sheet1.Range("A:A").Find(a).Row
- '再利用數值找到對應的列(row)
- Sheet1.Range("C" & d) = Now
- '最後將now放在第三欄第d列
- End Sub
|
|
發表於 2012-3-29 13:59
| 