みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

Excel VBAの自動生成VBAでエラーが発生?

' ↑
'この上にピポットテーブルを作る為のデータをSheetに生成し
'下記でそのSheetに名前を付けてピポットテーブルを作成するVBA
Dim wk As String
wk = Application.InputBox("シート名を入力ください")
If wk <> "False" Then
ActiveSheet.Name = wk
Else
MsgBox "キャンセルされました。"
Exit Sub
End If

Sheets.Add

MsgBox "選択したシート名は" & wk & "です。"
'--------------------------------------------------------------------------------------------------------------------
'この中でエラーメッセージが出てしまっています。
'どこがいけないのでしょうか?
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
wk & "!R1C1:R95C18", Version:=xlPivotTableVersion15).CreatePivotTable _
TableDestination:="Sheet1!R3C1", TableName:="ピボットテーブル1", DefaultVersion _
:=xlPivotTableVersion15
'-------------------------------------------------------------------------------------------------------------------
Sheets("Sheet1").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("UserName")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("ピボットテーブル1").AddDataField ActiveSheet.PivotTables( _
"ピボットテーブル1").PivotFields("作業時間"), "合計 / 作業時間", xlSum
ActiveSheet.PivotTables("ピボットテーブル1").CompactLayoutRowHeader = "UserName"
Rows("1:2").Select
Selection.Delete Shift:=xlUp
Range("C16").Select
Sheets("Sheet1").Select
Sheets("Sheet1").Name = "名別"

投稿日時 - 2017-02-25 00:12:11

QNo.9297901

すぐに回答ほしいです

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

別新規ブックで、マクロの記録モードにして、自分でデータの簡略版(行数を少なく列数を必要なものに限ってデータを5行程度作り)をシートに作り、ピボットテーブルの操作を手動で行って、できたマクロの記録を印刷し、」じっくりデスクで両者を比べて、自分で、質問のマクロが止まる原因を追究し、疑問点があれば論点を絞り、質問せよ。
止まりましたーー>すぐ、質問しよう、になっていないか?
他のデータのピボットのマクロの記録をそのまま、使って載せてないか?

投稿日時 - 2017-02-25 10:47:51

あなたにオススメの質問