- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
2#
發表於 2016-6-21 08:01
| 只看該作者
回復 1# t8899 - Private Sub CommandButton1_Click()
- Dim W, k
-
- For k = 2 To 500
- ' W = Format(Cells(k, "A"), "YYYY/MM/DD")
- W = Cells(k, "A") ' 欄位儲存格式為國曆
- ' If Cells(k, "A") > Date Then
- If W > Format(Date, "EE/MM/DD") Then ' 將 Date 同步轉為國曆
- MsgBox Cells(k, "A").Row
- Exit For
- End If
- Next
- End Sub
|
|
