Kartais norime naudoti vieną „Excel“ lapą kaip formą, kuri naudojama norint gauti įvestį iš vartotojo. vartotojo įvestus duomenis, mes stengiamės juos išsaugoti kai kuriuose kituose lapuose, kurie galutiniam vartotojui gali būti neprieinami, žinoma, siekiant apsaugoti duomenis. Šiame straipsnyje mes sužinosime, kaip galime atnaujinti duomenis iš vieno lapo į kitą naudojant VBA.
Taigi, nesileisdamas į mano nuobodžius pokalbius, leiskite įsigilinti į pavyzdį, kad suprastumėte sąvoką.
Pavyzdys: atnaujinkite duomenis „Sheet2“ bazėje pagal „Sheet1“ įvestas vertes
Šį kodą norime parašyti tiems darbuotojams, kurie dirba skambučių centre. Kai klientai jiems skambina, jie gauna pagrindinę informaciją, pvz., „User_Name“, „User_ID“, „Phone_Number“ ir „Problem_ID“.
Dabar norime parašyti makrokomandą, kai atvyks skambutis, jie pažymės visas aukščiau paminėtas detales į „Excel“ lapą, o kai spustelės atnaujinti, duomenys turėtų būti atnaujinami kitame lape.
Norėdami atnaujinti duomenis iš vieno lapo į kitą, atlikite toliau nurodytus veiksmus:-
• Pirmiausia į darbalapį įterpsime komandų mygtuką.
• Eikite į skirtuką Kūrėjas ir įterpkite komandų mygtuką iš „Activexcontrol“.
• Priskirti žemiau nurodytą makrokomandą:-
Privatus antrinis CommandButton1_Click () Dim User_Name as String, User_ID as Integer, Phone_Number as Double, Problem_ID as Integer Worksheets ("Sheet1"). Pasirinkite User_Name = Range ("B2") User_ID = Range ("B3") Phone_Number = Range (" B4 ") Problem_ID = Diapazonas (" B5 ") darbalapiai (" Sheet2 "). Pasirinkite darbalapius (" Sheet2 "). Diapazonas (" A1 "). Pasirinkite If Worksheets (" Sheet2 "). Diapazonas (" A1 "). Poslinkis (1, 0) "" Tada darbalapiai ("Sheet2"). Diapazonas ("A1"). Pabaiga (xlDown). Pasirinkite End, jei ActiveCell.Offset (1, 0). Pasirinkite ActiveCell.Value = User_Name ActiveCell.Offset (0 , 1). Pasirinkite ActiveCell.Value = User_ID ActiveCell.Offset (0, 1). Pasirinkite ActiveCell.Value = Phone_Number ActiveCell.Offset (0, 1). Pasirinkite ActiveCell.Value = Problem_ID darbalapiai ("Sheet1"). Pasirinkite darbalapius ( "Sheet1"). Diapazonas ("B2"). Pasirinkite End Sub
Kodo paaiškinimas:- Pirmiausia mes apibrėžėme visus kintamuosius. Tada mes nustatėme kiekvieno kintamojo diapazoną ir tada aprašėme visų kintamųjų diapazoną. Mes nustatėme, kad spustelėjus mygtuką „Atnaujinti“, kur ir kokio diapazono duomenys bus 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ą.
Tokiu būdu galime atnaujinti duomenis iš vieno lapo į kitą, naudodami „Microsoft Excel“ VBA. Tikiuosi, kad buvau pakankamai aiškinantis. Jei turite kokių nors abejonių dėl šio straipsnio ar bet kurio kito „Excel“ VBA straipsnio, galite manęs paklausti žemiau esančiame komentarų skyriuje.
Pakeiskite kelių „UserForm“ valdiklių vertę/turinį naudodami „Excel“ VBA | Norėdami pakeisti vartotojo formos valdiklių turinį, naudokite šį paprastą VBA fragmentą.
Naudodami „VBA“ programoje „Excel“ neleiskite vartotojo formai užsidaryti, kai naudotojas spustelės x mygtuką | Norėdami neleisti vartotojo formai užsidaryti, kai naudotojas spustelės formos x mygtuką, naudojame įvykį UserForm_QueryClose.
Populiarūs straipsniai:
50 „Excel“ nuorodų, skirtų produktyvumui padidinti | Greičiau atlikite savo užduotį. Šie 50 sparčiųjų klavišų leis dar greičiau dirbti naudojant „Excel“.
„VLOOKUP“ funkcija „Excel“ | Tai yra viena iš dažniausiai naudojamų ir populiariausių „Excel“ funkcijų, naudojama norint ieškoti vertės iš įvairių diapazonų ir lapų.
COUNTIF „Excel 2016“ | Naudodami šią nuostabią funkciją, suskaičiuokite reikšmes su sąlygomis. Norint suskaičiuoti konkrečią vertę, nereikia filtruoti duomenų. Skaitiklio funkcija yra būtina norint paruošti prietaisų skydelį.
Kaip naudoti „SUMIF“ funkciją „Excel“ | Tai dar viena esminė prietaisų skydelio funkcija. Tai padeda apibendrinti vertes konkrečiomis sąlygomis.