Как да поддържам слайсер на обобщена таблица да се движи с превъртане на работен лист в Excel?
Докато работите с обобщена таблица, можете да вмъкнете слайсери, за да филтрирате данните визуално на таблицата. Тази статия говори за поддържане на слайсер на обобщена таблица винаги видим, докато превъртате работния лист.
Поддържайте движението на слайсера на обобщената таблица с превъртане на работния лист с VBA код
Поддържайте движението на слайсера на обобщената таблица с превъртане на работния лист с VBA код
Следният VBA скрипт може да ви помогне да поддържате слайсера на обобщена таблица в движение с работния лист. Моля, направете следното.
1. Натисни Друг + F11 клавиши едновременно, за да отворите Microsoft Visual Basic за приложения прозорец.
2. В Microsoft Visual Basic за приложения прозорец, щракнете два пъти Тази работна книга в левия панел на проекта и след това копирайте и поставете кода на VBA по-долу в Тази работна книга (код) прозорец. Вижте екранна снимка:
VBA код: Поддържайте движението на слайсера на обобщената таблица с превъртане на работния лист
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim ShF As Shape
Dim ShM As Shape
'specify a slicer
Application.ScreenUpdating = False
Set ShF = ActiveSheet.Shapes("Column1")
Set ShM = ActiveSheet.Shapes("Column2")
'change position of the slicer
With Windows(1).VisibleRange.Cells(1, 1)
ShF.Top = .Top
ShF.Left = .Left + 300
ShM.Top = .Top
ShM.Left = .Left + 100
End With
Application.ScreenUpdating = True
End Sub
бележки:
1). В кода Column1 и Column2 са имената на слайсерите.
2). Можете да укажете позицията на слайсерите, докато превъртате работния лист в кода.
3). И можете да добавите повече слайсери в кода или да премахнете слайсери от него, както е необходимо.
3. Натисни Друг + Q ключове за затваряне на Microsoft Visual Basic за приложения прозорец диалогов прозорец.
Отсега нататък посочените слайсери ще се преместват с активната клетка, докато превъртате работния лист. Вижте екранна снимка:
Свързани статии:
- Как да поддържате таблицата разширяема чрез вмъкване на ред от таблица в защитен работен лист в Excel?
- Как да комбинирате клетки и да запазите форматирането на клетките в Excel?
- Как да премахнете дубликати, но да запазите първата инстанция в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!