ExceL vba でプログラミング

sub 条件分岐　()

select case range(“b4”).value
case Is >=50
activesheet.tab.colorindex=11
case Is >=40
activesheet.tab.colorindex=5
case Is >=30
activesheet.tab.colorindex=33
case Is >=20
activesheet.tab.colorindex=37
case Is >=10
activesheet.tab.colorindex=34
case else
activesheet.tab.colorindex=3
end select

end sub

sub 印刷()

worksheets(“book1”).printpreview

end sub

Sub ブックの保存()

workbooks.add
range(“A1″).value=”練習”

ActiveWorkbook.saveAs＿
filename:=”保存練習1.xlsx”
end sub

アクティブセルを参照するには、Activecellプロパティを利用する・

sub アクティブセルの参照()

Activecell,value=”テスト”
end sub

Sub Macro0510()
Range(“B2”).Value = 1
Range(“B3”).Value = 6
Range(“B2:B3”).AutoFill Destination:=Range(“B2:B8”)
End Sub

Sub Macro0511()
Range(“B2”).Value = 1
Range(“B2:B8”).DataSeries Step:=5
End Sub

Sub SampleStatement()
Range(“B2”).AutoFill Destination:=Range(“B2:B8”), _
Type:=xlFillSeries
End Sub

Sub SampleStatement()
Range(“C2:C6”).FillDown
End Sub

Sub SampleStatement()
Range(“B4:D4”).Insert Shift:=xlShiftDown
End Sub