Opis funkcji InputBox

Funkcja InputBox wyświetla okno dialogowe z polem tekstowym i dwoma przyciskamy, po czym zwraca typ danych String będący zawartością pola tekstowego. Typ danych String stanowi sekwencję następujących po sobie znaków, które interpretowane są jako znaki tekstowe, a nie jako określone wartości numeryczne. Należy o tym pamiętać, gdy oczekujemy wprowadzenia cyfr używanych do obliczeń i w razie czego dokonać konwersji za pomocą funkcji Val. Kliknięcie przycisku OK lub naciśnięcie klawisza ENTER powoduje, że funkcja InputBox zwraca zawartość pola tekstowego. Funkcja zwróci ciąg o zerowej długości (""), jeśli klikniemy przycisk Anuluj. Składnia: InputBox(prompt[, title] [, default] [, xpos] [, ypos] [,helpfile, context]) W składni funkcji InputBox argumenty zawarte w nawiasach prostokątnych są nieobowiązkowe. Samych nawiasów prostokątnych nie należy umieszczać w kodzie programu pisanego w języku Visual Basic. Dla funkcji InputBox jedynym argumentem, który trzeba podać jest tekst wyświetlany w oknie (argument prompt). Funkcja InputBox ma następujące argumenty: Argument Opis prompt Argument obowiązkowy, wyrażenie znakowe wyświetlane jako komunikat w oknie dialogowym. Maksymalna długość prompt wynosi około 1024 znaki, zależnie od szerokości znaków w zastosowanej czcionce. Jeśli prompt składa się z kilku wierszy, należy je rozdzielić wstawiając znak powrotu karetki Chr(13) lub znak nowego wiersza Chr(10) albo kombinację znaków powrót karetki i nowy wiersz Chr(13) & Chr(10). title Argument nieobowiązkowy, wyrażenie znakowe wyświetlane na pasku tytułu okna dialogowego. Brak argumentu title spowoduje, że na pasku tytułu zostanie umieszczona nazwa aplikacji. default Argument nieobowiązkowy, wyrażenie znakowe wyświetlane w polu tekstowym, jeśli nie zostanie podany inny tekst. Brak parametru default spowoduje, że pole tekstowe będzie puste. xpos Argument nieobowiązkowy, wyrażenie numeryczne określające, w jednostkach zwanych "twips", odległość lewej krawędzi okna dialogowego od lewej krawędzi ekranu. Brak argumentu xpos spowoduje, że okno dialogowe zostanie umieszczone w równej odległości od lewej i prawej krawędzi ekranu. ypos Argument nieobowiązkowy, wyrażenie numeryczne określające, w jednostkach zwanych "twips", odległość górnej krawędzi okna dialogowego od górnej krawędzi ekranu. Brak argumentu ypos spowoduje, że okno dialogowe zostanie umieszczone na poziomie dwóch trzecich wysokości ekranu. helpfile Argument nieobowiązkowy, wyrażenie znakowe określające plik Pomocy zawierający pomoc kontekstową. Argument helpfile musi być zawsze podany z argumentem context. context Argument nieobowiązkowy, wyrażenie numeryczne określające identyfikator tematu w pliku Pomocy. Jeśli podany jest argument context, to musi być również podany argument helpfile. Zastosowanie: Za pomocą funkcji InputBox użytkownik może przekazać programowi dowolną wartość wprowadzoną z klawiatury. Przykłady: Celem objaśnienia funkcji InputBox posłużyłem się klasycznym przykładem w którym użytkownika pytamy o imię. Dim wartosc  wartosc = InputBox("Podaj swoje imię") 'Wyświetlane jest okno dialogowe z zapytaniem o imię użytkownika. Dim wartosc  wartosc = InputBox("Podaj swoje imię", "dzono4") 'Wyświetlane jest okno dialogowe z zapytaniem o imię użytkownika, na pasku tytułu okna dialogowego wyświetlony jest napis dzono4. Dim wartosc  wartosc = InputBox("Podaj swoje imię", "dzono4", "janek") 'Wyświetlane jest okno dialogowe z zapytaniem o imię użytkownika, na pasku tytułu okna dialogowego wyświetlony jest napis dzono4. W polu tekstowym wyświetlana jest wartość domyślna tj. janek. Dim wartosc  wartosc = InputBox("Podaj imię", "dzono4", "janek", 500, 500) 'Wyświetlane jest okno dialogowe z zapytaniem o imię użytkownika, na pasku tytułu okna dialogowego wyświetlony jest napis dzono4. W polu tekstowym wyświetlana jest wartość domyślna tj. janek. Określamy też położenie okna na ekranie. Dim wartosc  wartosc = InputBox("Podaj imię", "dzono4", "janek", 500, 500)  Range("B2").Value = wartosc 'Przykład identyczny jak wyżej, wartość zwrócona przez okno dialogowe wpisywana jest do komórki B2 arkusza Excela. Dim wartosc  wartosc = InputBox("Podaj imię", "dzono4", "janek", 500, 500)   If wartosc = "" Then wartosc = "bezimienny"    MsgBox "Witaj " & wartosc & " życzę przyjemnej zabawy", vbInformation, "dzono4" 'przykład podobny jak wyżej, wartość zwrócona przez okno dialogowe wykorzystaliśmy do wyświetlenia okna komunikatu z powitaniem.Jeżeli chcemy aby okno dialogowe ukazywało się w momencie otwarcia dokumentu Excela, kod przykładu należy umieścić w zdarzeniu Workbook_Open() naszego dokumentu. A oto inne przykłady zastosowania funkcji InputBox:  Dim haslo, ciag   haslo = "lufa"   ciag = InputBox("Wpisz hasło")   If ciag = haslo Then    MsgBox "Podałeś prawidłowe hasło"   Else    MsgBox "hasło nieprawidłowe"    End   End If 'W przykładzie tym pytamy użytkownika o hasło. Jeżeli użytkownik poda prawidłowe hasło, wyświetlane jest okno komunikatu o podaniu prawidłowego hasła. Jeżeli wpiszemy nieprawidłowe hasło, wyświetlany jest komunikat że hasło jest nieprawidłowe i następuje przerwania działania programu. On Error GoTo anuluj  Dim DataPodana As Date  Dim kom   DataPodana = InputBox("Wprowadź datę w formacie " & Date, , Date)   kom = "Liczba dni od dzisiaj: " & DateDiff("d", Date, DataPodana)   MsgBox kom  Exit Sub anuluj:  MsgBox "Nie podałeś odpowiedniej daty, operacja anulowana" 'Kod przykładu oblicza ilość dni pomiędzy aktualną datą a datą wprowadzoną za pomocą okna dialogowego wyświetlanego przez funkcji InputBox. Dodałem też obsługę błędów jeżeli np. użytkownik naciśnie przycisk Anuluj czy pozostawi pole bez wartości. Opisane przykłady możemy przetestować w następujący sposób: Uruchom Microsoft Excel. Z menu Widok wybieramy Paski narzędzi a następnie Przybornik formantów (jeżeli nie jest widoczny). Z Przybornika formantów wybieramy ikonę Przycisk polecenia a następnie miejsce w arkuszu gdzie chcemy go umieścić. Ikona Tryb projektowania w przyborniku powinna się uaktywnić. Kliknij dwa razy lewym przyciskiem myszy na wstawiony przycisk. W procedurze zdarzenia Click naszego Przycisku polecenia wpisz kod z wybranego przykładu. Przykładowy kod może wyglądać: Private Sub CommandButton1_Click()  Dim wartosc   wartosc = InputBox("Podaj imię", "dzono4", "janek", 500, 500) End Sub Pozamykaj wszystkie okienka, zapisz i zamknij arkusz. Po ponownym otwarciu (z opcją włącz makra) przetestuj działanie przykładu klikając na Przycisk polecenia.

---