VBA-problém se sestavením kódu Vyřešeno

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

[mmmartin]

Pokud dobře počítám, řešíš tento problém v průběhu několika dní už potřetí. Pokračuj prosím tady . Navíc tvůj už druhý název typu Problém s ... porušuje Pravidla.