3

ピボットテーブルを作成する関数がありますが、マージされてタイトルが追加される範囲を設定しようとするとエラーが発生します。

以下のコードでpivot_title_rangeは、は'String'変数であり、関数を呼び出すときはオプションです。title_range'Range'変数です。範囲を設定する両方の行（ユーザーが宣言するかどうかに関係なくpivot_title_range）は、同じエラーを引き起こします。

If pivot_title_range = "" Then
    title_range = ActiveSheet.Range("B3:E4")
Else
    title_range = ActiveSheet.Range(pivot_title_range)
End If

これが私が得ているエラーです-

Run-time error '91':
Object variable or With block variable not set

必要に応じて、ここに全機能のペーストビンがあります-http ://pastebin.com/L711jayc。問題のあるコードは160行目から始まります。

誰かが私が間違っていることを教えてもらえますか？ありがとう。

4

1 に答える 1

7

あなたが使用する必要があります

If pivot_title_range = "" Then
    Set title_range = ActiveSheet.Range("B3:E4")
Else
    set title_range = ActiveSheet.Range(pivot_title_range)
End If

あなたが定義したのでtitle_range as range-そしてこれはオブジェクトです;）

于 2012-10-22T10:49:49.567 に答える