Avko 08.03.2017 14:31
Predmet:IsNumeric provjeriti dali je celija broj

u nekim celijama imam vrijednost vremena 10:52, upisane i formatirane kao string.
ako zelim provjeriti dali je u toj celiji broj, dakle vrijeme, napisem

If IsNumeric(cells(1,1))=TRUE then
...neki kod
end if

ali mi ne vrati TRUE.

Nesmijem upotrijebiti VAL,ovako:

If IsNumeric(Val(cells(1,1))=TRUE then

jer bi mi za celiju u kojoj su upisana slova dao rezultat 0, a 0 je isto broj.

kako to rijesiti?

zxz 08.03.2017 15:48
Predmet:Re: IsNumeric provjeriti dali je celija broj

Najbolje da zakacis primjer.
Vrijeme i jeste broj sa formatom vremena.

Avko 09.03.2017 10:04
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

zxz 09.03.2017 10:49
Predmet:Re: IsNumeric provjeriti dali je celija broj

Pa koliko vidim ti si to napravio ili te nisam dobro razumio.

Avko 09.03.2017 11:25
Predmet:Re: IsNumeric provjeriti dali je celija broj

Citiraj zxz:
Pa koliko vidim ti si to napravio ili te nisam dobro razumio.

evo cijelu noc trazio rijesenje. Dok vi spavate ja radim, hehehe salim se
zaboravio staviti da je gotovo.
hehehe
to me podsjetilo na ono : sam pitam, sam odgovaram.
Iskreno da ti kazem nije mi bas jasno, ali radi.
Na neki cudan nacin to se napravi a cini mi se da je kvaka u onome
On resume next i On resume goto 0 tu se nesto desi pa preusmjeri,a kuda? brate mili pojma nemam niti imam 0 niti for...next petlju pa da izade
ko cega znat, al radi a to je najbitnije

Gjoreski 09.03.2017 19:26
Predmet:Re: IsNumeric provjeriti dali je celija broj

Kod nas kazu prosto kako grav ili Prosto kako fasulj.
Ovo ti radi na taj nacin ako doze do polja gde nema nista funkcija javi greska a ti sa naredbata
On error resume next i kazes na funkcija da ignorira gresku i da produzi dalja .
Ako je polje popunjeno sa vreme onda funkcija radi normalno.

Avko 09.03.2017 20:43
Predmet:Re: IsNumeric provjeriti dali je celija broj

hvala na objasnjenju

zxz 09.03.2017 21:32
Predmet:Re: IsNumeric provjeriti dali je celija broj

Evo i moja
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Provjera()
  2.     Dim red As Long
  3.     Dim tmp
  4.     Dim Dat As Date
  5.  
  6.     For red = 2 To Cells(Rows.Count, "A").End(xlUp).Row
  7.     tmp = Range("A" & red).Value
  8.     On Error Resume Next
  9.     Dat = tmp
  10.         If Err.Number = 0 Then
  11.         Cells(red, 2) = "vrijeme"
  12.         Else
  13.         Cells(red, 2) = "nije vrijeme"
  14.         End If
  15.         Err.Number = 0
  16.     Next red
  17. End Function

Avko 10.03.2017 11:44
Predmet:Re: IsNumeric provjeriti dali je celija broj

dobro, hvala decki!