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
VBA-problém se sestavením kódu Vyřešeno
- mmmartin
- Moderátor
-
Elite Level 10
- Příspěvky: 9511
- Registrován: srpen 04
- Bydliště: Praha
- Pohlaví:
- Stav:
Offline
Re: VBA-problém se sestavením kódu Vyřešeno
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.
ASUS Prime Z390-P / Hexa Core Intel core i5 Coffee Lake-S / Gigabyte GeForce GTX 650 Ti / FORTRON BlueStorm Bronze 80PLUS / W 11
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 22
- 3119
-
od Kvp2
Zobrazit poslední příspěvek
12 lis 2023 20:39
-
-
Kontrola+pomoc se sestavením NEW PC (do 70 tis.)
od Petersfree » 15 pro 2023 21:10 » v Rady s výběrem hw a sestavením PC - 7
- 1234
-
od Petersfree
Zobrazit poslední příspěvek
22 pro 2023 06:55
-
-
-
Prosba o pomoc se sestavenim noveho desktopu
od Ketty02 » 22 dub 2024 11:34 » v Rady s výběrem hw a sestavením PC - 2
- 746
-
od Ketty02
Zobrazit poslední příspěvek
22 dub 2024 12:11
-
-
- 6
- 2555
-
od mmmartin
Zobrazit poslední příspěvek
09 lis 2023 21:09
-
- 17
- 3455
-
od RIKI22
Zobrazit poslední příspěvek
14 pro 2023 17:30
Kdo je online
Uživatelé prohlížející si toto fórum: elninoslov a 4 hosti