問題タブ [pivot-chart]

ピボット チャートのチャート値の 1 つのみに対して永久トレンドラインを作成しようとしています。このためのマクロを作成しましたが、for ループの if-else ステートメントが無視されているようです。

Moduel1 の私のコードは次のとおりです。

そして、これがSheet2の私のコードです:

ここに私が得ているものがあります:

これが私が見たいものです：

アドバイスをいただければ幸いです。

日付を列として、最大バッチ ジョブ完了時間の最大時間を値として持つピボット グラフがあります。X 軸に日付、Y 軸に時刻を示す単純な折れ線グラフをプロットする必要があります。ただし、Excel では、日付は連続ではなくカテゴリとして認識されます。折れ線グラフを取得できるように、日付を連続してプロットするにはどうすればよいですか?

昨日、Microsoft Object フォルダー内とシート内に VBA コードを書き、Worksheets_PivotTableUpdate イベントとプライベート サブルーチンを使用してフィルター処理した後、ピボット グラフを再フォーマットしました。それはうまく機能していました！

昨日ファイルを閉じて再度開いたところ、ファイルはなくなり、VBA が開いているときに機能していたにもかかわらず、フィルタリングによってコードがトリガーされませんでした。私はシートを見に行きましたが、そこにはコードがありません。保存するのを忘れたか、間違って保存したと思ったので、もう一度書き直して、今朝ファイルを再度開いたときに... コードをフィルタリングした後の書式設定が機能せず、コードが見つかりません。それで... どこですか？貯まらないのはなぜ？

複数の人がこのファイルを使用するため、必要なたびにやり直すことはできません。さらに、ファイルを閉じたり再度開いたりするたびに消えるのは意味がありません。VBA、特にピボットテーブル/チャートを操作するためのコードをたくさん知っていますが、それでも自分は初心者だと思います。

コードを書き直しますので、完成したら投稿します。これは、ピボット チャートを元にフォーマットするコードです。シート コードは、データ ラベルを読み取り、いくつかの境界線を追加し、ドーナツ ホールのサイズを変更します。

編集：私は問題を理解しましたが、それはばかげています。ブック マクロを実行すると、他のコードが保存されているシートが削除されます。これが私の新しい質問です...これが起こらないように、他にどのようにこれを保存できますか?

Dim pc_utl As Chart Dim chart_rng_2 As Range Set chart_rng_2 = wsu.Range("B10:F35") 'ドーナツ チャートをシートに配置する場所

シートに保存されているコードは次のとおりです。