PROG. APLIKACJI UŻYTKOWYCH- WYKŁAD 11. 5.01.2011r.

1. WSTAWIANIE FORMULARZA

• Otworzyć VBA

• Insert/UserForm

• Wywołanie w Excelu:

• Otwarcie formularza
  Load Nazwa_formularza
  Nazwa_formularza.Show

• Zamknięcie formularza
  Nazwa_formularza.Hide
  Unload Nazwa_formularza
  lub
  Unload Me

• -Przybornik formatu
  -przycisk (prawy na myszce) i wyświetl kod ***
  -wracamy do formularza
  (Name) nazwa zgodnie z przeznaczeniem np. form

Caption to, co na listwie tytułowej- nazwa-przeznaczenie okienka
***

Private Sub CommandButton1_Cick()
Load form

Form.show
end sub

-zmienić tryb, wyłączyć projektowy na pasku formatu

PROJEKTUJEMY FORMULARZ- TOOLBOX

1. Wstawiamy przycisk do zamykania

(Name) ok

Caption ok

Klikamy 2 razy na ten element
Private sub ok_click()

`operacja przed zamknięciem formularza

Range(”a1”).Value=textbox1.value {zapisywanie do skoroszytu}

Form.Hide

Unload form

End Sub

2. Wstawiamy przycisk pole tekstowe (Textbox ab)

(Name) TextBox1ok

Value wpisz swój adres

3. Wstawiamy przycisk do zamknięcia bez zapisywania

Caption Anuluj

Klikamy 2 razy
form.Hide
Unload form

4. Wstawiamy “Θ”

Caption OptionButton1

OptionButton2

OptionButton3

Frame- wstawiamy w dowolnym miejscu, zaznaczamy te pola Θ I przeciągamy w obręb tej ramki

Caption wybierz jedną opcję

5. Wstawiamy przycisk sprawdzający

Caption sprawdź

Private Sub

If len(textbox1.value)>25 then

Msgbox “źle”, większe od 25 znaków

Else

Msgbox „ok.”

End if

Ens sub

6. Przycisk do odwołania do innego formularza

Caption inny

Private Sub

UserForm1.show
end sub

7. Podział na zakładki

Przycisk Multipage w toolbox

2. PRZEKAZANIE PARAMETRÓW

• Rodzaje deklarowania parametrów formalnych w podprogramach:

• Przekazywanie parametru przez wartość:
  ByVal zmienna As typ_danych

• Przekazywanie parametru przez zmienną
  ByRef zmienna As typ_danych

Np. Sub Proc(arg1 as Byte, ByVal arg2 as Integer, ByRef arg3 as string)

• Wywoływanie procedury

Call identyfikator_procedury (parametry)

3. ZASIĘG WIDOCZNOŚCI IDENTYFIKATORÓW

Const stała=wartość `lokalna stałą

Public Const stała=wartość

Private Const stała=wartość `domyślna

Dim zmienna As typ danych `lokalna zmienna

Public zmienna As typ danych

Private zmienna As typ danych `domyślna

[Public|Private] sub identyfikator(parametry)

…

End Sub

[Public|Private] Function identyfikator(parametry) As typ_danych

…

End Function

---