Opdater ark via VBA

I denne artikel vil vi lære at opdatere dataene fra et ark til et andet ark via VBA i Microsoft Excel.

Lad os tage et eksempel for at forstå, hvordan og hvor vi kan bruge denne makro i vores data til at reducere vores daglige arbejde.

Vi vil skrive denne kode til de medarbejdere, der arbejder i et callcenter. Når klienter ringer til dem, beder de om grundlæggende detaljer som User_Name, User_ID, Phone_Number og Problem_ID, de har brug for en sådan kode for at fungere systematisk.

Nu vil vi anvende makroen til en sådan kontekst, når der kommer et opkald, og de noterer alle de ovennævnte detaljer i et excelark, og når de klikker på opdatering, skal disse data opdateres i et andet ark.

Følg nedenstående givne trin for at opdatere dataene fra et ark til et andet ark:-

Først vil vi indsætte kommandoknappen i regnearket.
Gå til fanen Udvikler, og indsæt derefter kommandoknappen fra Activexcontrol.
Tildel nedenstående makro:-

Privat underkommandoButton1_Click ()

Dim User_Name As String, User_ID As Integer, Phone_Number As Double, Problem_ID As Integer

Regneark ("Ark1"). Vælg

Brugernavn = Område ("B2")

User_ID = Område ("B3")

Phone_Number = Område ("B4")

Problem_ID = Område ("B5")

Regneark ("Ark2"). Vælg

Regneark ("Ark2"). Område ("A1"). Vælg

Hvis regneark ("Ark2"). Område ("A1"). Forskydning (1, 0) "" Så

Regneark ("Ark2"). Område ("A1"). Afslut (xlDown) .Vælg

Afslut Hvis

ActiveCell.Offset (1, 0) .Vælg

ActiveCell.Value = Brugernavn

ActiveCell.Offset (0, 1) .Vælg

ActiveCell.Value = User_ID

ActiveCell.Offset (0, 1) .Vælg

ActiveCell.Value = Phone_Number

ActiveCell.Offset (0, 1) .Vælg

ActiveCell.Value = Problem_ID

Regneark ("Ark1"). Vælg

Regneark ("Ark1"). Område ("B2"). Vælg

Afslut Sub

Kode Forklaring: -Først havde vi defineret alle variablerne. Derefter havde vi defineret intervallet for hver variabel, og derefter beskrevet området for alle variablerne. Og vi havde også defineret, at hvor og i hvilket område data vil blive opdateret efter at have klikket på knappen Opdater.

For at køre koden skal du trykke på tasten F5 på tastaturet.
Når du indtaster dataene og klikker på opdateringsknappen, opdateres data i et andet ark, og vi kan indtaste nye data i arket.