No.1ベストアンサー
- 回答日時:
VBA初心者です。
もっとすっきりしたやり方があると思いますが、参考にどうぞ。
「X」や「Y」のセル番号に変動がなければ・・・ですが・・・
Sub Macro1()
Range("A3:A10,B3:B5,B7:B10").Select
Range("B7").Activate
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("A3:A10").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorLight2
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
Range("B7:B10,B3:B5").Select
Range("B3").Activate
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 49407
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
回答有難う御座います。
セル番号に変動は毎回ありまして・・・
マクロの記録でやってみたところ以下コードで出来ました。
ActiveSheet.PivotTables("ピボットテーブル1").MergeLabels = True
しかしなぜか別要因と思われますが1回目の実行は大丈夫なのですが
VBAは立ち上げたまま再度データを開き実行すると
実行時エラー1004 WorksheetクラスのPivotTablesプロパティを取得できません。
と2回目はエラーになります。
VBAのバグでしょうか?なんでかさっぱりわかりません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) ピボットテーブルへの集計フィールド挿入 1 2023/02/26 11:33
- Excel(エクセル) エクセルのマクロで複数条件に当てはまるものを全て抽出したいです 7 2022/05/21 08:51
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Excel(エクセル) Excel(エクセル)でフィルター抽出後、非表示の行を計算しないで、合計を算出する方法 【内容】 添 4 2023/01/30 17:17
- Visual Basic(VBA) Outlook VBAについて 1 2023/07/10 12:41
- その他(Microsoft Office) エクセルで1行の長いデータを指定の桁数で分割する方法が知りたいです。 4 2022/05/20 21:55
- Excel(エクセル) エクセルで書式設定とフィルタの組み合わせでうまく行かないのですが 4 2022/10/07 10:02
- Access(アクセス) スキルシートのエクセルの項目に 2 2023/04/04 22:41
- Excel(エクセル) エクセル・スプレッドシートで、一定数を超えたらゼロから再累計する方法 8 2022/05/28 03:52
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでオートフィルタのボ...
-
エクセルで時刻(8:00~20:00)...
-
エクセルのオートフィルタで最...
-
Excelのオートフィルタで非表示...
-
エクセル・条件付で行を削除す...
-
access マクロでのフィルタの...
-
なぜShowAllDataだとうまく行か...
-
エクセルで、条件に一致した行...
-
スプレッドシートのチェックボ...
-
エクセルのオートフィルタで困...
-
エクセルの偶数行(奇数行)の抽出
-
マクロで条件に合った行の選択...
-
エクセルにて、フィルタをかけ...
-
可視セルを対象としたcountifが...
-
エクセル2010のソートには限界...
-
関数で小数点以下を抽出したい
-
【大至急】エクセルで、検索語...
-
【EXCEL】条件に一致した最新デ...
-
オートフィルタを見出し行選択...
-
ピボットテーブルの行ラベルを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでオートフィルタのボ...
-
エクセルで時刻(8:00~20:00)...
-
エクセルのオートフィルタで最...
-
Excelのオートフィルタで非表示...
-
エクセルの偶数行(奇数行)の抽出
-
オートフィルタで3つ以上の条...
-
access マクロでのフィルタの...
-
エクセル関数で、数字の入った...
-
Excel共有ブックのオートフィル...
-
エクセルで、条件に一致した行...
-
なぜShowAllDataだとうまく行か...
-
エクセル・条件付で行を削除す...
-
エクセルにて、フィルタをかけ...
-
関数で小数点以下を抽出したい
-
エクセルで検索窓のようなもの...
-
【EXCEL】条件に一致した最新デ...
-
ACCESSでスペースの抽出
-
エクセル フィルタで抽出したデ...
-
Excelオートフィルターで絞り込...
-
データの抽出を教えてください
おすすめ情報
2回目エラーになるのは"ピボットテーブル1"がデータファイルを閉じても"ピボットテーブル2"となぜかなってしまうからのようです。