エクセルの学校：全文検索：Hyper Estraier：ピボットテーブル

Results of 1 - 1 of about 2420 for ピボットテーブル (0.004 sec.)

[[20190320113542]]: #score: 4770; @digest: 0c7a696e425bb2b614f225f3f6d67a90; @id: 79006; @mdate: 2019-03-20T04:17:07Z; @size: 3355; @type: text/plain; #keywords: scopetype (22862), xldataonly (19644), xlselectionscope (15497), pivottables (15418), pivotselect (15209), xlpivottableversion15 (11853), 間") (8239), xlrowfield (7956), formatconditions (7821), pivotfields (7656), position (5851), ル1 (5391), xlgreater (4888), トテ (4667), ピボ (4487), xlcolumnfield (3250), xlcount (3139), xlcellvalue (3110), 間" (3060), adddatafield (2896), setfirstpriority (2788), ーブ (2699), orientation (2661), テー (2626), 業時 (2596), 残業 (2546), タダ (2408), 数/ (2337), 間", (2258), ボッ (2084), 計/ (2044), ブル (2025); 『ピボットテーブルで条件付き書式を設定する方法』（ももんが）
こんにちは。 ピボットテーブルを作成し、フィールドを追加、書式を変更し、条件付き書式を設定するという流れでマクロの記録をしました。しかし、実際にマクロを実行すると条件付き書式が設定されないため困っております。以下にコードを記載いたしますので、原因を教えて頂けないでしょうか。よろしくお願い致します。 'ピボットテーブルを追加、書式変更、条件付き書式設定 Sheets.Add ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "出勤データ20180316!R1C1:R118685C21", Version:=xlPivotTableVersion15). _ CreatePivotTable TableDestination:="Sheet1!R3C1", TableName:="ピボットテーブル1" _ , DefaultVersion:=xlPivotTableVersion15 Sheets("Sheet1").Select Cells(3, 1).Select With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("社員名") .Orientation = xlRowField .Position = 1 End With With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("残業時間") .Orientation = xlRowField .Position = 2 End With With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("締め日") .Orientation = xlRowField .Position = 3 End With ActiveSheet.PivotTables("ピボットテーブル1").AddDataField ActiveSheet.PivotTables( _ "ピボットテーブル1").PivotFields("残業時間"), "データの個数 / 残業時間", xlCount With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("締め日") .Orientation = xlColumnField .Position = 1 End With With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("データの個数 / 残業時間") .Caption = "合計 / 残業時間" .Function = xlSum End With ActiveSheet.PivotTables("ピボットテーブル1").PivotSelect "", xlDataOnly, True Selection.NumberFormatLocal = "[h]:mm" Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _ Formula1:="=""45:00""*1" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 255 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False Selection.FormatConditions(1).ScopeType = xlSelectionScope Range("A1").Select ＜使用 Excel:Excel2013、使用 OS:Windows8 ＞ ---- 検証用のデータを用意するのが面倒でちゃんと試してないのですが、これを ActiveSheet.PivotTables("ピボットテーブル1").PivotSelect "", xlDataOnly, True 以下のように変更してみてください。 ActiveSheet.PivotTables("ピボットテーブル1").PivotSelect "合計 / 残業時間" , xlDataOnly, True （でれすけ） 2019/03/20(水) 11:58 ---- でれすけ様ご回答をありがとうございました。試してみましたが、実行時エラー1004となり、アイテム名が見つかりません・・・と表示をされできませんでした。（ももんが） 2019/03/20(水) 13:06 ---- ごめんなさい。先の回答は忘れて、元に戻してください。昼休みにちゃんとデータダミーデータつくってやってみました。問題は、ここのようなので、 Selection.FormatConditions(1).ScopeType = xlSelectionScope このようにしてみてください。 Selection.FormatConditions(1).ScopeType = xlDataFieldScope （でれすけ） 2019/03/20(水) 13:13 ---- でれすけ様うまくいきました。ありがとうございました。大変助かりました。（ももんが） 2019/03/20(水) 13:17 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201903/20190320113542.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ