Poznanie sposobu nagrywania makr i ich edycji w edytorze VBA

Сентябрь 3, 2022

Главная
Алгебра
Poznanie sposobu nagrywania makr i ich edycji w edytorze VBA

Содержание

2. Cele prezentacji: Poznanie sposobu nagrywania makr i ich edycji w edytorze VBA. Poznanie podstawowych elementów języka
3. ćwiczenie 1 Zadanie 1: Rejestrowanie nowego makra. Zadanie to rozpoczęłam od otwarcia nowego arkusza i wykonania
5. W komórce A1 wpisałam nazwę „Adam” i potwierdziłam, a następnie zakończyłam nagrywanie makra przyciskiem „Zatrzymaj rejestrowanie”.
6. Za pomocą skrótu Alt+F11 przeszłam do edytora VBA i kliknęłam znak + przy Modules i dwukrotnie
7. Zadanie 2: obiekt range Wpisałam w edytorze VBA w Module1 makro: Sub Dodaj() Range("C1")= Range("A1")+ Range("B1")
9. Zadanie 3: Obliczyć wartość wyrażenia dla wartości a,b znajdujących się w komórkach odpowiednio A1 i B1.
10. Po wpisaniu wartości do A1 i B1 i uruchomieniu makra, w komórce C1 pojawił się wynik.
11. Zadanie 4: Napisz makro, które zamienia wartości dwóch komórek, np. A2 i B2. Wprowadziałam dodatkową zmienną
12. Zadanie 5 Napisałam makro: Sub Sprawdź() If [B3] 0 Then [C3] = [A3]/[B3] Else [C3]= "Błąd"
13. Następnie przepisz makro w alternatywnej postaci i sprawdź jego działanie: Sub Sprawdź() If [B3] 0 Then
14. Napisałam makro, które rozwiązuje równanie kwadratowe ax 2 + bx + c = 0 w liczbach
15. Przetestowałam działanie makra na przykładowych danych.
17. Скачать презентацию

Слайд 2

Cele prezentacji:
Poznanie sposobu nagrywania makr i ich edycji w edytorze VBA.

Poznanie podstawowych elementów języka Visual Basic for Applications.

Слайд 3

ćwiczenie 1
Zadanie 1: Rejestrowanie nowego makra.
Zadanie to rozpoczęłam od otwarcia nowego

arkusza i wykonania w nim polecenia „zarejestruj makro” w grupie kod. Jego nazwę zmieniłam na „Adam” i wybrałam klawisz skrótu na „ctrl+a”, po czym potwierdziłam OK. W tym momencie rozpoczął się tryb nagrywania makra.

Слайд 4

Слайд 5

W komórce A1 wpisałam nazwę „Adam” i potwierdziłam, a następnie zakończyłam

nagrywanie makra przyciskiem „Zatrzymaj rejestrowanie”.
Wybrałam komórkę C2 i nacisnęłam skrót „ctrl+a”.

Слайд 6

Za pomocą skrótu Alt+F11 przeszłam do edytora VBA i kliknęłam znak

+ przy Modules i dwukrotnie na Module1.Tam zmieniłam nazwę „Adam” na „Adam i Ewa”

Sub Adam ()
'
' Adam Makro
'
' Klawisz skrótu: Ctrl+a
ActiveCell.FormulaR1C1 = „Adam i Ewa”
End Sub

Слайд 7

Zadanie 2: obiekt range
Wpisałam w edytorze VBA w Module1 makro:

Sub Dodaj()
Range("C1")= Range("A1")+ Range("B1")
End Sub
A w Arkuszu wpisałam do komórek A1 i B1 dowolne wartości liczbowe i wykonałam makro.

Слайд 8

Слайд 9

Zadanie 3: Obliczyć wartość wyrażenia dla wartości a,b znajdujących się w

komórkach odpowiednio A1 i B1.

W tym celu napisałam następujące makro:
Sub Wynik()
Dim a As Double ,b As Double ,c As Double
a= [A1]
b=[B1]
c
[C1] = c
Sub

Wyrażenie:

Слайд 10

Po wpisaniu wartości do A1 i B1 i uruchomieniu makra, w

komórce C1 pojawił się wynik.

Слайд 11

Zadanie 4: Napisz makro, które zamienia wartości dwóch komórek, np. A2

i B2.

Wprowadziałam dodatkową zmienną typu Variant w celu zapamiętania wartości jednej z komórek.
Za pomocą instrukcji warunkowej sprawdziłam, czy dzielnik jest różny od 0.

Слайд 12

Zadanie 5
Napisałam makro:
Sub Sprawdź()
If [B3] <> 0 Then [C3] = [A3]/[B3]

Else [C3]= "Błąd"
End Sub
Następnie wstawiałam do komórek A3 i B3 różne wartości w tym również 0 i uruchamiałam makro

Слайд 13

Następnie przepisz makro w alternatywnej postaci i sprawdź jego działanie:
Sub Sprawdź()
If

[B3] <> 0 Then
[C3] = [A3]/[B3]
Else
[C3]= "Błąd dzielenia przez zero”
End If
End Sub
Zamiast instrukcji [C3]= „Błąd dzielenia przez zero” wpisałam:
[C3]= ""
MsgBox "Błąd dzielenia przez zero„
I sprawdziłam działanie makra.

Слайд 14

Napisałam makro, które rozwiązuje równanie kwadratowe ax 2 + bx +

c = 0 w liczbach rzeczywistych. Współczynniki a,b,c wpisałam do komórek A1,B1,C1. Pierwiastki wpisałam w komórkach D1 i E1. Zapisałam schemat blokowy za pomocą instrukcji Visual Basic.

Sub równanie kwadratowe ()
Dim a As Single, b As Single, c As Single, d As Single
a= [A1]
b= [B1]
c= [C1]

Слайд 15