Excel VBA質問箱 IV

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

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


2233 / 13645 ツリー ←次へ | 前へ→

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

【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

【69233】Re:ピボットテーブルの作り方を教えてく...
お礼  hisao E-MAIL  - 11/6/10(金) 14:55 -

引用なし
パスワード
   変数の設定方法に問題があったようです
お騒がせしましたが解決しました

▼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

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