excel - 我想根据切片器选择来捕捉场景
问题描述
我想捕获基于从切片器中选择的数据以及所选切片器值的详细信息
我能够复制数据但不能复制切片器值
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim xSheet As Worksheet
Dim lRow As Long
Dim ws As Worksheet
Set ws = ActiveWorkbook.Sheets("Sheet2")
lRow = ws.Cells(Rows.Count, "A").End(xlUp).Row + 1
Set xSheet = ActiveSheet
If xSheet.Name = "Sheet1" Then
xSheet.Range("A1:B5").Copy
ws.Range("A" & lRow).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Application.ScreenUpdating = True
End Sub
获取切片器值和数据
解决方案
推荐阅读
- python - 检查连接组件的相邻像素
- wpf - .Net app installed/running in AppData folder?
- html - 使用多个 ckeditor 时 $digest 已经在进行中
- angular - Access-Control-Allow-Origin' 标头包含多个值
- django - 多对多计数和优化查询
- c# - .NET Web 应用程序中的本机依赖项不加载
- javascript - 当我在 try-catch 中使用 setTimeout 时返回不起作用
- node.js - 使用“请求”模块在 node.js 中使用 POST 操作时失败
- angular - 来自对象数组的角度多个输入
- oracle - 我无法在 OEL 7 上加速 PostgreSQL 10.4