05. marts 2004 - 09:14Der er
11 kommentarer og 1 løsning
Udskift dele af tekse
Hej e.
Jeg har nedenstående kode: Dim Resultat As String Dim Find As String Dim Replace As String
Find = "2004" Replace = "2005"
For Each h In ActiveSheet.Hyperlinks Resultat = h.Address If InStr(Resultat, "2004") Then 'Udskift 2004 med 2005 End If
Next h
Men hvordan kan man få udskiftet 2004 med 2005 i variablen Resultat.
Her er et eks. Variablen Resultat indeholder: Dette er en test 2004, og det er bare fint Når koden er kørt igennem skal den indeholde: Dette er en test 2005, og det er bare fint
Ved næste gennem kørsel indeholder Resultat noget helt andet, men 2004 skal stadig udskiftes med 2005.
eller hvis du vil have Find og Replace variablerne med, så kan du gøre det således:
Sub Demo() Dim oHyp As Hyperlink Dim sResultat As String Dim sFind As String Dim sReplace As String
sFind = "2004" sReplace = "2005"
For Each oHyp In ActiveSheet.Hyperlinks sResultat = oHyp.Address sResultat = Replace(sResultat, sFind, sReplace) Next oHyp End Sub
Pas lidt på med navngivning af variable med kendte system navne. Der findes funktioner der hedder Find og Replace... Smid et lille s foran variable af typen String - letter læsning og forståelse, og sikre at der ingen konflikter opstår.
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.
