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
Denne side indeholder artikler med forskellige perspektiver på Identity & Access Management i private og offentlige organisationer. Artiklerne behandler aktuelle IAM-emner og leveres af producenter, rådgivere og implementeringspartnere.
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.
