Bosna i Hercegovina



#1 08.03.2017-14:31
Avko Offline
Administrator
Registrovan/a od: 28.05.2014-09:21
Komentari: 2,766


Subject: 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?
Newton laže! Lake padaju brže!
↑  ↓

#2 08.03.2017-15:48
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,490


Subject: Re: IsNumeric provjeriti dali je celija broj
Najbolje da zakacis primjer.
Vrijeme i jeste broj sa formatom vremena.
Pozdrav
↑  ↓

#3 09.03.2017-10:04
Avko Offline
Administrator
Registrovan/a od: 28.05.2014-09:21
Komentari: 2,766


Subject: 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

DownloadIzvorni kod (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

Newton laže! Lake padaju brže!
↑  ↓

#4 09.03.2017-10:49
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,490


Subject: Re: IsNumeric provjeriti dali je celija broj
Pa koliko vidim ti si to napravio ili te nisam dobro razumio.
Pozdrav
↑  ↓

#5 09.03.2017-11:25
Avko Offline
Administrator
Registrovan/a od: 28.05.2014-09:21
Komentari: 2,766


Subject: Re: IsNumeric provjeriti dali je celija broj
Citat od 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
Newton laže! Lake padaju brže!
↑  ↓

#6 09.03.2017-19:26
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,339


Ocjena: Ocjena:100 Subject: 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.
↑  ↓

#7 09.03.2017-20:43
Avko Offline
Administrator
Registrovan/a od: 28.05.2014-09:21
Komentari: 2,766


Subject: Re: IsNumeric provjeriti dali je celija broj
hvala na objasnjenju
Newton laže! Lake padaju brže!
↑  ↓

#8 09.03.2017-21:32
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,490


Subject: Re: IsNumeric provjeriti dali je celija broj
Evo i moja
DownloadIzvorni kod (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

Pozdrav
↑  ↓

#9 10.03.2017-11:44
Avko Offline
Administrator
Registrovan/a od: 28.05.2014-09:21
Komentari: 2,766


Subject: Re: IsNumeric provjeriti dali je celija broj
dobro, hvala decki!
Newton laže! Lake padaju brže!
↑  ↓

Stranice (1): 1


All times are GMT +01:00. Current time: 24.11.2017-14:06.