Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


13017 / 76738 ←次へ | 前へ→

【69232】ピボットテーブルの作り方を教えてください
質問  hisao E-MAIL  - 11/6/9(木) 19:02 -

引用なし
パスワード
   ピボットテーブルの作り方を教えてください
下記の構文で [" & 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
0 hits

【69232】ピボットテーブルの作り方を教えてください hisao 11/6/9(木) 19:02 質問
【69233】Re:ピボットテーブルの作り方を教えてくだ... hisao 11/6/10(金) 14:55 お礼

13017 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free