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.
Nedenstående makro placeres ved at højreklikke på arket og vælge view code Derefter vælges "This Workbook" i stedet for generel vælges "Workbook" der indsættes følgende kode:
Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Name = "Sheet1" Then ' hvis kun et specifikt ark ellers slettes linien ActiveSheet.PageSetup.RightHeader = [Sidehoved] 'Indsætter cellem SIDEHOVED i højre top End If End Sub
Øh, jeg har slet ikke mulighed for at vælge wiew code når jeg højreklikker. Er det p.g.a VBA. I tilføjelsesprogrammer har jeg kun mulighed for Analyses Toolpak VBA og Internet Asssiten VBA.
tast ctrl+R Find den fil du vil have indsat sidehoved i. (fold den ud ved at trykke på +) Vælg This Workbook (som ligger i tilknytning til filen) Kopier hele koden, f.eks. som jeg foreslog:
Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup.RightHeader = Range("A1") End Sub
Yes det virker, men nu mangler jeg bare at kunne at få det til at stå i ark med diagrammer, dem kan jeg ikke vælge når jeg udfolder??? Og er det muligt at formater teksten. Men smid lige et svar du har i hvertfald fortjent point.
Betyder ikke ikke noget at der er tale om et diagram ark! Det skal smides i This Workbook - så gælder det for alle faner i filen. Skal det kun gælde for diagramarket (eller bestemte ark/diagram-faner, skal du bruge den if-sætning som tobler kom med)
tobler var først på aftrækkeren, så point til ham..
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.