| |
変数の設定方法に問題があったようです
お騒がせしましたが解決しました
▼hisao さん：
>ピボットテーブルの作り方を教えてください
>下記の構文で [" & b & "]を ["uri10.xls"]
>[" & a & "]を ["kai10.xls"]のようにすればうまく行くと思うのですが
>都合で変数を使いたいのですが、
>b="kai10.xls"のようになって""がだぶり、うまく行きません
>どのように書き直せば宜しいでしょうか、お教えください
>
>a=Activeworkbook.Name
>MsgBox "当年度の販売管理を開くかアクティブにして下さい"
>b = ActiveWorkbook.Name
>
> Sheets("売上台帳").Select
> Range("A2").Select
> Workbooks(a).PivotCaches.Create(SourceType:=xlDatabase, SourceData _
> :="[" & b & "]売上台帳!R2C1:R417C30", Version:=xlPivotTableVersion10). _
> CreatePivotTable TableDestination:="[ " & a & "]工番集計!R1C6", TableName:= _
> "ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ5", DefaultVersion:=xlPivotTableVersion10
> Windows(a).Activate
> Sheets("工番集計").Select
> Cells(1, 6).Select
> With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ5").PivotFields("製造番号")
> .Orientation = xlRowField
> .Position = 1
> End With
> ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ5").AddDataField ActiveSheet.PivotTables( _
> "ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ5").PivotFields("税抜金額"), "データの個数 / 税抜金額", xlCount
> Range("G4").Select
> With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ5").PivotFields("データの個数 / 税抜金額")
> .Caption = "合計 / 税抜金額"
> .Function = xlSum
> End With
|
|
hisao
- 11/6/10(金) 14:55 -
