Seminární práce z VYT - MS Excel kalkulačka
Níže je uveden pouze náhled materiálu. Kliknutím na tlačítko 'Stáhnout soubor' stáhnete kompletní formátovaný materiál ve formátu DOC.
Změnu znaménka uděláme podobně jako násobení. Akorát s tím, že jedna hodnota je pořád -1 a ta druhá kterou chceme měnit. Po stisknutí tlačítka se vynásobí číslo -1 s hodnotou v buňce: např. chceme změnit číslo 2.
2 * (-1) = -2
Při zpětném převrácení čísla se minusy zkrátí a dostaneme opět kladné číslo.
(-2) * (-1) = 2
Nejtěžší je ovšem z celé kalkulačky udělat tlačítko rovná se. Je to nejdelší příkaz z celé kalkulačky se samými podmínkami. Podmínky se musejí vytvářet pro každou operaci zvlášť.
Sub rovnase()
Sheets("pomocné").Select
Range("A3").Select
ActiveCell.Value = Range("Kalkulacka!E6").Value
If Range("A2").Text = "+" Then
Range("A4").Select
.
.
.
ActiveCell.FormulaR1C1 = "=R[-1]C^(1/R[-3]C)"
End If
If Range("A2").Text = "^" Then
.
.
.
Range("E6").Select
ActiveCell.Value = Range("pomocné!A4").Value
End Sub
Závěr:
Tato kalkulačka může sloužit jako pomocník při lehkých domácích výpočtech nebo jako pomocník při počítání různých seminárních prací a podobně. Tato kalkulačka je volně šiřitelná. Za následné chyby během používání programu se předem omlouvám…