[ jmix23 @ 29.01.2009. 08:14 ] @
ovako narode, napravio sam u excel-u (u VB Editoru) sledecu funkciju:

CODE:

Function nivo_zastite(nz As Double)

Select Case True
Case (nz > 0.95) & (nz <= 0.98)
nivo_zastite = I
Case (nz > 0.9) & (nz <= 0.95)
nivo_zastite = II
Case (nz > 0.8) & (nz <= 0.9)
nivo_zastite = III
Case (nz > 0) & (nz <= 0.8)
nivo_zastite = IV
Case Else
nivo_zastite = "problem"

End Select
End Function

znaci, treba jednu vrednost(celiju) koja se dobija proracunom da poredi sa odrdjenim vrednostima i na osnovu toga da kao rezultat da I,II,III ili IV...e sad, fukncija je ok, bar mi ne prijavljuje greske, ali mi pravi problem oko tipa podatka koji se koristi u funkciji, odnosno da promenljiva koju sam nazvao nz i koja je deklarisana kao double, njen tip podatka ne odgovara ... pa ako neko ima neko resenje, bio bih mu zahvalan !!!!
[ Catch 22 @ 29.01.2009. 10:56 ] @
^ Verovatno si odabrao ime za promenljivu, koje je u konfliktu sa nazivima ugradjenih funkcija u Excelu.
Probaj umesto nz da promenljivu deklarises kao npr. nivz
[ jmix23 @ 29.01.2009. 11:33 ] @
resio sam se ovog problema...bio je konflikt jer sam koristio true a nije trebalo :)....ali sad imam novi problem, a to je da mi preskace sve case-ove osim oovog case else i sta god da napisem on mi izbaci "problem"...a ja ne vidim da sam nesta izostavio
[ 3okc @ 29.01.2009. 13:48 ] @
Code:
Function nivo_zastite(nz As Double) As String

    Select Case nz
        Case 0 To 0.98
            Select Case nz
                Case Is > 0.95
                    nivo_zastite = "I"
                Case Is > 0.9
                    nivo_zastite = "II"
                Case Is > 0.8
                    nivo_zastite = "III"
                Case Else
                    nivo_zastite = "IV"
            End Select
        Case Else
            nivo_zastite = "problem"
    End Select
End Function

Ovo se mnogo jednostavnije rešava sa VLOOKUP()


s tim da granične vrednosti neće biti kao u postavci..

[Ovu poruku je menjao 3okc dana 29.01.2009. u 15:56 GMT+1]
[ jmix23 @ 29.01.2009. 14:42 ] @
Hvala 3oks, i ovo je pomoglo i dovoljno je jednostavno, posto su mi bitne granicne vrednosti....HVALA!!!!