Centar za edukaciju-BiH

iCentar → Zabava → Trac partijanje


Prosiri i skupi Opcije teme
Stranice (310):1,2 ... 265,266,267,268,269 ... 309,310
 Prikazi prvu neprocitanu poruku

#2661 02.02.2018 11:20
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,904


Predmet:Re: dobro jutro, dobar dan...
Dobro jutro!

Bas gledam ovu funkciju VBA funkcija Saberi

stavim ja vrijednosti u celije:
A
11
2Dobar dan
33
412:33
52.2.2018
6-10
79,2

stavim modul i upisem:
PreuzmiIzvorni kôd (Text):
  1. Sub proba()
  2.     Dim rng As Range
  3.     Set rng = Range(Cells(1, 1), Cells(9, 1))
  4.     MsgBox Saberi(rng)
  5. End Sub

PreuzmiIzvorni kôd (Text):
  1. Function Saberi(Region As Range)
  2. '********************************************
  3. 'Sabiranje celija sa provjerom dali je u
  4. ' celiji numericka vrijedost
  5. '********************************************
  6.     Dim Celija As Range
  7.     Dim Suma As Double
  8.     Dim Vrijednost As Double
  9.     Dim Vrs As String
  10.     On Error Resume Next
  11.     For Each Celija In Region.Cells
  12.         Vrs = Celija.Value
  13.         Vrijednost = Celija.Value
  14.         If Len(Vrs) = Len(Format$(Vrijednost)) Then
  15.             Suma = Suma + Vrijednost
  16.         Else
  17.             MsgBox "Vrijednost u polju" & vbCr _
  18.                     & Celija.Address & vbCr _
  19.                     & "Nije numericka"
  20.             Celija.Select
  21.             Exit Function
  22.         End If
  23.     Next Celija
  24.     Saberi = Suma
  25. End Function

Javilo mi gresku nailaskom na celiju sa vrijednosti "Dobro jutro" runtime error 14 type mismas Vrijednost

Pomislio sam da sam opet nesto pravopisno s**** pa mi ne radi. Stavio sam usklicnik !, a zatim . (tocku), pa sam probao sve napisati malim slovima ali nista.
Onda sam stavio on error resume next u funkciju odmah poslije dim
i pokazalo mi je da celija A2 nije broj. Nakon toga izade iz funkcije i ne zbroji ostalo i ne prikaze sumu.

Nista, bilo mi red malo to preurediti za svoje potrebe, ali prije toga bi htio reci da imamo u excelu IsNumber, a u VBA IsNumeric, ne rade istu stvar na isti nacin.

VrijednostVBA IsNumericExcel IsNumber
1TrueTrue
Dobar danFalseFalse
3TrueTrue
12:33TrueTrue
2.2.2018FalseTrue
-10Truetrue
9,2TrueTrue

Vidimo da ce za datum Excelova IsNumber dati True dok VBA nece, a meni treba True pa sam upotrijebio i excelovu IsNumber->Application.WorksheetFunction.IsNumber(Value)

evo kako sam to napisao:

PreuzmiIzvorni kôd (Text):
  1. Sub proba()
  2.     Dim rng As Range
  3.     Set rng = Range(Cells(1, 1), Cells(9, 1))
  4.     MsgBox Saberi(rng)
  5. End Sub
  6. Function Saberi(Region As Range)
  7. '********************************************
  8. 'Sabiranje celija sa provjerom dali je u
  9. ' celiji num,ericka vrijedost
  10. '********************************************
  11. Dim Celija As Range
  12. Dim Suma As Double
  13. Dim Vrijednost As Double
  14.  
  15. For Each Celija In Region.Cells
  16.     If isBroj(Celija.Value) = True Then
  17.         Vrijednost = Celija.Value
  18.         Suma = Suma + Vrijednost
  19.     End If
  20. Next Celija
  21. Saberi = Suma
  22. End Function
  23.  
  24. Function isBroj(ByVal Value As String) As Boolean
  25.     If IsNumeric(Value) = False And Application.WorksheetFunction.IsNumber(Value) = False Then
  26.             isBroj = False
  27.     ElseIf IsNumeric(Value) = False And Application.WorksheetFunction.IsNumber(Value) = True Then
  28.         isBroj = True
  29.     Else
  30.         isBroj = True
  31.     End If
  32. End Function

Naravno, mozda ja nisam shvatio bit te funkcije ni nacin kako se ona upotrebljava, ali meni nije radila.
E sada sta ce iz nje biti neznam, ali znam da je proslo 10 sati a meni nitko ne zvoni dva puta.

THE POSTMAN ALWAYS RINGS TWICE, 1981., SAD, Zapadna Njemačka, 122 min.
Roman PoÅ¡tar uvijek zvoni dvaput jednog od glavnih predstavnika tzv. tvrdokuhane kriminalističke proze, Jamesa M. Caina, doživio je nekoliko filmskih prilagodbi. Prvu je 1939. napravio Francuz Pierre Chenal pod naslovom "Le dernier tournament", potom je 1943. slavni Luchino Visconti debitirao drugom verzijom nazvanom "Opsesija" (1946) je napokon i Hollywood realizirao svoju inačicu pod originalnim naslovom, pod kojim je i Bob Rafelson (Pet lakih komada, Kralj Marvinovih vrtova, Crna udovica) 1981. ostvario svoju, danaÅ¡njim gledateljima najpoznatiju verziju.

Amerika u doba ekonomske depresije ranih tridesetih godina. Lutalica kriminalne proÅ¡losti Frank Chambers (J. Nicholson) zaposli se kod vlasnika malog restorana uz cestu, Grka Nicka Papadakisa (J. Colicos), oženjenog s puno mlađom i vrlo privlačnom Corom (J. Lange). Cora i Frank ubrzo se upuste u strastven seksualni odnos te postaju ljubavnici. Kako vrijeme prolazi, a njihova veza jača, odluče likvidirati Nicka te njegovu smrt prikazati kao posljedicu prometnog udesa...

Rafelsonov film odlikuje se dojmljivom rekonstrukcijom razdoblja, elegantnom režijom te naturalističkom autorskom distancom i prizorima seksa i nasilja, kao i vrhunskim glumačkim izvedbama maestralnog para Jack Nicholson - Jessica Lange, kojeg vrsno podupire ostatak glumačke ekipe u sporednim ulogama. Spomenimo i da je scenarističku adaptaciju Cainova romana potpisao ugledni dramatičar i filmaÅ¡ David Mamet (Kuća igara).

zivot je moja domovina.
↑  ↓

#2662 02.02.2018 23:53
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


Predmet:Re: dobro jutro, dobar dan...
Moram te kritikovati sto si ovu moju proceduru stavio na dobro jutro sto ispade da mi nedas ni kafu popiti kako treba.
Prenesi ovo tamo gdje treba i probaj umjesto zareza staviti tacku.
Polja koja sabiras neces valjda pisati tekst ali u pravu si i to treba presresti.
tamo cemo pisati o isnumeric.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#2663 03.02.2018 03:16
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,904


Predmet:Re: dobro jutro, dobar dan...
Nisam htio brljati po temi vba excel funkcije. Htio bi da ta tema ostane cista pa sam zato ovdje napisao. Ovo je lako izbrisati
zivot je moja domovina.
↑  ↓

#2664 03.02.2018 10:33
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


Predmet:Re: dobro jutro, dobar dan...
Ja sam proceduru pravio da pokaze polje u kojoj nije dobar dec. separator.
Tekst svakako neces napisati i to se vidi a i pri testiranju nije bilo rezultata bar kod mene.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#2665 03.02.2018 10:34
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


Predmet:Re: dobro jutro, dobar dan...
Zaboravih napomenuti procedura isnumeric nece ovo prepoznati.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#2666 03.02.2018 21:08
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,867


Predmet:Re: dobro jutro, dobar dan...
Dobro vecer od mene.
Jas malku zaglaviv ovaj mesec, mnogu slavi i kafani a malku rabota.
Zatoa poslednive denovi ne znam kade mi e glavata.
Dva dena vo Ohrid e vrnezlivo ,a i utre ke bide ama nie pak ke si se soberime na skara od Riba.
↑  ↓

#2667 05.02.2018 11:47
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,904


Predmet:Re: dobro jutro, dobar dan...
dobar dan!

tko nije na Vivaldiju nece moci pristupiti Icentru

dodan je javascript kod:

PreuzmiIzvorni kôd (Text):
  1. <!DOCTYPE html>
  2.     <html>
  3.     <body>
  4.     <p>What is the name(s) of your browser?</p>
  5.     <button onclick="myFunction()">Try it</button>
  6.     <p id="demo"></p>
  7.     <script>
  8.  
  9.     function myFunction() {
  10.      if((navigator.userAgent.indexOf("Opera") || navigator.userAgent.indexOf('OPR')) != -1 )
  11.     {
  12.         alert('Opera');
  13.     }
  14.     else if(navigator.userAgent.indexOf("Chrome") != -1 )
  15.     {
  16.         alert('Chrome');
  17.     }
  18.     else if(navigator.userAgent.indexOf("Safari") != -1)
  19.     {
  20.         alert('Safari');
  21.     }
  22.     else if(navigator.userAgent.indexOf("Firefox") != -1 )
  23.     {
  24.          alert('Firefox');
  25.     }
  26.     else if((navigator.userAgent.indexOf("MSIE") != -1 ) || (!!document.documentMode == true )) //IF IE > 10
  27.     {
  28.       alert('IE');
  29.     }  
  30.     else
  31.     {
  32.        alert('unknown');
  33.     }
  34.     }
  35.     </script>
  36.  
  37.     </body>
  38.     </html>

pa ako cete imati problema pristupu forumu najvjerojatnije je to sto ne browsate sa vivaldijem
zivot je moja domovina.
Ovaj post je ureden 2 puta. Posljednja izmjena 05.02.2018 17:05 od strane Avko. ↑  ↓

#2668 07.02.2018 10:08
dex Van mreze
Super Moderator
Registrovan od:23.02.2012
Postovi:637


Predmet:Re: dobro jutro, dobar dan...
Bro jutro
Od jutros nesto tmurno
Ovih dana bilio: nocu i ujutru mraz, preko dana suncano i toplo

PS Avko nisi predvideo case Vivaldi, samo izbacujes arlete za ime browsera. U tvom kodu Vivaldi spada pod else
↑  ↓

#2669 07.02.2018 10:19
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,904


Predmet:Re: dobro jutro, dobar dan...
Citiraj dex:
Bro jutro
PS Avko nisi predvideo case Vivaldi, samo izbacujes arlete za ime browsera. U tvom kodu Vivaldi spada pod else

ne kontam?
zivot je moja domovina.
↑  ↓

#2670 07.02.2018 12:01
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,904


Predmet:Re: dobro jutro, dobar dan...
pises kod i upotrebljavas neke stvari desetke puta, kod se povecava proporcionalno

PreuzmiIzvorni kôd (Text):
  1. broj_1=10
  2. broj_2=20
  3.  
  4. suma=broj_1 + broj_2
  5.  
  6. broj_1=15
  7. broj_2=20
  8.  
  9. suma=broj_1 + broj_2

itd itd

onda pocnes upotrebljavati funkcije

PreuzmiIzvorni kôd (Text):
  1. sub
  2.  suma=zbroj(10,20)
  3.  suma=zbroj(15,20)
  4. end sub
  5.  
  6. function zbroj(broj_1, broj_2)
  7.  zbroj=broj_1 + broj_2
  8. end function

onda neke trebas nazad a neke ne

PreuzmiIzvorni kôd (Text):
  1. sub
  2.  broj_1=10
  3.  broj_2=20
  4.  suma(broj_1,broj_2)
  5. end sub
  6.  
  7. function zbroj(ByRef broj_1, ByVal broj_2)
  8.  zbroj=broj_1 + broj_2
  9.  broj_1=zbroj+broj_2
  10. end function

itd itd

nagomilaju se funcije i vise nezna covjek sta koja radi i zasto

bilo mi je jednostavnije napisati kod na 10 stranica A4 formata, ali mi je bilo teze naci gresku
zivot je moja domovina.
Ovaj post je ureden 1 puta. Posljednja izmjena 07.02.2018 12:02 od strane Avko. ↑  ↓

Stranice (310):1,2 ... 265,266,267,268,269 ... 309,310

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 7: 42 pm.