Centar za edukaciju-BiH

iCentar → Racunari i oprema → Softver i operativni sistemi → Ms office → IsNumeric provjeriti dali je celija broj


Odgovori na temu





Pomoc


Prosiri Boja Prosiri Velicina Spoiler WMP-Videos Neprimjereno
Podebljano Kurziv Podvuceno Slika Internet adresa (URL) Citat Van teme Neuredena lista Narucena lista Pretplata Nadredeni
Grinning Happy Cool Surprised Disappointed Laughing In love Angry No comment Embarrassing Shy Smiling Tongue Undecided Innocent Wink Sad Prosiri i skupi vise smajlica
Povecaj velicinu · Smanji velicinu Provjeri duzinu
Pretvori smajlice u postu
Pretvori & quot; vokable & quot; u postu

Upravljanje prilozima
Mozete priloziti 3 datoteke!



Posljednjih 15 postova u ovoj temi


Avko (10.03.2017 11:44):
Predmet: Re: IsNumeric provjeriti dali je celija broj
dobro, hvala decki!

zxz (09.03.2017 21:32):
Predmet: Re: IsNumeric provjeriti dali je celija broj
Evo i moja
PreuzmiIzvorni kd (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 (09.03.2017 20:43):
Predmet: Re: IsNumeric provjeriti dali je celija broj
hvala na objasnjenju

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

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 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 kd (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 (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 (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?

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