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
補足
早速のご回答誠にありがとうございます。 ただ、私自身読解力が乏しいので、できればＤＶＤのような形で 操作の流れをタイムリーに把握できるようなものがあればお教え いただきたいです。 通信講座等でも、紙だけのものでは全く理解できず、毎回ＤＶＤ 講座等を受講しておりますので。 ただ、こちらのサイトも大変良さそうですので参考にさせていた だきます♪ よろしくお願いいたします。