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及更高版本)找到本技巧的版本: