转换为共享工作簿中的超链接(Microsoft Excel)
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及更高版本)找到本技巧的版本: