- 帖子
- 766
- 主題
- 256
- 精華
- 0
- 積分
- 1035
- 點名
- 0
- 作業系統
- windows 11
- 軟體版本
- OFFICE2021
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2011-5-30
- 最後登錄
- 2026-10-2
|
Columns("J:J").Select
Selection.NumberFormatLocal = "yyyy/m/d;@"
If CDate(Left(Cells(k, "J"), 3) + 1911 & Mid(Cells(k, "J"), 4, 6)) < Date Then |
|