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

Question

我知道可以使用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”的列。如果你想要总是删除第一个if。