24. september 2004 - 18:32Der er
13 kommentarer og 1 løsning
Systematisk redigering af Kommentarer..
Hej, Jeg sidder i øjeblikket med et meget stort regneark, hvor kommentar felterne er brugt til at gemme nogle variable i... mit problem er at een af disse variable gerne skal rettes i alle celler med kommentar tilknyttet... strukturen er ens i alle kommentarfelter.
Sub test() Dim cmt As Comment, ws As Worksheet For Each ws In ActiveWorkbook.Worksheets For Each cmt In ws.Comments txt = Replace(cmt.Text, "var=170", "var1=17") cmt.Shape.TextFrame.Characters.Text = txt Next Next End Sub
Lidt forbedret. Nu spørges der om hvad du vil have udskiftet og med hvad.
Sub CommentReplace() Dim cmt As Comment, ws As Worksheet Dim stOld As String, stNew As String stOld = InputBox("Hvad skal udskiftes i kommentarerne ?", "Kommentarudskiftning") stNew = InputBox("Hvad skal indsættes i stedet for i kommentarerne ?", "Kommentarudskiftning") For Each ws In ActiveWorkbook.Worksheets For Each cmt In ws.Comments txt = Replace(cmt.Text, stOld, stNew) cmt.Shape.TextFrame.Characters.Text = txt Next Next End Sub
Sub CommentReplace() Dim cmt As Comment, ws As Worksheet Dim stOld As String, stNew As String, temp As String stOld = InputBox("Hvad skal udskiftes i kommentarerne ?", "Kommentarudskiftning") stNew = InputBox("Hvad skal indsættes i stedet for i kommentarerne ?", "Kommentarudskiftning") For Each ws In ActiveWorkbook.Worksheets For Each cmt In ws.Comments temp = Application.WorksheetFunction.Substitute(cmt.Text, stOld, stNew) cmt.Shape.TextFrame.Characters.Text = temp Next Next End Sub
Hvad er nu det for noget? Ja, selvfølgelig har du et alternativ, så det er rimeligt enkelt alligevel. Hvordan skal jeg så ovebevise chefen om værdien af en opdatering?
Tjah, ærgerlig, ærgerlig... :-) jeg ville nok fortælle om den glimrende automatiske fejlretning, der findes i XP og xl2003. Det med den kan man genoprette mange af de fejl, der får xl97 og xl2000 til at gå ned eller ikke kunne åbne nogle filer. Vi har reddet en del xl-2000 filer på den måde efterhånden. der er også meget bedre muligheder for at fejlfinde i formler med nogle nye værktøjer
Hej Bak, Jeg har brugt din løsning, særdeles elegant!!! Vil du ligge et svar så du kan få dine velfortjente points. Det er lidt hektisk her, troede jeg havde svaret tidligere... Tak for en rigtig god 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.
