0

...一个简单的问题（对于某些人来说：）

目标是更改一系列单元格中的部分超链接

  • 工作表“进度”
  • 范围'd9：d38'

现在超链接（rc001 在 D9；rc002 在 D10 等等）

..\..\..\..\..\..\..\AppData\Roaming\Microsoft\Excel\VNHS2_Reconciliation_report_RC001.xlsx

超链接是

VNHS2_Reconciliation_report_RC001.xlsx (rc001 increasing by 1 up to 030)

任何人？漂亮请:)

4

1 回答 1

1

这是一个带有基本字符串替换的简单循环。我定义了一个基本超链接地址：

Const sFile As String = "..\..\..\..\..\..\..\AppData\Roaming\Microsoft\Excel\VNHS2_Reconciliation_report_RC000.xlsx"

然后使用该Replace方法将每个单元格的000部分更改为001、002等。

Sub Foo()
Const sFile As String = "..\..\..\..\..\..\..\AppData\Roaming\Microsoft\Excel\VNHS2_Reconciliation_report_RC000.xlsx"
Dim rngLinks As Range: Set rngLinks = Range("D9:D38")
Dim cl As Range
Dim i As Integer

For Each cl In rngLinks
    i = i + 1
    cl.Hyperlinks.Add cl, Replace(sFile, "000", Format(i, "00#"))

Next



End Sub
于 2013-08-21T14:06:55.957 回答