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

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

[[20060508113159]]: #score: 4769; @digest: 6a65aadb1449ada6a58c4b482ad8f27b; @id: 21969; @mdate: 2006-05-08T14:51:25Z; @size: 3177; @type: text/plain; #keywords: pivottables (10755), xlcolumnfield (6501), adddatafield (5793), sourcedata (5297), pivotfields (5104), tabledestination (4464), 配分 (4422), position (4388), pivottablewizard (4320), ピボ (4164), pivotcaches (4056), ル1 (3918), デバ (3862), 小売 (3703), トテ (3666), 店") (2920), 注数 (2526), 分数 (2436), バッ (2429), 計", (2398), テー (2249), 売店 (2184), ーブ (2119), 計/ (2044), orientation (1994), ボッ (1934), ド名 (1903), 計") (1888), activesheet (1723), ブル (1590), 受注 (1337), ッグ (1290); 『VBAでピボット作成を書いているのですが・・・』（ぴらりん）
こんにちは。行き詰まっているので教えてください。 VBAにてピボットを作成しようとしているのですが、デバックが出て先へ進めません。なぜ、デバックが出ているのか、判断できなく書き込みしてます。下記が作成したものです。マクロから編集しています。 Sub データ編集() ' ' Macro2 Macro ' マクロ記録日 : 2006/5/8 ユーザー名 : ' Dim MyRow As Long MyRow = Range("A65536").End(xlUp).Row ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "R1C1:R" & MyRow & "C14").CreatePivotTable TableDestination:="", TableName:= _ "ピボットテーブル1" ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1) ActiveSheet.Cells(3, 1).Select With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("小売店") .Orientation = xlRowField .Position = 1 End With With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("Crd") .Orientation = xlColumnField .Position = 1 End With ActiveSheet.PivotTables("ピボットテーブル1").AddDataField ActiveSheet.PivotTables( _ "ピボットテーブル1").PivotFields("受注数の合計"), "合計 / 受注数の合計", xlSum ActiveSheet.PivotTables("ピボットテーブル1").AddDataField ActiveSheet.PivotTables( _ "ピボットテーブル1").PivotFields("配分数の合計"), "合計 / 配分数の合計", xlSum Range("B4").Select With ActiveSheet.PivotTables("ピボットテーブル1").DataPivotField .Orientation = xlColumnField .Position = 2 End With End Sub 教えていただけると助かります。よろしくお願いします。 ---- ぱっと見、気になるのは下記で元となるデータのシートが指定されていない点。 SourceData:= "R1C1:R" & MyRow & "C14" 通常は SourceData:="Sheet1!R1C1:R10C2" などとシート名も含めた形で記録されます。シート指定がない場合はアクティブシートのセル範囲と解釈されるようです。不適当なシートが選択されていると、たとえばデータのない新規シートでは「実行時エラー'1004 そのピボットテーブルのフィールド名は正しくありません。ピボットテーブルレポートを作成するにはラベルのついた列でリストとして編成されたデータを使用する必要があります。ピボットテーブルのフィールド名を変更する場合は、フィールドの新しい名前を入力する必要があります。」のエラーメッセージが表示され、「デバッグ」ボタンをクリックすると、「ActiveWorkbook.PivotCaches.Add」のステートメントで停止しているのが確認できます。肝心なのは上記のように「どんなエラーメッセージが表示されるか」「デバッグボタンを押したときにどの行で停止しているか」なので、確認して上記要件について追加書き込みしてください。 :デバッグ（debug）: プログラムの誤り(Bug)を探し、取り除くこと。「デバッグする」とはいいますが、「デバッグが出る」とは表現しません。「Bugを探し、取り除くこと」が[ぴらりん]さんの投稿の目的ですが、「デバッグが出た!」と言う事実には目的を達するための情報が含まれていません。 (みやほりん)(-_∂)b ---- みやほりんさん返信ありがとうございました。デバックするというんですね。勉強になります。いろいろ見ていたら、解決できてしまいました。単純なミスでした。なにせVBA初心者なので、失礼いたしました。また何かありましたら、宜しくお願いします。 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200605/20060508113159.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ