ZAD 1 Cena towaru

Oblicz cenę detaliczną towaru po pobraniu z okna InputBox ceny hurtowej, procentu marży
i zaznaczeniu w polu opcji stawki VAT 22%, 7%, 3% przypisanej do towaru.

W formularzu utworzyć :

• Pola opcji do wyboru stawki VAT,

• przycisk Podaj dane umożliwiający wczytanie wartości ceny hurtowej oraz marży, wczytane wartości powinny zostać wyświetlone w informacyjnym polu tekstowym,

• przycisk Oblicz cenę detaliczną wyznaczający cenę detaliczną i wyświetlający ją w oknie komunikatu.

Zastosować pułapkę na błędy powstałe podczas wprowadzania danych.

ZAD 2 Wypełnianie komórek

W bieżącym arkuszu wypełnić komórki z zakresu A1 do A5 nazwami owoców:

• Nazwy owoców podać za pomocą funkcji InputBox,

• Pokolorować komórki na przemian na kolor czerwony/zielony,

• Ustalić kolor atramentu na przemian zielony/czerwony,

• Ustalić font (np. Forte)dla zakresu od A1 do A5.

Napisane makro podpiąć pod przycisk.

Zadanie 1

Option Explicit

Dim cena_hurt As Single

Dim marża As Single

Private Sub podaj_dane_Click()

Dim cen As String, mar As String

vat22 = True 'domyślna wartość vatu

On Error GoTo koniec

cen = InputBox("Podaj cenę hurtową")

cena_hurt = CSng(cen)

mar = InputBox("Podaj marżę w procentach")

marża = CSng(mar)

dane = "Cena hurtowa=" & cena_hurt & " Marża=" & marża & "%"

Exit Sub

koniec: MsgBox "Niepoprawne dane"

End Sub

Private Sub OBLICZ_CENE_Click()

Dim vat As Single, cena_detal As Single

If vat3 = True Then

vat = 0.03

ElseIf vat7 = True Then

vat = 0.07

Else

vat = 0.22

End If

cena_detal = cena_hurt * (1 + marża / 100) * (1 + vat)

MsgBox "Cena detaliczna=" & cena_detal

End Sub

Zadanie 2

Option Explicit

Sub wypełnienie()

Dim i As Integer, kolor_a As Long, kolor_w As Long

Range("A1:A5").Clear

kolor_a = vbRed

kolor_w = vbGreen

For i = 1 To 5

Range("A" & i) = InputBox("Podaj nazwę owocu numer " & i)

Range("A" & i).Interior.Color = kolor_w

Range("A" & i).Font.Color = kolor_a

If kolor_a = vbRed Then

kolor_a = vbGreen

kolor_w = vbRed

Else

kolor_w = vbGreen

kolor_a = vbRed

End If

Next

Range("A1:A5").Font.Name = "Forte"

End Sub

oblicz_cene

podaj_dane

dane

Vat7

Vat3

Vat22

---