- 帖子
- 549
- 主題
- 152
- 精華
- 0
- 積分
- 691
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- OFFICE 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-8-10
- 最後登錄
- 2022-9-7
 
|
2#
發表於 2014-11-19 08:17
| 只看該作者
本帖最後由 PKKO 於 2014-11-19 08:19 編輯
小弟不才,用自己想的方式,您試試看,我是假設你的日期是位於A欄
,若要更改,請在下面這行的A:A換成別欄
rng = Range("A:A").Find(Application.WorksheetFunction.Max(Range("A:A"))).Address- Sub test()
- Application.ScreenUpdating = False '關閉螢幕
- Dim rng$
- Columns("A:A").NumberFormatLocal = "0.00_);(0.00)" '數字格式
- '找出最大數字的位置
- rng = Range("A:A").Find(Application.WorksheetFunction.Max(Range("A:A"))).Address
- Columns("A:A").NumberFormatLocal = "yyyy/m/d" '轉換回原本日期格式
- 'range(AA)就是你要的答案=>最大的日期
- 'rng 是最大日期的絕對位置
- MsgBox Range(rng)
- Application.ScreenUpdating = True '恢復螢幕
- End Sub
|
|
