Rozbudowujemy MsgBox, excel


Rozbudowujemy MsgBox

Funkcję MsgBox z ćwiczenia ""Hello World!" i funkcja MsgBox" możemy trochę przyozdobić.

Po pierwsze można do niej dodać piktogramy: informacyjny, ostrzeżenia, krytyczny i pytający.

Dla przykładu użyjmy piktogram informacyjny, musimy trochę zmienić składnię, gdyż teraz funkcja MsgBox ma więcej niż tylko argument wyświetlający tekst:

Sub HelloWorld()

    komunikat = MsgBox("Hello World!", vbInformation)

End Sub
 

(po wciśnięciu przecinka rozwinie się lista możliwych w tym miejscu parametrów)

Możemy teź sprawić by były wyświetlane przyciski OK i Cancel (anuluj) (zmienna "komunikat przyjmie wtedy wartość "1" jeżeli zostanie wybrany przycisk OK, albo "2" dla Cancel):

Sub HelloWorld()

    komunikat = MsgBox("Hello World!", vbInformation+vbOkCancel)

End Sub
 

Możemy pójść jeszcze dalej i wykorzystać zmienną "komunikat" do sterowania programem (tekst po apostrofie jest komentarzem - cały tekst w linii zaczynający się od apostrofu nie jest interpretowany jako kod programu):

Sub HelloWorld()

    komunikat = MsgBox("Hello World!", vbInformation + vbOKCancel)

    If komunikat = 1 Then 'jeżeli zostanie wybrany przycisk OK to wyświetl komunikat Dzień Dobry!
        MsgBox "Dzień Dobry!"
    Else 'w przeciwnym wypadku wyświetl Do widzenia!
        MsgBox "Do widzenia!"
    End If 'koniec "jeżeli"

End Sub



Wyszukiwarka

Podobne podstrony:
Opis funkcji MsgBox, excel
Hello World i funkcja MsgBox, excel
wykład 4 Excel
Excel Nieoficjalny podrecznik excnop
excel 2013 pdf converter
HYUNDAI EXCEL 1994
ms excel tutorial 2013
kurs excel (ebook) statistical analysis with excel X645FGGBVGDMICSVWEIYZHTBW6XRORTATG3KHTA
Excel na gorąco cz.2, excel
Moja Funkcja, excel
Powiększanie nieczytelnych elementów arkusza, excel
Automatyczne odświeżanie tabeli przestawnej, excel
Pojęcia podstawowe, excel
Podręczna karta informacyjna, excel
Przenoszenie formatu z komórki na komórkę, excel
Excel liczby

więcej podobnych podstron