VBA - InputBox

Plik InputBox functionprosi użytkowników o wprowadzenie wartości. Po wprowadzeniu wartości, jeśli użytkownik kliknie przycisk OK lub naciśnie klawisz ENTER na klawiaturze, funkcja InputBox zwróci tekst w polu tekstowym. Jeśli użytkownik kliknie przycisk Anuluj, funkcja zwróci pusty ciąg („”).

Składnia

InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])

Opis parametrów

• Prompt- Wymagany parametr. Ciąg, który jest wyświetlany jako komunikat w oknie dialogowym. Maksymalna długość monitu wynosi około 1024 znaków. Jeśli komunikat obejmuje więcej niż jeden wiersz, wiersze można oddzielić za pomocą znaku powrotu karetki (Chr (13)) lub znaku wysuwu wiersza (Chr (10)) między każdym wierszem.

• Title- parametr opcjonalny. Wyrażenie typu String wyświetlane na pasku tytułu okna dialogowego. Jeśli tytuł pozostanie pusty, nazwa aplikacji zostanie umieszczona na pasku tytułu.

• Default- parametr opcjonalny. Domyślny tekst w polu tekstowym, który użytkownik chciałby wyświetlić.

• XPos- parametr opcjonalny. Pozycja czegośXoś reprezentuje poziomą odległość od lewej strony ekranu. Jeśli pozostanie puste, pole wprowadzania zostanie wyśrodkowane w poziomie.

• YPos- parametr opcjonalny. Pozycja czegośYoś reprezentuje pionową odległość od lewej strony ekranu. Jeśli pozostanie puste, pole wprowadzania zostanie wyśrodkowane w pionie.

• Helpfile- parametr opcjonalny. Wyrażenie typu String, które identyfikuje plik pomocy, który ma być używany do udostępniania pomocy kontekstowej dla okna dialogowego.

• context- parametr opcjonalny. Wyrażenie numeryczne identyfikujące numer kontekstu pomocy przypisany przez autora pomocy do odpowiedniego tematu Pomocy. Jeśli podano kontekst, należy również dostarczyć plik pomocy.

Przykład

Obliczmy powierzchnię prostokąta, pobierając wartości od użytkownika w czasie wykonywania za pomocą dwóch pól wejściowych (jednego dla długości i jednego dla szerokości).

Function findArea() 
   Dim Length As Double 
   Dim Width As Double 
   
   Length = InputBox("Enter Length ", "Enter a Number") 
   Width = InputBox("Enter Width", "Enter a Number") 
   findArea = Length * Width 
End Function

Wynik

Step 1 - Aby wykonać to samo, wywołaj, używając nazwy funkcji i naciśnij Enter, jak pokazano na poniższym zrzucie ekranu.

Step 2- Po wykonaniu wyświetlane jest pierwsze pole wprowadzania (długość). Wprowadź wartość w polu wprowadzania.

Step 3 - Po wprowadzeniu pierwszej wartości wyświetlane jest drugie pole wprowadzania (szerokość).

Step 4- Po wprowadzeniu drugiej liczby kliknij przycisk OK. Obszar jest wyświetlany tak, jak pokazano na poniższym zrzucie ekranu.