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

我正在使用Excel 2013.需要帮助添加文本使用Excel VBA显示内部数据透视表。 ？

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

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

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