Prikazi cijelu temu 09.03.2017 10:04
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


Predmet:Re: IsNumeric provjeriti dali je celija broj
celija kao tekst    dali je vrijeme
10:33    vrijeme
NISTA    nije vrijeme
NISTA    nije vrijeme
NISTA    nije vrijeme
12:23    vrijeme
04:23    vrijeme
02:34    vrijeme
NISTA    nije vrijeme
01:22    vrijeme
NISTA    nije vrijeme
123    nije vrijeme
23.34    nije vrijeme
01:78    nije vrijeme

PreuzmiIzvorni kôd (Visual Basic):
  1. Sub proba()
  2.     Dim red As Long
  3.     For red = 2 To Cells(Rows.Count, "A").End(xlUp).Row
  4.         If IsTime(Range("A" & red)) Then
  5.             Cells(red, 2) = "vrijeme"
  6.         Else
  7.             Cells(red, 2) = "nije vrijeme"
  8.         End If
  9.     Next red
  10. End Sub
  11. Function IsTime(rng As Range) As Boolean
  12.     Dim sValue As String
  13.     sValue = rng.Cells(1).Text
  14.     On Error Resume Next
  15.     IsTime = IsDate(TimeValue(sValue))
  16.     On Error GoTo 0
  17. End Function
zivot je moja domovina.