Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3867 / 76734

←次へ　｜　前へ→


	【78496】Re:ピボット作成

パニック - 16/10/11(火) 11:23 -


	引用なし

	パスワード

みなさん

有難うございました。
MyRow = Sheets("1.尺度ごとの集計").Range("A10000").End(xlUp).row

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
　　　　　　　　　　　　　　　　　　　SourceData:="1.尺度ごとの集計!R3C1:R" & MyRow & "C7" _
　　　　　　　　　　　　　　　　　　　, version:=xlPivotTableVersion15).CreatePivotTable _
　　　　　　　　　　　　　　　　　　　TableDestination:="Sheet2!R3C1", TableName:="部署", DefaultVersion _
　　　　　　　　　　　　　　　　　　　:=xlPivotTableVersion15

とすることで解決しました。
有難うございます。

7 hits

▼

【78485】ピボット作成 パニック 16/10/6(木) 17:11