iroiro

Sub Macro1()
'
' Macro1 Macro
'

'
Sheets("Sheet2").Select
Sheets("Sheet2").Name = "mememe"
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$D$7"), , xlNo).Name = _
"テーブル1"
Range("テーブル1[#All]").Select
ActiveSheet.ListObjects("テーブル1").TableStyle = "TableStyleLight9"
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"テーブル1", Version:=xlPivotTableVersion14).CreatePivotTable TableDestination _
:="Sheet2!R3C1", TableName:="ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1", DefaultVersion:= _
xlPivotTableVersion14
Sheets("Sheet2").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields("列1")
.Orientation = xlRowField
.Position = 1
End With
Range("B2").Select
End Sub
Sub Macro4()
'
' Macro4 Macro
'

'
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Application.PrintCommunication = True
ActiveSheet.PageSetup.PrintArea = ""
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftHeader = "fgrg"
.CenterHeader = "&""HGPｺﾞｼｯｸM,ﾒﾃﾞｨｳﾑ 太字""&26&S&E&X&K05-024gg3"
.RightHeader = "3g3"
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.708661417322835)
.RightMargin = Application.InchesToPoints(0.708661417322835)
.TopMargin = Application.InchesToPoints(0.748031496062992)
.BottomMargin = Application.InchesToPoints(0.748031496062992)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = -3
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = True
.DifferentFirstPageHeaderFooter = True
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = "&P"
.FirstPage.CenterFooter.Text = "jk&N"
.FirstPage.RightFooter.Text = "&F"
End With
Application.PrintCommunication = True
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.EntireRow.Insert
End Sub
Sub Macro5()
'
' Macro5 Macro
'

'
Sheets.Add After:=Sheets(Sheets.Count)
End Sub
Sub Macro6()
'
' Macro6 Macro
'

'
Sheets.Add After:=Sheets(Sheets.Count)
Sheets("Sheet5").Select
Sheets("Sheet5").Name = "hj"
Sheets("hj").Select
Sheets("hj").Move Before:=Sheets(2)
End Sub
Sub Macro7()
'
' Macro7 Macro
'

'
Range("A2:I14").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub