Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


17004 / 76738 ←次へ | 前へ→

【65195】Re:PivotItemsについて
発言  n  - 10/4/26(月) 16:16 -

引用なし
パスワード
   Sub try()
  Const Trg = "F1"  'フィールド名
  Const Lst = "A,B,C" '表示させるitemリスト
  Dim pf As PivotField
  Dim r As Range
  Dim x As Long
  Dim v, s, si

  With ActiveSheet.PivotTables(1)
    .RefreshTable
    On Error Resume Next
    Set pf = .PivotFields(Trg)
    Set r = Intersect(pf.DataRange, .RowRange)
    On Error GoTo 0
    If Not r Is Nothing Then
      v = r.Item(1).Value
      x = r.Count - 1
      If x > 1 Then
        r.Resize(x).Offset(1).Delete
      End If
      s = Split(Lst, ",")
      For Each si In s
        pf.PivotItems(si).Visible = True
      Next
      If IsError(Application.Match(v, s, 0)) Then
        pf.PivotItems(v).Visible = False
      End If
    End If
  End With

  Set pf = Nothing
  Set r = Nothing
End Sub
..こんな感じです。
1 hits

【65160】PivotItemsについて 椿 10/4/20(火) 21:15 質問
【65181】Re:PivotItemsについて n 10/4/23(金) 22:26 発言
【65188】Re:PivotItemsについて 椿 10/4/24(土) 22:47 質問
【65195】Re:PivotItemsについて n 10/4/26(月) 16:16 発言
【65236】Re:PivotItemsについて 椿 10/4/28(水) 22:54 お礼

17004 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free