在Excel单元格中创建超链接？

Question

是否可以在仅将单元格文本的一部分用于可点击链接的Excel单元格中创建超链接？ IE下表的模型将代表可以在Excel 2010中轻松构建的东西吗？

模拟http://dl.dropbox.com/u/14119404/misc/Microsoft%20Excel%20-%20Book1_2012-04-16_14-24-47.jpg

我知道可以很容易地将整个单元格做成超链接，但据我所知并不是整个单元格的特定部分。

通过超链接我也指

• （a）另一个单元格，或
• （b）网址。

谢谢

Answer 1

创建超链接后，您可以设置单元格中文本的格式，以便仅将感兴趣的单词加下划线/蓝色。 该超链接仍然有效，但是显然每个单元格仍然只有一个链接，单击文本中的任意位置将触发该超链接。

例如：

Sub Tester()

    Dim rng As Range

    Set rng = ActiveSheet.Range("A1")

    rng.Parent.Hyperlinks.Add Anchor:=rng, Address:="", SubAddress:= _
        "Sheet1!A10", TextToDisplay:="this is long text"

    With rng.Font
        .ColorIndex = xlAutomatic
        .Underline = xlUnderlineStyleNone
    End With

    With rng.Characters(Start:=9, Length:=4).Font
        .Underline = xlUnderlineStyleSingle
        .Color = -4165632
    End With

End Sub

Answer 2

我需要链接到显示在单元格中的文件名，因此这对我有用：

ActiveSheet.Hyperlinks.Add Anchor:=Cells(row, column), Address:=file.Path, TextToDisplay:=file.Path

Answer 3

这在Excel中是不可能的。 超链接与整个单元相关联。

如果查看Excel超链接对象的文档，则可以看到它与Range关联。 如果可以将超链接与单元格中的跨度关联，则超链接对象将需要具有关联的Range和Characters对象。

Answer 4

上面的一支班轮非常有帮助...由于我是新手，所以我无法发表评论。 因此，这是上述内容的变化形式，它吸收工作表上的每一行，并根据该行上的值构建URL。

CHGRow = 3
Worksheets("Page 1").Select
Cells(CHGRow, 1).Select

Do Until Application.CountA(ActiveCell.EntireRow) = 0

    URLVal = "https://our_url_here?some_parameter=" & Cells(CHGRow, cNumber)
    URLText = Cells(CHGRow, cNumber)
    ActiveSheet.Hyperlinks.Add Anchor:=Cells(CHGRow, cURL), Address:=URLVal, TextToDisplay:=URLText

    CHGRow = CHGRow + 1
    Cells(CHGRow, 1).Select

Loop

Answer 5

我只是将您的一行分成两行，将需要合并的列中的单元格合并为一行，当您到达需要超链接的单元格时，将单词放在顶部单元格上，下面单元格中的链接。 作为非技术性的解决方法，它看起来不错。