Jeśli chcesz uzyskać jakiekolwiek informacje od użytkownika, możesz skorzystać z funkcji INPUTBOX.
Ta funkcja wyświetla okno dialogowe, które pozwala użytkownikowi wpisać cokolwiek i zwraca zawartość jako ciąg.
Czasami chcesz zdecydować, co użytkownik ma wypełnić, zamiast akceptować jakiekolwiek informacje. Wtedy używasz metody INPUTBOX :
Sub DecideUserInput() Dim bText As String, bNumber As Integer ' oto funkcja INPUTBOX : bText = InputBox("Wstaw tekst", "To akceptuje dowolne dane wejściowe") ' oto metoda INPUTBOX : bNumber = Aplikacja. InputBox("Wstaw liczbę", "To akceptuje tylko liczby", 1) MsgBox "Wstawiłeś :" & Chr(13) & _ bText & Chr(13) & bNumber, , "Wynik z pól INPUT" End Sub
Metoda INPUTBOX ma trzeci argument, Typ, który decyduje o tym, co użytkownik może wstawić do okna dialogowego INPUTBOX.
Typ może być jednym z następujących :
Rodzaj :
Akceptowane dane wejściowe: 0 Formuła 1 Liczba 2 Tekst 4 Wartość logiczna (Prawda lub Fałsz) 8 Odwołanie do komórki, np. a Range-object 16 Wartość błędu, np. #N/D 64 Tablica wartości
Po uruchomieniu makra zobaczymy następujące pola wejściowe:
W ten sposób możemy uzyskać wynik poprzez okno wiadomości.