VBA - InputBox

Il InputBox functionrichiede agli utenti di inserire valori. Dopo aver inserito i valori, se l'utente fa clic sul pulsante OK o preme INVIO sulla tastiera, la funzione InputBox restituirà il testo nella casella di testo. Se l'utente fa clic sul pulsante Annulla, la funzione restituirà una stringa vuota ("").

Sintassi

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

Descrizione dei parametri

  • Prompt- Un parametro obbligatorio. Una stringa visualizzata come messaggio nella finestra di dialogo. La lunghezza massima del prompt è di circa 1024 caratteri. Se il messaggio si estende a più di una riga, è possibile separare le righe utilizzando un carattere di ritorno a capo (Chr (13)) o un carattere di avanzamento riga (Chr (10)) tra ciascuna riga.

  • Title- Un parametro opzionale. Un'espressione String visualizzata nella barra del titolo della finestra di dialogo. Se il titolo viene lasciato vuoto, il nome dell'applicazione viene inserito nella barra del titolo.

  • Default- Un parametro opzionale. Un testo predefinito nella casella di testo che l'utente desidera venga visualizzato.

  • XPos- Un parametro opzionale. La posizione diXL'asse rappresenta la distanza del prompt dal lato sinistro dello schermo in orizzontale. Se lasciato vuoto, la casella di input è centrata orizzontalmente.

  • YPos- Un parametro opzionale. La posizione diYl'asse rappresenta la distanza del prompt dal lato sinistro dello schermo verticalmente. Se lasciato vuoto, la casella di input è centrata verticalmente.

  • Helpfile- Un parametro opzionale. Un'espressione String che identifica il file della guida da utilizzare per fornire la Guida sensibile al contesto per la finestra di dialogo.

  • context- Un parametro opzionale. Un'espressione numerica che identifica il numero di contesto della Guida assegnato dall'autore della Guida all'argomento della Guida appropriato. Se viene fornito il contesto, è necessario fornire anche il file di aiuto.

Esempio

Calcoliamo l'area di un rettangolo ottenendo i valori dall'utente in fase di esecuzione con l'aiuto di due caselle di input (una per la lunghezza e una per la larghezza).

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

Produzione

Step 1 - Per eseguire lo stesso, chiamare utilizzando il nome della funzione e premere Invio come mostrato nella schermata seguente.

Step 2- Al momento dell'esecuzione, viene visualizzata la prima casella di immissione (lunghezza). Immettere un valore nella casella di immissione.

Step 3 - Dopo aver immesso il primo valore, viene visualizzata la seconda casella di immissione (larghezza).

Step 4- Dopo aver immesso il secondo numero, fare clic sul pulsante OK. L'area viene visualizzata come mostrato nella seguente schermata.