https://ameblo.jp/toeic-apple/ ブログの説明を入力します。 ja '
' 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
Sub Macro8()
'
' Macro8 Macro
'

'
Sheets("Sheet1").Select
Sheets.Add
End Sub
Sub Macro9()
'
' Macro9 Macro
'

'
ActiveSheet.Shapes.AddShape(msoShapeSnip2SameRectangle, 152.25, 103.5, 146.25, _
79.5).Select
With Selection.ShapeRange.TextFrame2.ThreeD
.SetPresetCamera (msoCameraIsometricLeftDown)
.RotationX = -45
.RotationY = 35
.RotationZ = 0
End With
Selection.ShapeRange.IncrementLeft 8.25
Selection.ShapeRange.IncrementTop 2.25
Selection.ShapeRange.ScaleWidth 2.4256410256, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.9528301887, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementRotation 201.1544333333
End Sub
Sub Macro10()
'
' Macro10 Macro
'

'
Workbooks.Add
ChDir "C:\Users\kazuki\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\kazuki\Desktop\kabu.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub
]]> https://ameblo.jp/toeic-apple/entry-11833818755.html Sat, 26 Apr 2014 03:39:09 +0900 '
' 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
]]> https://ameblo.jp/toeic-apple/entry-11833810175.html Sat, 26 Apr 2014 03:13:32 +0900 '
' Macro2 Macro
'

'
Range("C4").Select
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("B4").Select
ActiveCell.FormulaR1C1 = "1"
Range("B5").Select
ActiveCell.FormulaR1C1 = "2"
Range("B4:B5").Select
Selection.AutoFill Destination:=Range("B4:B23"), Type:=xlFillDefault
Range("B4:B23").Select
Range("C4").Select
Selection.AutoFill Destination:=Range("C4:C23")
Range("C4:C23").Select
End Sub
Sub Macro3()
'
' Macro3 Macro
'

'
ChDir "C:\Users\kazuki\Desktop"
Workbooks.Open Filename:="C:\Users\Desktop\Book1.xlsx"
Range("E9").Select
Windows("Book2.xlsx").Activate
Range("G5").Select
ActiveCell.FormulaR1C1 = "=[Book1.xlsx]Sheet1!R5C6"
Range("G6").Select
End Sub
]]> https://ameblo.jp/toeic-apple/entry-11833804412.html Sat, 26 Apr 2014 02:58:57 +0900