ランタイムエラー1004:WorksheetクラスのPivotTablesプロパティを取得できません

ジョンL

私はExcelVBAを初めて使用し、次のコードで行フィールドのみを使用してピボットテーブルを作成しようとしていますが、エラー1004が発生し、デバッグの支援が必要になります。

コメントの直後のコードでエラーの発生を示しました// '上記のマクロは、簡単に参照できるように//新しいピボットテーブルを挿入するためのピボットキャッシュとアドレスを作成します。

これに関する助けに感謝します。

Sub getpivotUI2()    
    '**strong text**    
    ' getpivotUI2 Macro    
    ' Create PivotTable from Task_Sheet to filter duplicate bill (UI2)    
    '

    Dim P2Sheet, TSheet As Worksheet    
    Dim P2Cache As PivotCache    
    Dim P2Table As PivotTable    
    Dim P2Range As Range    
    Dim L2Row, L2Col As Long   

    ' Declaring the variables above

    Set TSheet = Worksheets("Task_Sheet")    
    Set P2Sheet = Worksheets("pivot_UI2")   

    L2Row = TSheet.Cells(Rows.Count, 1).End(xlUp).Row    
    L2Col = TSheet.Cells(4, Columns.Count).End(xlToLeft).Column

    Set P2Range = TSheet.Cells(4, 1).Resize(L2Row, L2Col)

    'Macros above determine where the cursor is referenced

    P2Sheet.Cells.Delete 'Removing all previous data the pivotTable worksheet
    Set P2Cache = ActiveWorkbook.PivotCaches.Create _    
      (SourceType:=xlDatabase, SourceData:=P2Range)

    Set P2Table = P2Cache.CreatePivotTable _    
      (TableDestination:=P2Sheet.Cells(3, 1), TableName:="PivotTableUI2")

    'Macros above create a pivot cache and address to insert the new pivot table     

    With ActiveSheet.PivotTables("PivotTableUI2").PivotFields("UI2") '**<-- ERROR OCCURANCE**   
        .Orientation = xlRowField
        .Position = 1
    End With           

    With ActiveSheet.PivotTables("PivotTableUI2").PivotTables("PivotTableUI2").PivotFields("Count_UI2")
        .Orientation = xlDataField
        .Function = xlCount
        .Name = "Count of UI2"
    End With

    With ActiveSheet.PivotTables("PivotTableUI2").PivotTables("PivotTableUI2").PivotFields("R Patient" & Chr(10) & "Count")
        .Orientation = xlDataField
        .Function = xlCount
        .Name = "Count of R Patient"
    End With

    With ActiveSheet.PivotTables("PivotTableUI2").PivotTables("PivotTableUI2").PivotFields("PR Patient" & Chr(10) & "Count")
        .Orientation = xlDataField
        .Function = xlCount
        .Name = "Count of PR Patient"
    End With

    'Macros above inserts a row field and data field in the pivot table
End Sub
Shai Rado

以下のコードを試してください、コードのコメント内の説明

Option Explicit

Sub getpivotUI2()

    ' getpivotUI2 Macro
    ' Create PivotTable from Task_Sheet to filter duplicate bill (UI2)

    Dim P2Sheet As Worksheet, TSheet As Worksheet
    Dim P2Cache As PivotCache
    Dim P2Table As PivotTable
    Dim P2Range As Range
    Dim L2Row As Long, L2Col As Long

    ' Declaring the variables above

    Set TSheet = ThisWorkbook.Worksheets("Task_Sheet")
    Set P2Sheet = ThisWorkbook.Worksheets("pivot_UI2")

    With TSheet
        L2Row = .Cells(.Rows.Count, 1).End(xlUp).Row
        L2Col = .Cells(4, .Columns.Count).End(xlToLeft).Column

        Set P2Range = .Range(.Cells(4, 1), .Cells(L2Row, L2Col)) ' set the data source of the Pivot-Cache
    End With

    'Macros above determine where the cursor is referenced

    P2Sheet.Cells.Delete 'Removing all previous data the pivotTable worksheet

    ' set the Pivot-Cache object
    Set P2Cache = ActiveWorkbook.PivotCaches.Add(xlDatabase, P2Range.Address(0, 0, xlA1, xlExternal))

    ' set the Pivot-Table object
    Set P2Table = P2Sheet.PivotTables.Add(PivotCache:=P2Cache, TableDestination:=P2Sheet.Range("A3"), TableName:="PivotTableUI2")

    'Macros above create a pivot cache and address to insert the new pivot table

    ' ~~~ For Debug Only ~~~
    Dim PTFld As PivotField

    For Each PTFld In P2Table.PivotFields
        Debug.Print PTFld.Name
    Next PTFld

    With P2Table.PivotFields("UI2")
        .Orientation = xlRowField
        .Position = 1
    End With

    ' rest of your Pivot-Fields code …

End Sub

Sub上記に、ピボットテーブルに「U12フィールドがあることを確認するセクションを追加しました

この部分を実行すると:

' ~~~ For Debug Only ~~~
Dim PTFld As PivotField

For Each PTFld In P2Table.PivotFields
    Debug.Print PTFld.Name
Next PTFld

イミディエイトウィンドウに次の値が表示されます。

ここに画像の説明を入力してください

この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。

侵害の場合は、連絡してください[email protected]

編集
0

コメントを追加

0

関連記事

分類Dev

ランタイムエラー1004:WorksheetクラスのPivotTablesプロパティを取得できません

分類Dev

Excelランタイムエラー「OLEObjectsクラスのaddプロパティを取得できません」

分類Dev

VBA Excelマクロエラー:1004がWorkbooFunctionクラスの代替プロパティを取得できません

分類Dev

エラー1004-vbaのVlookup-WorksheetFunctionクラスのVlookupプロパティを取得できません

分類Dev

1004エラー:WorksheetFunctionクラスのStDev_Sプロパティを取得できません

分類Dev

WorksheetFunctionクラスのVLookupプロパティを取得できませんエラー1004

分類Dev

2つのインデックス/一致を使用すると、ランタイムエラー1004が一致プロパティを取得できません

分類Dev

実行時エラー「1004」範囲クラスのNumberFormatプロパティを設定できません

分類Dev

VBA実行時エラー1004:範囲クラスのformulaarrayプロパティを設定できません

分類Dev

ワークシートを取得できませんWorksheetFunctionクラスエラーのVLookupプロパティ

分類Dev

Javascriptランタイムエラー:動的に作成されたテキストボックスの未定義またはnull参照のプロパティ「スタイル」を取得できません

分類Dev

JavaScriptランタイムエラー:未定義またはnull参照のプロパティ 'forEach'を取得できません

分類Dev

0x800a138f-JavaScriptランタイムエラー:未定義またはnull参照のプロパティ 'split'を取得できません

分類Dev

0x800a138f-JavaScriptランタイムエラー:未定義またはnull参照のプロパティ 'scrollHeight'を取得できません

分類Dev

JavaScriptランタイムエラー:未定義またはnull参照のプロパティ 'length'を取得できません

分類Dev

JavaScriptランタイムエラー:未定義またはnull参照のプロパティ「1」を取得できません

分類Dev

JavaScriptランタイムエラー:未定義またはnull参照のプロパティ 'activate'を取得できません

分類Dev

「WorksheetfunctionクラスのCountifプロパティを取得できません」エラー

分類Dev

実行時エラー:WorksheetFunctionクラスのVlookupプロパティを取得できません

分類Dev

VBAエラー「WorksheetFunctionクラスのHex2Decプロパティを取得できません

分類Dev

エラーの取得:アクティビティをインスタンス化できません

分類Dev

dbset エンティティ フレームワークのクラスとしてプロパティ名を使用できませんでした

分類Dev

エラーメッセージスプリングセキュリティ4カスタムログインフォームを取得できません

分類Dev

ボタンクリック時に「nullのプロパティ 'innerHTML'を設定できません」エラー

分類Dev

WorksheetFunctionクラスのMatchプロパティを取得できません

分類Dev

クラスのプロパティを取得できません(ASP.NET MVC)

分類Dev

RangeクラスのRowDifferencesプロパティを取得できません

分類Dev

Symfony4:フォーム内のDoctrineOneToMany関係がエラーをスローします 'クラス "Y"のプロパティ "X"のアクセスタイプを判別できませんでした'

分類Dev

エラー「1004」-定義された範囲変数を持つワークシート関数クラスの合計プロパティを取得できません

Related 関連記事

  1. 1

    ランタイムエラー1004:WorksheetクラスのPivotTablesプロパティを取得できません

  2. 2

    Excelランタイムエラー「OLEObjectsクラスのaddプロパティを取得できません」

  3. 3

    VBA Excelマクロエラー:1004がWorkbooFunctionクラスの代替プロパティを取得できません

  4. 4

    エラー1004-vbaのVlookup-WorksheetFunctionクラスのVlookupプロパティを取得できません

  5. 5

    1004エラー:WorksheetFunctionクラスのStDev_Sプロパティを取得できません

  6. 6

    WorksheetFunctionクラスのVLookupプロパティを取得できませんエラー1004

  7. 7

    2つのインデックス/一致を使用すると、ランタイムエラー1004が一致プロパティを取得できません

  8. 8

    実行時エラー「1004」範囲クラスのNumberFormatプロパティを設定できません

  9. 9

    VBA実行時エラー1004:範囲クラスのformulaarrayプロパティを設定できません

  10. 10

    ワークシートを取得できませんWorksheetFunctionクラスエラーのVLookupプロパティ

  11. 11

    Javascriptランタイムエラー:動的に作成されたテキストボックスの未定義またはnull参照のプロパティ「スタイル」を取得できません

  12. 12

    JavaScriptランタイムエラー:未定義またはnull参照のプロパティ 'forEach'を取得できません

  13. 13

    0x800a138f-JavaScriptランタイムエラー:未定義またはnull参照のプロパティ 'split'を取得できません

  14. 14

    0x800a138f-JavaScriptランタイムエラー:未定義またはnull参照のプロパティ 'scrollHeight'を取得できません

  15. 15

    JavaScriptランタイムエラー:未定義またはnull参照のプロパティ 'length'を取得できません

  16. 16

    JavaScriptランタイムエラー:未定義またはnull参照のプロパティ「1」を取得できません

  17. 17

    JavaScriptランタイムエラー:未定義またはnull参照のプロパティ 'activate'を取得できません

  18. 18

    「WorksheetfunctionクラスのCountifプロパティを取得できません」エラー

  19. 19

    実行時エラー:WorksheetFunctionクラスのVlookupプロパティを取得できません

  20. 20

    VBAエラー「WorksheetFunctionクラスのHex2Decプロパティを取得できません

  21. 21

    エラーの取得:アクティビティをインスタンス化できません

  22. 22

    dbset エンティティ フレームワークのクラスとしてプロパティ名を使用できませんでした

  23. 23

    エラーメッセージスプリングセキュリティ4カスタムログインフォームを取得できません

  24. 24

    ボタンクリック時に「nullのプロパティ 'innerHTML'を設定できません」エラー

  25. 25

    WorksheetFunctionクラスのMatchプロパティを取得できません

  26. 26

    クラスのプロパティを取得できません(ASP.NET MVC)

  27. 27

    RangeクラスのRowDifferencesプロパティを取得できません

  28. 28

    Symfony4:フォーム内のDoctrineOneToMany関係がエラーをスローします 'クラス "Y"のプロパティ "X"のアクセスタイプを判別できませんでした'

  29. 29

    エラー「1004」-定義された範囲変数を持つワークシート関数クラスの合計プロパティを取得できません

ホットタグ

アーカイブ