excel 2010编辑多个超链接VBA，宏

Question

。。。一个简单的问题（对一些人来说：）

目标是更改单元格范围内超链接的一部分

• 工作表"进度"
• 范围"d9:d38"

现在的超链接（rc001在D9中；rc002在D10中，依此类推）

..............AppDataRoamingMicrosoftExcelVNHS2_Reconciliation_report_RC001.xlsx

要进行的超链接

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

有人吗？漂亮的请：）

Answer 1

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

Const sFile As String = "..............AppDataRoamingMicrosoftExcelVNHS2_Reconciliation_report_RC000.xlsx"

然后使用Replace方法将每个小区的000部分更改为001、002等。

Sub Foo()
Const sFile As String = "..............AppDataRoamingMicrosoftExcelVNHS2_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