|
▼わだあつと さん:
>▼MMX さん:
>>指定が抜けているように思われます。
>
>詳しくいいますと、マクロの記録で下のようなテキストを得ました。
>
> Range("A1").Select
> Range(Selection, Selection.End(xlDown)).Select
> Range(Selection, Selection.End(xlToRight)).Select
> ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
> "Sheet1!R1C1:R15000C14").CreatePivotTable TableDestination:="", TableName:= _
> "ピボットテーブル1", DefaultVersion:=xlPivotTableVersion10
> ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
> ActiveSheet.Cells(3, 1).Select
> ActiveWorkbook.ShowPivotTableFieldList = True
> With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("課")
> .Orientation = xlRowField
> .Position = 1
> End With
> With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("商品")
> .Orientation = xlColumnField
> .Position = 1
> End With
>
>このなかのR15000C14を、R[" & m & "]C[" & n & "]にしたいのです。
>しかしうまくいきません。マクロの記録で得たテキストは変えられないのですか?
[ ] を無くしてみては?
|
|