Excelマクロでピポットテーブルを作りたい

質問

マクロを使ってピポットテーブルを作ろうとしていますが、エラーメッセージがあちこちに出てしまい何が悪いのかわかりません。どうかご助言の程、何卒よろしくお願い申し上げます。

Sub 名別_M()
'
' 名別_M Macro
'
Range("A2").Select
With Worksheets.Add() '新しいシートを作成し、名前を「名別」にする処理
.Name = "名別"

Dim NewSheetName As String
NewSheetName = InputBox("新しいシート名を入力ください")

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
NewSheetName!R1C1:R95C18,Version:=xlPivotTableVersion15).
CreatePivotTable TableDestination:="名別!R3C1", TableName:="ピボットテーブル1" _
, DefaultVersion:=xlPivotTableVersion15

End With '「名別」にした最後の処理

Sheets("名別").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
Range("A3").Select
ActiveSheet.PivotTables("ピボットテーブル1").CompactLayoutRowHeader = "UerName"
Rows("1:2").Select
Selection.Delete Shift:=xlUp
Range("E26").Select

End Sub

回答No.1

ushi2015 · ベストアンサー

こんにちは
あちこちに出るエラーがどこなのかハッキリした方がいいです。
取り敢えず、
Sub 名別_M()
'
' 名別_M Macro
'
　　Range("A2").Select
　　On Error Resume Next
　　Application.DisplayAlerts = False
　　Sheets("名別").Delete
　　Application.DisplayAlerts = True
　　On Error GoTo 0
　　With Worksheets.Add() '新しいシートを作成し、名前を「名別」にする処理
　　　　.Name = "名別"
　　　　Dim NewSheetName As String
　　　　NewSheetName = InputBox("新しいシート名を入力ください")
　　　　If NewSheetName = "" Then Exit Sub
　　　　ActiveWorkbook.PivotCaches.Create( _
　　　　　　SourceType:=xlDatabase, SourceData:= _
　　　　　　NewSheetName & "!R1C1:R95C18", Version:=xlPivotTableVersion15). _
　　　　　　　　CreatePivotTable TableDestination:="名別!R3C1", _
　　　　　　　　TableName:="ピボットテーブル1" _
　　　　　　　　, DefaultVersion:=xlPivotTableVersion15
　　End With '「名別」にした最後の処理

　　Sheets("名別").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").Delete Shift:=xlUp
End Sub
こんな感じかと思いますが、新しいシート名を指定して、新しいシート名の
データでピボットを作っている部分がそれでいいのかどうかは分かりません。

お礼

有難うございます。私には想像できないような物になりました。感謝、感謝の気持ちでいっぱいです。これからも私のような馬鹿の質問に答えて頂ければ幸いです。