vba - 数据透视表超链接和要显示的文本

Question

我正在使用 excel 2013。在使用 Excel VBA 添加文本以显示在数据透视表中时需要帮助。 ？

所以在上面的数据透视表中 [HyperLink] 应该显示 [Invoice Num] 而不是完整的超链接地址，也许使用“文本显示”？？？

我正在使用 VBA 使用以下代码在数据透视表中创建超链接:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count = 1 Then
        On Error Resume Next
        ActiveWorkbook.FollowHyperlink _
            Address:=CStr(Target.Value), _
            NewWindow:=True
        On Error GoTo 0
    End If
End Sub

Answer 1

下面是一个覆盖超链接列格式的代码示例:

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    Dim cell As Range
    For Each cell In ActiveSheet.PivotTables(1).RowFields("Hyperlink").DataRange.Cells
        cell.NumberFormat = ";;;""" & cell.PivotCell.PivotRowLine.PivotLineCells.Item(cell.PivotField.Position - 1).Range.Value & """"
    Next cell

End Sub