Problém se syntaxí? VBA

[mikie16]

Zdravím, mám tady problém... po jakémsi uvažování jak vymyslet ve VBA funkci na počítání školního průměru známky, (i s možností zápisu znaménka"mínus") jsem dospěl k tomuto kódu, jenže funkce sice funguje, ale bez možností počítání s již zmíněnými znaménky (mínus)...

Function SkolniPrumer(Oblast As Range) As Double
Dim Pocet As Integer
Dim Soucet As Double
Dim Bunka As Range

For Each Bunka In Oblast
If IsNumeric(Bunka.Value) Then
Pocet = Pocet + 1
Soucet = Soucet + Bunka.Value

SkolniPrumer = Soucet / Pocet
Else
Select Case Bunka.Value
Case "1-"
Bunka.Value = 1.5
Case "2-"
Bunka.Value = 2.5
Case "3-"
Bunka.Value = 3.5
Case "4-"
Bunka.Value = 4.5
End Select
Pocet = Pocet + 1
Soucet = Soucet + Bunka.Value
SkolniPrumer = Soucet / Pocet

End If

Next Bunka
End Function

[Reklama]

[CZechBoY]

hele proč tam přičítáš 2× pocet?
jo a proč ti nejde minus? protože máš datový typ bunky, nějaký range, co to je?
podle VBA by to měl být nějaký list nebo tak něco, udělej si proměnnou která bude string, nebo nějaký řetězec a podle toho potom zjistíš jestli tma je nebo není minus, nebo rovnou měnit "-" za ".5"

[mikie16]

Range jako datový typ? Protože ve VBA existuje (aspon co mi literatura dopomohla) jako vyber oblasti. Jinak samotna bunak, kterou se bude projizdet je tam jako Bunka.Value.

[CZechBoY]

nevím co je to bunka.value, asi v Excelu nějaká buňka, ale tohle je jen funkce kterou nevim jak voláš, ale spíš to dej do sekce Kancelářské balíky asi :-)

[mikie16]

ok..diky :)