ピボットテーブルの有無を判定する  Sub test()' ピボットテーブルの有無を判定する        If ActiveSheet.···