Visual Basic work for Excel Work: Please write a visual basic code for excel data conversion Material: Two excel files, name: “sample.xlsx” and “Results_sample.xlsx” Description: The data is shown in...

1 answer below »
Please write a visual basic code to do the data compilation. The visual basic code shall be implemented in excel for the work, please check the pdf file for detail.


Visual Basic work for Excel Work: Please write a visual basic code for excel data conversion Material: Two excel files, name: “sample.xlsx” and “Results_sample.xlsx” Description: The data is shown in the excel file sample.xlsx, please write and visual basic code implemented in excel for making the file “sample.xlsx” to and compiled excel file “Results_sample.xlsx” as given. Figure.1 Data in sample.xlsx Figure.2 Compiled data with visual basic code, and build a new excel file to store the compiled data workspace1 Registered TimeRegistered DateNameNumberAddressItemInfo A-1Info A-2Info A-3Info A-4Info A-1Info A-2Info A-3Info A-4Info A-1Info A-2Info A-3Info B-1Info B-2Info B-3Info B-4Info B-1Info B-2Info B-3Info B-4Info B-1Info B-2Info B-3Info C-1Info C-2Info C-3Info C-1Info C-2Info C-3Info C-1Info C-2Info C-3Info C-1Info C-2Info C-3Info C-1Info C-2Info D-1Info D-2Info D-3Info D-1Info D-2Info D-3Info D-1Info D-2Info D-3Info D-1Info D-2Info E-1Info E-2Info E-3Info E-1Info E-2Info E-3Info E-1Info E-2Info E-3Info E-1Info E-2Info E-3Info E-1Info E-2Info E-3Info E-1Info E-2Info E-3Info E-1Info E-2Info E-3Info E-1Info E-2Info E-3Info E-1Info E-2MethodMethod InfoMethod dataMethod data 2 7/18/2021 23:26:187/18/21Dilon24689gmail.comYesDilonSteelgmail.comYesOliverBenyahoo.comNoDevongmail.comBookerYesChrisyahoo.comPaulNoWestbrookthunder.comYesDurantnets.comNoDeAndregmail.comYesAytonyahoo.comNoJaegmail.comYesCrowderyahoo.comYesMauricehotmail.comYesMalikapple.comNoTransferasda12345good 7/21/2021 18:37:357/21/21Jamal13578microsoft.comYesJamalCrowdermicrosoft.comNoDamianblazer.comLillardNoWallrockets.comYesBealwizards.comYesKuzuharanihon.jpYesKuzmalakers.comNoJaegmail.comYesCrowderyahoo.comYesMauricehotmail.comYesMalikapple.comYesJaegmail.comYesCrowderyahoo.comYesMauricehotmail.comYesMalikapple.comNoContactlkjh65478No 7/23/2021 16:58:127/23/21Kevin98546book.comYesPetersonPablobook.comYesHAHOJOppp.comNoLALALopk.swOPOYesHIQkqp.comLOLNoIPOgmail.comYesLKJyahoo.comYesYUIplp.comNoTransferlqol12852good 工作表1 NameNumberAddressAAAABBBBCCCDDDEEEMethodMethod InfoMethod DataMethod Data2 Dilon24689gmail.comDilonSteelgmail.comYes Dilon24690gmail.comOliverBenyahoo.comNo Dilon24691gmail.comDevongmail.comBookerYes Dilon24692gmail.comChrisyahoo.comPaulNo Dilon24693gmail.comWestbrookthunder.comYes Dilon24694gmail.comDurantnets.comNo Dilon24695gmail.comDeAndregmail.comYes Dilon24696gmail.comAytonyahoo.comNo Dilon24697gmail.comJaegmail.comYes Dilon24698gmail.comCrowderyahoo.comYes Dilon24699gmail.comMauricehotmail.comYes Dilon24700gmail.comMalikapple.comNo Dilon24701gmail.comTransferasda12345good Jamal13578microsoft.comJamalCrowdermicrosoft.comNo Jamal13579microsoft.comDamianblazer.comLillardNo Jamal13580microsoft.comWallrockets.comYes Jamal13581microsoft.comBealwizards.comYes Jamal13582microsoft.comKuzuharanihon.jpYes Jamal13583microsoft.comKuzmalakers.comNo Jamal13584microsoft.comJaegmail.comYes Jamal13585microsoft.comCrowderyahoo.comYes Jamal13586microsoft.comMauricehotmail.comYes Jamal13587microsoft.comMalikapple.comYes Jamal13588microsoft.comJaegmail.comYes Jamal13589microsoft.comCrowderyahoo.comYes Jamal13590microsoft.comMauricehotmail.comYes Jamal13591microsoft.comMalikapple.comNo Jamal13592microsoft.comContactlkjh65478No Kevin98546book.comPetersonPablobook.comYes Kevin98547book.comHAHOJOppp.comNo Kevin98548book.comLALALopk.swOPOYes Kevin98549book.comHIQkqp.comLOLNo Kevin98550book.comIPOgmail.comYes Kevin98551book.comLKJyahoo.comYes Kevin98552book.comYUIplp.comNo Kevin98553book.comTransferlqol12852good
Answered 21 days AfterJul 21, 2021

Answer To: Visual Basic work for Excel Work: Please write a visual basic code for excel data conversion...

Breeze Prakash answered on Jul 21 2021
137 Votes
Add Serial Numbers
Sub AddSerialNumbers()
Dim i As Integer
On Error GoTo Last
i = InputBox("Ente
r Value", "Enter Serial Numbers")
For i = 1 To i
ActiveCell.Value = i
ActiveCell.Offset(1, 0).Activate
Next i
Last:Exit Sub
End Sub
Insert Multiple Columns
Sub InsertMultipleColumns()
Dim i...
SOLUTION.PDF

Answer To This Question Is Available To Download

Related Questions & Answers

More Questions »

Submit New Assignment

Copy and Paste Your Assignment Here