Šiame straipsnyje mes sužinosime, kaip atnaujinti duomenis iš vieno lapo į kitą, naudojant „Microsoft Excel“ VBA.
Paimkime pavyzdį, kad suprastume, kaip ir kur galime naudoti šią makrokomandą savo duomenyse, kad sumažintume kasdienį darbą.
Šį kodą norime parašyti tiems darbuotojams, kurie dirba skambučių centre. Kai klientai jiems skambina, jie prašo pagrindinės informacijos, pvz., „User_Name“, „User_ID“, „Phone_Number“ ir „Problem_ID“, jiems reikalingas toks kodas, kad jie veiktų sistemingai.
Dabar norime pritaikyti makrokomandą tokiam kontekstui, kai ateina skambutis ir jie pažymi visas aukščiau paminėtas detales į „Excel“ lapą, o kai jie spustelėja atnaujinti, tie duomenys turėtų būti atnaujinami kitame lape.
Norėdami atnaujinti duomenis iš vieno lapo į kitą, atlikite toliau nurodytus veiksmus:-
- Pirmiausia į darbalapį įdėsime komandų mygtuką.
- Eikite į skirtuką „Kūrėjas“ ir įterpkite „Activexcontrol“ mygtuką „Command“.
- Priskirti toliau nurodytą makrokomandą:-
Privati antrinė komandaButton1_Click ()
Dim Dim User_Name as String, User_ID as Integer, Phone_Number as double, Problem_ID as Integer
Darbo lapai („Sheet1“). Pasirinkite
User_Name = Diapazonas („B2“)
User_ID = Diapazonas ("B3")
Telefono numeris = diapazonas ("B4")
Problem_ID = Diapazonas („B5“)
Darbo lapai („Sheet2“). Pasirinkite
Darbo lapai („Sheet2“). Diapazonas („A1“). Pasirinkite
Jei darbalapiai ("Sheet2"). Diapazonas ("A1"). Poslinkis (1, 0) "" Tada
Darbo lapai („Sheet2“). Diapazonas („A1“). Pabaiga (xlDown). Pasirinkite
Pabaiga Jei
„ActiveCell. Offset“ (1, 0). Pasirinkite
ActiveCell.Value = Vartotojo_vardas
„ActiveCell. Offset“ (0, 1). Pasirinkite
ActiveCell.Value = Vartotojo ID
„ActiveCell. Offset“ (0, 1). Pasirinkite
ActiveCell.Value = Telefono numeris
„ActiveCell. Offset“ (0, 1). Pasirinkite
ActiveCell.Value = Problem_ID
Darbo lapai („Sheet1“). Pasirinkite
Darbo lapai („Sheet1“). Diapazonas („B2“). Pasirinkite
Pabaiga Sub
Kodo paaiškinimas:-Pirma, mes apibrėžėme visus kintamuosius. Tada mes nustatėme kiekvieno kintamojo diapazoną ir tada aprašėme visų kintamųjų diapazoną. Mes taip pat nustatėme, kad kur ir kokio diapazono duomenys bus atnaujinti spustelėjus mygtuką Atnaujinti.
- Norėdami paleisti kodą, paspauskite klaviatūros klavišą F5.
- Kai įvesite duomenis ir spustelėsite atnaujinimo mygtuką, duomenys bus atnaujinti kitame lape ir mes galėsime įvesti naujus duomenis į lapą.
Taip galime atnaujinti duomenis iš vieno lapo į kitą, naudodami „Microsoft Excel“ VBA.
Atsisiųsti - Kaip atnaujinti duomenis iš vieno lapo į kitą lapą - xlsm