Casella di testo VBA di Excel
La casella di testo è semplicemente come una casella che viene utilizzata per ottenere input da un utente, le caselle di testo fanno parte dei moduli utente e nella scheda sviluppatore in qualsiasi foglio di lavoro Excel, se vogliamo creare caselle di testo in un modulo utente possiamo selezionare l'opzione casella di testo dai controlli del modulo utente in VBA o nel foglio di lavoro possiamo selezionarlo dalla scheda di progettazione.
VBA TextBox è uno dei controlli dei numerosi controlli del modulo utente. Visualizzando la casella di testo sul modulo utente, possiamo chiedere loro di inserire i dati nella casella di testo e i dati inseriti dall'utente possono essere memorizzati nel foglio di lavoro con codici semplici.
I moduli utente sono molto interessanti nella codifica VBA. Ci aiuta immensamente, soprattutto quando abbiamo bisogno di ricevere input dagli utenti. Con i moduli utente, abbiamo molti controlli e per ottenere il valore di input dagli utenti, "Casella di testo" è l'opzione ideale in un modulo utente. Inserendo una casella di testo nel modulo utente, possiamo effettivamente dire all'utente di inserire il valore richiesto nella casella di testo che stiamo visualizzando. Se non hai idea delle caselle di testo VBA, questo articolo farà un tour delle caselle di testo VBA.
Come inserire TextBox in UserForm VBA?
Per inserire prima una casella di testo, dobbiamo inserire il modulo utente. Per inserire il modulo utente, vai su Inserisci> Modulo utente.
Non appena fai clic su Modulo utente, lo creeremo Modulo utente proprio come un altro modulo.
Fare clic su Modulo utente per visualizzare i controlli del modulo utente.
Da questa casella degli strumenti Controlli, selezionare "TextBox" e trascinare sul modulo utente.
Con questo, possiamo vedere molte proprietà associate a questa casella di testo.
Proprietà TextBox
Premere il tasto F4 per visualizzare le proprietà della casella di testo.
Come possiamo vedere, la casella di testo ha Nome, colore, Bordo come questo molti. Ora dai un nome proprio in modo che possiamo facilmente fare riferimento a questa casella di testo durante la codifica.
Esempio di utilizzo di TextBox in Userform
Condurremo uno dei progetti con testo VBA. Creeremo un modulo utente per l'inserimento dei dati per memorizzare i dettagli dei dipendenti.
Passaggio 1: nel modulo utente, disegna Etichetta.
Passaggio 2: modifica il testo predefinito dell'etichetta in "Nome dipendente".
Passaggio 3: davanti all'etichetta, disegna una casella di testo.
Passaggio 4: assegna un nome appropriato alla casella di testo come "EmpNameTextBox".
Passaggio 5: ora disegna un'altra etichetta sotto la prima etichetta e inserisci il testo come "ID dipendente".
Passaggio 6: davanti alla seconda etichetta, disegna un'altra casella di testo e chiamala "EmpIDTextBox".
Passaggio 7: disegna un'altra etichetta e inserisci il testo come "Stipendio".
Passaggio 8: disegna un'altra casella di testo davanti all'etichetta "Stipendio" e chiamala "SalaryTextBox".
Passaggio 9: ora inserire il "pulsante di comando" dalla casella degli strumenti.
Passaggio 10: modifica il testo del pulsante di comando in "Invia".
Ok, abbiamo finito con la parte di progettazione del modulo utente. Ora dobbiamo scrivere il codice per memorizzare i dati inseriti in questo modulo utente. A partire da ora, esegui il modulo utente premendo il tasto F5. Dovremmo vedere un modulo utente come questo.
Passaggio 11: modificare la didascalia del modulo utente nella finestra Proprietà.
Passaggio 12: ora fai doppio clic sul pulsante di comando Invia. Non appena fai doppio clic vedrai questa procedura secondaria automatica come quella di seguito.
Questo è quando fai clic sul pulsante Invia, cosa dovrebbe accadere. Dobbiamo menzionare le attività nel codice VBA. In questo progetto, il nostro obiettivo è memorizzare i dati inseriti nella casella di testo non appena clicchiamo sul pulsante Invia.
Per questo, innanzitutto, crea un modello come questo nel foglio di lavoro denominato "Foglio dipendenti".
Step 13: Now come back to the visual basic editor. Inside the button, click subroutine in VBA first to determine the last used row by using the below code.
Code:
Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 End Sub
Step 14: First thing is in the first column we will store Employee Name. So for this, we need to access the text box named “EmpNameTextBox.”
Code:
Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 Ramge("A" & LR).Value = EmpNameTextBox.Value End Sub
Step 15: In the second column, we need to store Employee ID. So this will be obtained by accessing the text box named “EmpIDTextBox.”
Code:
Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 Ramge("A" & LR).Value = EmpNameTextBox.Value Ramge("B" & LR).Value = EmpIDTextBox.Value End Sub
Step 16: At last, we need to store the salary part. For this, we need to access to text box named “SalaryTextBox.”
Code:
Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 Ramge("A" & LR).Value = EmpNameTextBox.Value Ramge("B" & LR).Value = EmpIDTextBox.Value Range("C" & LR).Value = SalaryTextBox.Value End Sub
Ok, we are done with the coding part as well. Now run the code using the F5 key. We should see a User Form like the below.
A partire da ora, tutte le scatole sono vuote.
Compila prima i dettagli.
Ora fai clic sul pulsante "Invia". Memorizzerà i dati sul foglio di lavoro.
In questo modo, puoi continuare a inserire i dati e premere e inviare il pulsante. Questo è il semplice modulo utente per l'inserimento dei dati con una casella di testo.
