<12-4 피벗 슬라이서 생성과 위치 지정>
작성자 정보
-
모아 작성
- 작성일
컨텐츠 정보
- 15 조회
- 0 추천
- 0 비추천
- 목록
본문
<12-4 피벗 슬라이서 생성과 위치 지정>
Dim scc As SlicerCache
Dim scr As Slicer
Dim ss As Worksheet
Dim pt As PivotTable
Dim rng As Range
Set ss = Sheets("피벗")
Set pt = ss.PivotTables("pv1")
On Error Resume Next
ThisWorkbook.SlicerCaches("성별_scc").Delete
On Error GoTo 0
Set scc = ThisWorkbook.SlicerCaches.Add2(pt, "성별", "성별_scc")
Set scr = scc.Slicers.Add(ss, , "성별슬라이서", "성별선택")
Set rng = ss.PivotTables("pv1").TableRange1
scr.Top = rng.Top
scr.Left = rng.Left + rng.Width + 20
scr.Height = rng.Height
scr.Width = 200
출처: https://lesserpainbetterlife.tistory.com/812 [전진수블로그 ✝ = ♥:티스토리]
|
|
포인트 선물 선물명단 선물하기
최소 5P ~ 최대 100000000P 까지 가능합니다.
로그인 후 선물하실 수 있습니다.
선물 받은 내용이 없습니다.
관련자료
모아
ex.9
-
등록일 02.23
-
등록일 02.23
-
등록일 02.23
-
등록일 02.23
댓글 0
등록된 댓글이 없습니다.