| |
ピボットテーブルの作り方を教えてください
下記の構文で [" & 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/9(木) 19:02 -
