Šajā rakstā mēs uzzināsim, kā atjaunināt datus no vienas lapas uz citu lapu, izmantojot Microsoft Excel VBA.
Ņemsim piemēru, lai saprastu, kā un kur mēs varam izmantot šo makro savos datos, lai samazinātu ikdienas darbu.
Mēs vēlamies uzrakstīt šo kodu tiem darbiniekiem, kuri strādā zvanu centrā. Kad klienti viņiem piezvana, viņi lūdz pamatinformāciju, piemēram, User_Name, User_ID, Phone_Number un Problem_ID, viņiem ir nepieciešams šāds kods, lai tie darbotos sistemātiski.
Tagad mēs vēlamies izmantot makro šādam kontekstam, kad notiek zvans, un viņi atzīmē visas iepriekš minētās detaļas Excel lapā, un, noklikšķinot uz atjaunināšanas, šie dati ir jāatjaunina citā lapā.
Lai atjauninātu datus no vienas lapas uz otru, veiciet tālāk norādītās darbības:-
- Pirmkārt, mēs darblapā ievietojam komandu pogu.
- Dodieties uz cilni Izstrādātājs un pēc tam ievietojiet komandu pogu no Activexcontrol.
- Piešķirt tālāk minēto makro:-
Privāta apakškomandaButton1_Click ()
Lietotāja_nosaukums kā virkne, lietotāja ID kā vesels skaitlis, tālruņa_numurs kā dubults, problēmas_ID kā vesels skaitlis
Darblapas ("Sheet1"). Atlasiet
User_Name = Diapazons ("B2")
User_ID = Diapazons ("B3")
Tālruņa_numurs = Diapazons ("B4")
Problem_ID = Diapazons ("B5")
Darblapas ("Sheet2"). Izvēlieties
Darblapas ("Sheet2"). Diapazons ("A1"). Atlasiet
Ja darblapas ("Sheet2"). Diapazons ("A1"). Nobīde (1, 0) "" Tad
Darblapas ("Sheet2"). Diapazons ("A1"). Beigas (xlDown). Atlasiet
Beigas Ja
ActiveCell. Offset (1, 0). Atlasiet
ActiveCell.Value = Lietotāja_nosaukums
ActiveCell. Offset (0, 1). Atlasiet
ActiveCell.Value = Lietotāja ID
ActiveCell. Offset (0, 1). Atlasiet
ActiveCell.Value = Tālruņa_numurs
ActiveCell. Offset (0, 1). Atlasiet
ActiveCell.Value = Problem_ID
Darblapas ("Sheet1"). Atlasiet
Darblapas ("Sheet1"). Diapazons ("B2"). Atlasiet
Beigt apakš
Koda skaidrojums:-Pirmkārt, mēs bijām definējuši visus mainīgos. Tad mēs bijām definējuši diapazonu katram mainīgajam un pēc tam aprakstījuši visu mainīgo diapazonu. Mēs arī definējām, kur un kurā diapazonā dati tiks atjaunināti pēc noklikšķināšanas uz pogas Atjaunināt.
- Lai palaistu kodu, nospiediet tastatūras taustiņu F5.
- Kad ievadīsit datus un noklikšķināsit uz atjaunināšanas pogas, dati tiks atjaunināti citā lapā, un mēs varēsim lapā ievadīt jaunus datus.
Tādā veidā mēs varam atjaunināt datus no vienas lapas uz citu lapu, izmantojot Microsoft Excel VBA.
Lejupielādēt - Kā atjaunināt datus no vienas lapas uz citu lapu - xlsm