EXCEL 單元格與電腦上的 同名資料夾批次做超連結
匿名使用者 發表于 娛樂2021-11-22
假設資料夾都在電腦的D盤。
在Excel中,資料夾列表是這樣的形式:
左列是父資料夾,右列是子資料夾
在單元格C1,輸入公式
=HYPERLINK(“D:/”&A1&“/”&B1&“/”)
然後公式往下拉即可。
用VBA,我測試過了,可以
Sub AddHyperlink()
Dim ParentPath As String
For i = 1 To Range(“A1”)。End(xlDown)。Row
If Cells(i, 1)。Font。Color = vbRed Then
ActiveSheet。Hyperlinks。Add anchor:=Cells(i, 1), Address:=“D:\” & Cells(i, 1)。Text
ParentPath = Cells(i, 1)。Text
Cells(i, 1)。Font。Color = vbRed
ElseIf Cells(i,1)。Font。Color = vbBlack Then
ActiveSheet。Hyperlinks。Add anchor:=Cells(i, 1), Address:=“D:\” & ParentPath & “\” & Cells(i, 1)。Text
Cells(i, 1)。Font。Color = vbBlack
End If
Next
End Sub