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
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.
