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

我知道可以使用VBA修改数据透视表的行，列和值。 但是，是否有可能修改单独键盘笔画的Excel数据透视表视图（假设鼠标不能使用）？

Answer 1

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

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”，只有当您位于枢轴（选区）内时才会显示。 如果你想永远删除第一个如果。