Kaip perkelti duomenis iš „UserForm“ į Excel darbalapį

Excel naudojant Visual Basic galima pridėti įvairias funkcijas, įskaitant „UserForm“ – atskirą įvesties formą, kuri palengvina duomenų surinkimą nuo vartotojų, nepažįstamų su darbalapiais. Šiame straipsnyje parodyta, kaip su keliais kodo eilutėmis perkelti įvestus duomenis į naujas lentelės eilutes.

1. Paruoškite laukus darbalapyje

Atidarykite Excel ir pirmoje eilutėje (nuo A1 į dešinę) įrašykite visų laukų pavadinimus, kuriuos norite surinkti. Tada eikite į skirtuką Developer → Visual Basic. Atsivers Visual Basic redaktorius.

2. Sukurkite „UserForm“ ir pridėkite etiketes

Įrankių juostoje spustelėkite A ikoną, tada nutempkite ją į UserForm1 langą ten, kur norite pirmai etiketei. Pažymėkite savybę Caption ir įrašykite, pvz., „Vardas“. Pakartokite šį žingsnį visiems darbalapio laukams.

3. Pridėkite tekstinius laukus

Pasirinkite TextBox ikoną ir nutempkite šalia kiekvienos etiketės. Jei formoje tik keli laukai, galite palikti numatytąjį pavadinimą (TextBox1, TextBox2). Daugiau laukų turint, rekomenduojama pavadinti juos atitinkamai, kad būtų aišku, kuris laukelis priklauso kuriai etiketėi.

4. Įterpkite mygtuką „Siųsti“

Pasirinkite CommandButton ikoną, nutempkite ją po paskutiniu tekstiniu laukeliu ir pakeiskite savybę Caption į „Siųsti duomenis“ (arba panašiai). Vartotojas spustelėję šį mygtuką perduos įvestą informaciją.

5. Įrašykite VBA kodą

Du kartus spustelėkite mygtuką, kad atsidarytų kodo langas, ir įterpkite šį kodą:

Private Sub CommandButton1_Click()
    Dim eRow As Long
    eRow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    Sheet1.Cells(eRow, 1) = TextBox1.Text
    Sheet1.Cells(eRow, 2) = TextBox2.Text
    ' Pridėkite likusius laukus, atitinkamai keisdami numerius ir pavadinimus
End Sub

Jei laukai turi kitus pavadinimus, pakeiskite TextBox1, TextBox2 ir t.t. Įsitikinkite, kad kiekvienas laukelis atitinka teisingą stulpelį. Paspauskite Run (žalias trikampis) norėdami pradėti duomenų įrašymą.

Taip sukurtas paprastas „UserForm“, leidžiantis vartotojams lengvai įvesti informaciją, o VBA kodas automatiškai įrašo ją į Excel darbalapį.