私を助けてくれることを願っています。私はこのような数量のリストを持っている： example 私は灰色の行に上記のものはすべてのオートSUMを必要としています。 これまでのところ私のコード：事前に Dim source As Range
Dim iCol As Long
Dim nCol As Long
Dim Cell As Range
Set source = Selection
セル範囲の選択をPDFにエクスポートするスクリプトを作成しようとしています。 私が書いたコードは以下の通りです：「実行時エラー 『1004』：私は読み込みエラーとポップアップメッセージを取得するスクリプトを実行 Sub ExporttoPDF()
With Sheets("Results").Range("B10:J100")
.ExportAsFixedFormat _
チャートのタイトルをシートに配列に格納しようとしています。私は、次のコードを持っているが、動作していないよう： ReDim currentArray(1 To .ChartObjects.Count/3)
For i = 1 To .ChartObjects.Count Step 3
.ChartObjects(i).chart.HasTitle = True
title_n