Centar za edukaciju-BiH

iCentar → Racunari i oprema → Softver i operativni sistemi → Ms office


Prosiri i skupi Opcije teme
Stranice (1):1
 Prikazi prvu neprocitanu poruku

#1 08.03.2017 14:31
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,807


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?
zivot je moja domovina.
↑  ↓

#2 08.03.2017 15:48
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: IsNumeric provjeriti dali je celija broj
Najbolje da zakacis primjer.
Vrijeme i jeste broj sa formatom vremena.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 09.03.2017 10:04
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,807


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.
↑  ↓

#4 09.03.2017 10:49
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: IsNumeric provjeriti dali je celija broj
Pa koliko vidim ti si to napravio ili te nisam dobro razumio.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#5 09.03.2017 11:25
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,807


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
zivot je moja domovina.
↑  ↓

#6 09.03.2017 19:26
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


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.
↑  ↓

#7 09.03.2017 20:43
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,807


Predmet:Re: IsNumeric provjeriti dali je celija broj
hvala na objasnjenju
zivot je moja domovina.
↑  ↓

#8 09.03.2017 21:32
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


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
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#9 10.03.2017 11:44
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,807


Predmet:Re: IsNumeric provjeriti dali je celija broj
dobro, hvala decki!
zivot je moja domovina.
↑  ↓

Stranice (1):1

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +01:00. Trenutno vrijeme: 12: 00 am.