iCentar » Zabava » Trac partijanje » dobro jutro, dobar dan...

Avko	24.01.2018 19:33
Predmet:Re: dobro jutro, dobar dan... Onda cu i ja tako. MoÅ¾da napise neki Makedonac pitanje, a ja se zabunim i obrise.

Avko	26.01.2018 08:55
Predmet:Re: dobro jutro, dobar dan... dobro jutro!

Avko

02.02.2018 10:20

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

Dobro jutro!

Bas gledam ovu funkciju VBA funkcija Saberi

stavim ja vrijednosti u celije:

	A
1	1
2	Dobar dan
3	3
4	12:33
5	2.2.2018
6	-10
7	9,2

stavim modul i upisem:

PreuzmiIzvorni kôd (Text):

Sub proba()
Dim rng As Range
Set rng = Range(Cells(1, 1), Cells(9, 1))
MsgBox Saberi(rng)
End Sub

PreuzmiIzvorni kôd (Text):

Function Saberi(Region As Range)
'********************************************
'Sabiranje celija sa provjerom dali je u
' celiji numericka vrijedost
'********************************************
Dim Celija As Range
Dim Suma As Double
Dim Vrijednost As Double
Dim Vrs As String
On Error Resume Next
For Each Celija In Region.Cells
Vrs = Celija.Value
Vrijednost = Celija.Value
If Len(Vrs) = Len(Format$(Vrijednost)) Then
Suma = Suma + Vrijednost
Else
MsgBox "Vrijednost u polju" & vbCr _
& Celija.Address & vbCr _
& "Nije numericka"
Celija.Select
Exit Function
End If
Next Celija
Saberi = Suma
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.

Vrijednost	VBA IsNumeric	Excel IsNumber
1	True	True
Dobar dan	False	False
3	True	True
12:33	True	True
2.2.2018	False	True
-10	True	true
9,2	True	True

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

Sub proba()
Dim rng As Range
Set rng = Range(Cells(1, 1), Cells(9, 1))
MsgBox Saberi(rng)
End Sub
Function Saberi(Region As Range)
'********************************************
'Sabiranje celija sa provjerom dali je u
' celiji num,ericka vrijedost
'********************************************
Dim Celija As Range
Dim Suma As Double
Dim Vrijednost As Double
For Each Celija In Region.Cells
If isBroj(Celija.Value) = True Then
Vrijednost = Celija.Value
Suma = Suma + Vrijednost
End If
Next Celija
Saberi = Suma
End Function
Function isBroj(ByVal Value As String) As Boolean
If IsNumeric(Value) = False And Application.WorksheetFunction.IsNumber(Value) = False Then
isBroj = False
ElseIf IsNumeric(Value) = False And Application.WorksheetFunction.IsNumber(Value) = True Then
isBroj = True
Else
isBroj = True
End If
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).