15. juni 2007 - 10:28Der er
9 kommentarer og 1 løsning
træd de sidste 1- 2 ciffer ud af arknavn
Hej
Jeg har bla. 20 ark der alle starter med panel efterfulgt af nr 1-20. Jeg vil gerne nummeret separeret fra. har prøvet med følgende kode, men det ser ud til at den kun læser det sidste ark, Koden skulle også gerne kunne se om det er et eller to ciffer ? Håber I kan hjælpe?
For Each Skema In Worksheets If Left(Skema.Name, 5) = "Panel" Then Skema.Activate ActiveSheet.Range("B3").Select Selection = "PanelName" & Right(Skema.Name, 1) ActiveSheet.Range("B4").Select Selection = "AreaName" ActiveSheet.Range("F8").Activate ActiveSheet.Range("B3").Activate End If Next Skema
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.
Koden kan diog under alle omstændigheder gøres "lettere":
For Each skema In Worksheets If Left(skema.Name, 5) = "Panel" Then skema.Activate ActiveSheet.Range("B3").Value = "PanelName" & Right(skema.Name, 1) ActiveSheet.Range("B4").Value = "AreaName" End If ActiveSheet.Range("B3").Activate Next skema
For Each skema In Worksheets If Left(skema.Name, 5) = "Panel" Then skema.Range("B3").Value = "PanelName" & Right(skema.Name, 1) skema.Range("B4").Value = "AreaName" End If ActiveSheet.Range("B3").Activate Next skema
For Each skema In Worksheets If Left(skema.Name, 5) = "Panel" Then skema.Range("B3").Value = "PanelName" & Mid(skema.Name, 6, Len(skema.Name)) skema.Range("B4").Value = "AreaName" End If skema.Range("B3").Activate Next skema
I øvrigt, hvis arkene altid starter med "panel" kan du udelukke hele F-konstruktionen og nøjes med
For Each skema In Worksheets skema.Range("B3").Value = "PanelName" & Right(skema.Name, 1) skema.Range("B4").Value = "AreaName" activesheet.Range("B3").Activate Next skema
Det virker næsten, den melder dog debug fejl ved kommandoen: Skema.Range("F8").Activate
Hele koden ser således ud:
For Each Skema In Worksheets If Left(Skema.Name, 5) = "Panel" Then Skema.Range("B3").Value = "PanelName" & Mid(Skema.Name, 6, Len(Skema.Name)) Skema.Range("B3").Value = "AreaName" & Mid(Skema.Name, 6, Len(Skema.Name)) Skema.Range("F8").Activate Skema.Range("B3").Activate End If Next Skema
Grunden til at jeg aktiver F8 og B3 lige efter hinanden er fordi der er en rullevindue der skal rulles tilbage
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.
