Seminární práce z VYT - MS Excel kalkulačka

Sub sinus()

Dim stupne As Double ‘nadeklarování stupní jako des. číslo

Dim radiany As Double ‘nadeklarování radiánů jako des. číslo

Dim sinusoid As Double ‘nadeklarování sinusoveho koefientu jako des. číslo

Dim sinusoidabs As Double ‘nadeklarování absolutního sinusoveho koeficientu jako des. číslo

Range("E6").Select

stupne = ActiveCell.Value

radiany = stupne * 3.14159265358979 / 180 ‘převod stupňů na radiány

sinusoid = sin(radiany)

If sinusoid < 0 Then sinusoidabs = sinusoid * -1 Else sinusoidabs = sinusoid

If sinusoidabs < 0.0000001 Then sinusoidabs = 0

If sinusoid < 0 Then sinusoidabs = sinusoidabs * -1 Else sinusoidabs = sinusoidabs

Range("E6").Select ‘označení buňky E6

ActiveCell.Value = sinusoidabs ‘vložení výsledku do označené buňky

Tento příkaz můžeme použít i na podobné funkce jako cosinus a tangens. Stačí pouze pozměnit parametry na příslušnou funkci. Na tangens by to vypadalo následovně:

Za Sinusoid = by se napsalo tangentoid a tento příkaz by fungoval na spočtení tangenty z určitého čísla.

Další funkcí, kterou si ukážeme je logaritmus. Vytvoříme ho tak, že do námi zvolené buňky vložíme česky zadanou funkci logaritmus a zpět přeneseme do buňky E6. Musíme to udělat přes více buňek, protože by nám to házelo cyklický odkaz. Můžeme použít takovýto příkaz:

Sheets("pomocné").Select

Range("C1").Select

ActiveCell.Value = Range("Kalkulacka!E6").Value

Sheets("pomocné").Select

Range("C2").Select

ActiveCell.FormulaR1C1 = "=LOG10(R[-1]C)"

Sheets("Kalkulacka").Select

Range("E6").Select

ActiveCell.Value = Range("pomocné!C2").Value

Teď si ukážeme jak udělat počítání z pamětí. Všechno vychází z toho, že paměť budeme brát jako předem označenou buňku ve které se bude celá paměť odehrávat.

Příkazem uložení do paměti se rozumí to, že hodnota která je právě v buňce E6 se přenese do námi zadané buňky v našem případě to bude buňka B1 na pomocném listě. Abychom věděli, zda je dané číslo v paměti, můžeme zobrazit uložení do paměti indikátorem, který se ukáže v námi zvolené buňce pod označením velkým písmenem M, příkazem: ActiveCell.FormulaR1C1 = "M"

Příkaz na uložení do paměti vypadá třeba následovně:

Sheets("pomocné").Select

Range("B1").Select

ActiveCell.Value = Range("Kalkulacka!E6").Value ‘vložení do B1 list pomocný z E6 listu klakulačky

Sheets("Kalkulacka").Select

Range("E4").Select

ActiveCell.FormulaR1C1 = "M" ‘pomocný indikátor se vloží do buňky E4 na listě kalkulačky

Range("E6").Select

Vyvolání z paměti uděláme stejným příkazem jako uložení, akorát že převrátíme buňky s uložením budeme tahat z buňky B1 na pomocném listě a vkládat do buňky E6 na listě kalkulačky. Mazání paměti uděláme tak, že do buňky E6 vložíme prázdnou hodnotu a tím se buňka vymaže. Nesmíme ale zapomenout na indikátor, který musí taky zhasnout. Uděláme to úplně stejnou metodou vložením prázdné hodnoty do E4 na listě kalkulačky.