Konvertera till hyperlänkar i en delad arbetsbok

June 29

Eric har en delad arbetsbok som innehåller en databas med cirka 3.500 poster. Två av cellerna i varje post innehåller en e-postadress och en URL. När en ny post läggs till i databasen, e-postadress och webbadress visas som vanlig text istället för som hyperlänkar. För att göra dem till hyperlänkar Eric måste bort delningen arbetsboken, göra ändringen, och sedan reshare arbetsboken. Eric undrade om det är kanske ett lättare sätt att hantera den här situationen.

Helt enkelt, lägga till och redigera hyperlänkar tillåts inte när du använder en delad arbetsbok. Det enklaste sättet runt det är att sätta länkarna i separata celler som text och sedan använda HYPERLINK formel för att referera dessa celler.

Till exempel, om url ingått cell E2, kan du använda följande formel i en annan cell:

= HYPER (E2, E2)

Det första argumentet i denna formel är att cellen som innehåller adressen och det andra argumentet är att den text som ska visas för hyperlänken. Detta tillvägagångssätt kräver ytterligare två kolumner (för hyperlänken formler) men kommer inte att kräva unsharing och vidaredelning arbetsboken.

Den enda andra alternativet är att skapa ett makro som kan automatisera processen med unsharing och vidaredelning arbetsboken. Följande makrot kommer att göra detta och konvertera allt som är i den markerade cellen till en hyperlänk.

Sub AddHyperlink ()
Dim cell Som Range

Application.DisplayAlerts = False

'Sluta dela arbetsboken
Om ActiveWorkbook.MultiUserEditing Sedan
ActiveWorkbook.ExclusiveAccess
End If

"Ändra adress i cell till en hyperlänk.
Om Active = "" Då
ActiveCell.Hyperlinks.Delete
Else
För varje cell i Intersect (Urval, _
Selection.SpecialCells (xlConstants, xlTextValues))
Med Blad (1)
.Hyperlinks.Add Anchor: = cell, _
Adress: = cell.Value, _
Skärmtips: = cell.Value, _
TextToDisplay: = cell.Value
End Med
Nästa cell
End If

'Reshare Arbetsboken
Om Inte ActiveWorkbook.MultiUserEditing Därefter
ActiveWorkbook.SaveAs _
Filnamn: = ActiveWorkbook.FullName, _
AccessMode: = xlShared
End If
End Sub

ExcelTips är din källa för kostnadseffektiv Microsoft Excel utbildning. Detta tips (3155) gäller för Microsoft Excel 97, 2000, 2002, och 2003. Du kan hitta en version av detta tips för menyfliksområdet i Excel (Excel 2007 och senare) här: Konvertera till hyperlänkar i en delad arbetsbok.