15. marts 2012 - 14:47Der er
9 kommentarer og 1 løsning
VBA - After.sheet
Hvor skal man indsætte koden: after hvis man vil have sine ark til at blive placret bag sin andre ark når man operetter dem med denne kode:
Function CreateWorkSheet(sName As String) As Worksheet ' Funktion der opretter et regneark. ' Burde tage højde for om regnearket findes i forvejen. Dim objWorkSheet As Worksheet
' man kan bestemme hvor arket skal være via Before/After men hvordan ?? Set objWorkSheet = Application.ThisWorkbook.Worksheets.Add
objWorkSheet.Name = sName
' Returner arket Set CreateWorkSheet = objWorkSheet
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Med hensyn til ovenstående så er der ikke tale om to linjer, men én kodelinje, Hvis du vil skrive det i to linjer for overskuelighedens skyld - så skal der stå følgende:
Set objWorkSheet = Application.ThisWorkbook.Worksheets.Add _ Application.ThisWorkbook.Worksheets.Add After:=Sheets(Sheets.Count)
jeg havde overset en lille ting i din kode - det beklager jeg.
Da du sætter objWorkSheet lig med det nye ark, så skal koden se således ud:
Set objWorkSheet = Application.ThisWorkbook.Worksheets.Add(After:=Sheets(Sheets.Count))
Altså der skal parantes efter Add og omkring After:= udtrykket
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
