- 帖子
- 12
- 主題
- 1
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- Xp
- 閱讀權限
- 20
- 註冊時間
- 2017-12-26
- 最後登錄
- 2019-5-21
|
回復 1# 蒼雪
Sub FindDate()
Dim FD As Date
FD = Application.InputBox("請輸入日期", "日期搜尋")
If FD = False Then
Exit Sub
Else
For Row = 1 To 10
For col = 1 To 10
If (InStr(1, Cells(Row, col), FD)) Then
Range(Cells(Row, col), Cells(Row, col)).Select
GoTo found
End If
Next col
Next Row
MsgBox ("Not Found")
End If
found:
End Sub
|
|
發表於 2017-12-27 14:31
| 