Eric有一个共享的工作簿，其中包含约3500条记录的数据库。每个记录中的两个单元格包含一个电子邮件地址和一个URL。将新记录添加到数据库后，电子邮件地址和URL将显示为常规文本，而不是超链接。为了使它们成为超链接，Eric必须取消共享工作簿，进行更改，然后重新共享工作簿。埃里克（Eric）想知道是否有一种更简单的方法来处理这种情况。

很简单，使用共享工作簿时，不允许添加和编辑超链接。解决该问题的最简单方法是将链接放在单独的单元格中作为文本，然后使用HYPERLINK公式引用这些单元格。

例如，如果将URL输入到单元格E2中，则可以在其他单元格中使用以下公式：

=HYPERLINK(E2, E2)

此公式中的第一个参数是包含地址的单元格，第二个参数是要显示的超链接文本。此方法需要两个附加列（用于HYPERLINK公式），但不需要取消共享和重新共享工作簿。

唯一的其他选择是创建一个宏，该宏可以自动执行取消共享和重新共享工作簿的过程。下面的宏将执行此操作，并将所选单元格中的所有内容转换为超链接。

Sub AddHyperlink()

Dim cell As Range

Application.DisplayAlerts = False

' Unshare the Workbook     If ActiveWorkbook.MultiUserEditing Then         ActiveWorkbook.ExclusiveAccess     End If

' Change address in cell to a hyperlink.

If ActiveCell = "" Then         ActiveCell.Hyperlinks.Delete     Else         For Each cell In Intersect(Selection, _           Selection.SpecialCells(xlConstants, xlTextValues))

With Worksheets(1)

.Hyperlinks.Add Anchor:=cell, _                   Address:=cell.Value, _                   ScreenTip:=cell.Value, _                   TextToDisplay:=cell.Value             End With         Next cell     End If

' Reshare the Workbook     If Not ActiveWorkbook.MultiUserEditing Then         ActiveWorkbook.SaveAs _           Filename:=ActiveWorkbook.FullName, _           AccessMode:=xlShared     End If End Sub

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（3155）适用于Microsoft Excel 97、2000、2002和2003。可以在以下功能区中为Excel的功能区界面（Excel 2007及更高版本）找到本技巧的版本：

转换为共享工作簿中的超链接。