- ©«¤l
- 12
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- Xp
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2017-12-26
- ³Ì«áµn¿ý
- 2019-5-21
|
¦^´_ 1# »a³·
Sub FindDate()
Dim FD As Date
FD = Application.InputBox("½Ð¿é¤J¤é´Á", "¤é´Á·j´M")
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
|
|