![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
お世話になります。初心者です。
別シート(Sheet1)のJ1セルに10と入力されている場合に、その10を利用して、
PIVOTテーブルの列ラベルで現在1となっているものを10に変更したいのですが、うまくいきません。分からないながら、調べて下記のようにやってみたのですが、エラーになってしまいます。
どうぞ宜しくお願い致します。
Dim itm As PivotItem
itm.Name = Worksheets("Sheet1").Cells(1, 10).Value
Application.DisplayAlerts = False
With ActiveSheet.PivotTables(pvt.Name).PivotFields("A")
.PivotItems("itm").Visible = True
.PivotItems("1").Visible = False
End With
Application.DisplayAlerts = True
No.1ベストアンサー
- 回答日時:
どこでどんなエラーになりますか?
やりたいのはおそらく以下のような感じだとは思いますけれども
Dim s As String
s = Worksheets("Sheet1").Cells(1, 10).Value
With pvt.PivotFields("A")
.PivotItems(s).Visible = True
.PivotItems("1").Visible = False
End With
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) シートをコピーする下記記述でダイアログを用いた記述がわかりません?( A = Dir(ThisWor 4 2022/08/22 12:26
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) QRコード作成マクロについて 3 2022/11/26 16:55
- Visual Basic(VBA) 改行ごとに行を追加し、数量を分割 4 2023/07/11 16:39
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
マクロで"#N/A"のエラー行を削...
-
On ErrorでエラーNoが0
-
【VBA】ワークブックを開く時に...
-
お助けください!VBAのファイル...
-
VBA データ(特定値)のある最...
-
ExecuteNonQueryメソッドの戻り値
-
VBでSQL文のUPDATE構文を使った...
-
【Access】Excelインポート時に...
-
エクセルVBAで今まで使えていた...
-
エクセルでリンクされたイメー...
-
ACCESSで値を代入できないとは?
-
OpenOffice Basicで簡単な関数...
-
Excel vbaについての質問
-
ACCESS DAO で不要なテーブルの...
-
#N/Aの文字を削除するには
-
インポート時のエラー「データ...
-
フランスの生年月日(jj/mm/aaaa)
-
VBAでfunctionを利用しようとし...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
VBAでfunctionを利用しようとし...
-
【VBA】ワークブックを開く時に...
-
マクロで"#N/A"のエラー行を削...
-
文字列内で括弧を使うには
-
実行時エラー 438 の解決策をお...
-
On ErrorでエラーNoが0
-
お助けください!VBAのファイル...
-
VBA データ(特定値)のある最...
-
インポート時のエラー「データ...
-
実行時エラー'-2147467259(8000...
-
ACCESSで値を代入できないとは?
-
VB.net 重複チェックがしたいです
-
ActiveCell.FormulaR1C1の変数
-
ApplicationとWorksheetFunctio...
-
「実行時エラー '3167' レコー...
-
【VB.NET】 パワポ操作を非表示で
-
フランスの生年月日(jj/mm/aaaa)
-
【マクロ】 IFERROR関数をマク...
おすすめ情報