使用键盘快捷键修改Excel数据透视表

我知道可以使用VBA修改透视表的行、列和值。但是，是否可以仅使用键盘笔划修改excel数据透视表的视图（假设无法使用鼠标）？

此示例隐藏一列。
在工作簿中添加：

Private Sub Workbook_Open()
    Application.OnKey "{F12}", "Macro1"
End Sub

在模块中添加：

Sub Macro1()
    If Not Application.Intersect(Selection, Range("E10:F15")) Is Nothing Then
        If ActiveSheet.PivotTables("PivotTable3").PivotFields("a").Orientation = xlHidden Then
            With ActiveSheet.PivotTables("PivotTable3").PivotFields("a")
                .Orientation = xlRowField
                .Position = 1
            End With
        Else
            ActiveSheet.PivotTables("PivotTable3").PivotFields("a").Orientation = xlHidden
        End If
    End If
End Sub

在示例中，当您按F12键时，仅当您在轴（选择）内时，代码隐藏/显示列字段“a”。如果需要，请始终删除第一个If