Excel Macro pour rechercher du texte dans la cellule et insérer un lien hypertexte sur la cellule

Question

Nous gérons certains bogues système dans un système Web et définissons la priorité pour les execs dans une feuille de calcul. Chacun des billets a un "FD-" et quatre numéros comme ID. Le système web a un lien hypertexte qui a ce "FD - ####" à la fin du lien. Le résultat final ressemblerait à ceci - http://www.mytickets.com/FD-####

Je voudrais lancer une macro qui trouve toute la FD - #### et insère un lien hypertexte sur chacun.

Il peut y avoir plusieurs FD - #### dans une seule cellule et il y aura certainement un autre texte dedans.

Je passerais par chacun et ajouter le lien, mais il y a plus de 150 ou plus.

Merci!

Answer 1

Comme mentionné dans un commentaire, Excel ne semble pas prendre en charge plusieurs liens hypertexte dans une cellule.

Le code ci-dessous fera le remplacement du billet pour lien:

Option Explicit 

Sub loop_over_cells() 
    Dim a_cell 
    Dim replaced As String 

    For Each a_cell In ActiveSheet.UsedRange 
     Debug.Print "old value " & a_cell.Value 
     replaced = RegexReplace(a_cell.Value, "(fd-\d{4}\b)", "=hyperlink(" & Chr(34) & "http://cnn.com/$1" & Chr(34) & ")") 
     a_cell.Value = replaced 
     Debug.Print "new value " & a_cell.Value 
    Next 
End Sub 

Function RegexReplace(search_string, ptrn, rplc) 
    Dim regEx 

    Set regEx = CreateObject("VBScript.RegExp") 
    regEx.Pattern = ptrn 
    regEx.IgnoreCase = True 
    regEx.Global = True 

    RegexReplace = regEx.replace(search_string, rplc) 
End Function