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

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

[[20180116191515]]: #score: 4769; @digest: d425482cfe0733362275e39b0c1d0a23; @id: 75272; @mdate: 2018-01-17T06:06:51Z; @size: 2971; @type: text/plain; #keywords: datas (29682), 報精 (21640), tel1member (15497), tel2member (15497), pivots (14319), pcache (13353), 査") (11484), sourcedata (10595), ュ用 (7323), yuma (7268), 精査 (6046), pivotcache (5159), createpivottable (4214), pivotfields (3828), ピボ (3523), トdi (2838), ャッ (2713), トテ (2666), 、so (2192), 用変 (2044), orientation (1994), トキ (1982), currentregion (1841), シュ (1806), ボッ (1637), ーブ (1541), テー (1499), ブル (1156), キャ (1137), ッシ (1117), activeworkbook (1071), 成() (1056); 『ピボットキャッシュがエラーになる時がある。』（yuma）
初めて投稿します。VBA初心者です。下記のようなピボットテーブルの自動作成のマクロを作ったのですが、件数によって動いたり動かなかったりします。。具体的には300件（行）程度までなら動くのですが、500行以上になると「型が一致しません」というエラーが出て、SourceDataで止まります。読み込む量によって変わるものなのでしょうか、、少ない量だと通ってしまうので余計にわからなくなっています。すいませんがどなたか教えて頂けると助かります。宜しくお願いします。 Sub ピボットテーブル自動作成() Dim DataS As Worksheet 'データシート Dim PivotS As Worksheet 'ピボットテーブルを作成するシート Dim PCache As PivotCache 'ピボットキャッシュ用変数 Set DataS = ActiveWorkbook.Worksheets("情報精査") '『情報精査』シートからピボットキャッシュを作成 Set PCache = ActiveWorkbook.PivotCaches.Create( _ SourceType:=xlDatabase, _ SourceData:=DataS.Range("A1").CurrentRegion) '『ピボットテーブル』シートを追加 With Worksheets.Add(after:=Worksheets("情報精査")) .Name = "ピボットテーブル" End With Set PivotS = ActiveWorkbook.Worksheets("ピボットテーブル") '『ピボットテーブル』シートにピボットテーブル作成 PCache.CreatePivotTable _ TableDestination:=PivotS.Range("A1"), _ TableName:="電話番号別アイテム数" With ActiveSheet.PivotTables(1) .PivotFields("member_tel1member_tel2member_tel3").Orientation = xlRowField .PivotFields("item").Orientation = xlColumnField .PivotFields("member_tel1member_tel2member_tel3").Orientation = xlDataField End With End Sub ＜使用 Excel:Excel2016、使用 OS:Windows10 ＞ ---- エラー停止した際、DataS.Range("A1").CurrentRegion.Address はどうなっているでしょう? イミディエイトウィンドウで以下のように表示してみてください。 ? DataS.Range("A1").CurrentRegion.Address 範囲におかしな点がない場合、SourceData:=DataS.Range("A1").CurrentRegion.Address のように、セル範囲の文字列でソース指定するとどうなるでしょう? （???） 2018/01/17(水) 09:13 ---- エラーが出たあと、手動ではちゃんとできますか? ぱっと見、コードに変なとこは無さそうです。（変数の使い方とか気になるところはなくはないですが。。。）参考URL＞＞ http://www.relief.jp/docs/018038.html （まっつわん） 2018/01/17(水) 09:23 ---- このDataS.Range("A1").CurrentRegionのセル範囲のどこかに 255文字を超えるデータがありませんか? もし、該当するなら、 SourceData:=DataS.Range("A1").CurrentRegion.Address(, , xlR1C1, True) の様にアドレス文字で指定するか、 PivotCache.CreatePivotTable メソッドではなく、PivotTableWizardメソッドを使えば、SourceData に Rangeオブジェクトを使えると思います。的外れならスルーして下さい。（きまぐれ） 2018/01/17(水) 09:47 ---- SourceData:=DataS.Range("A1").CurrentRegion.Address にしたらとおりました!!!! ありがとうございます!!これで2日くらい悩んでいたのでたいへん助かりました、、! またなにかあったら宜しくおねがいします!! （yuma） 2018/01/17(水) 15:06 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201801/20180116191515.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ