[1] Excel VBA - Makro podnoszące wartość do zadanej potęgi

Tym razem przedstawię pierwsze przygotowane prze zemnie makro. Jego zadaniem będzie podniesienie podanej wartości do potęgi, wypisanie jej na ekranie oraz w podanej komórce

Makro

Makro wygląda następująco:

Sub PodnoszenieDoPotegi()
 
    Wartosc = InputBox("Podaj wartosc jaka chcesz podniesc do potegi")
 
    Potega = InputBox("Podaj wartosc potegi")
 
    If Wartosc > 0 Then
        MsgBox Wartosc ^ Potega & " - Taka wartosc otrzyma sie po zastosowaniu przedstawionego wzoru " _
        & Wartosc & " ^ " & Potega
        Range("A1").Value = Wartosc ^ Potega
    Else
        If Wartosc < 0 Then
            MsgBox "Podales wartosc ujemna"
        Else
                                                                                     End If
    End If
End Sub

Najpierw zostanie wyświetlone okno pozwalające na wprowadzenie wartości która zostanie przypisana do zmiennej Wartosc.

Rys. 1.1. Okno do wprowadzania zmiennej

W kolejnym kroku wyświetli się drugie okno proszące o podanie wartosci potęgi

Rys. 1.2. Okno do wprowadzania wartości potęgi

Następnie następuje sprawdzenie czy podana liczba jest większa od 0. Jeśli tak to wartość zostanie obliczona, wyświetlona na ekranie oraz w komórce A1.

Rys. 1.3. Wynik obliczeń wyświetlony na ekranie oraz wpisany do komórki A1

Jeśli wartość jest mniejsza od 0 w takim przypadku nastąpi wyświetlenie okna z informacją, że podana zmienna jest ujemna lub jeśli nie podano żadnej liczby to zostanie wyświetlony komunikat. 

Rys. 1.4. Okno komunikatu dla podanej wartości ujemnej

Tytuł standardowy Microsoft Excel można zamienić na tytuł dla użytkownika odpowiedni wobec tego należy zamienić pierwszą komendę na:

Wartosc = InputBox("Podaj wartosc jaka chcesz podniesc do potegi"; Title:= "Dana do potegi")
 

No to by było na tyle. Na razie jest to moje pierwsze makro więc poziom zaawansowania jest jeszcze nie wielki natomiast pracuje nad zwiększeniem swoich umiejętności w tym zakresie.