carloslin0316

¦^´_ 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

¤U¸ü (44.11 KB)

2017-12-27 14:30