withステイトメント

Sub Sample4_74()
Range(“A1”).Value = “田中亨”
Range(“A1”).Font.ColorIndex = 3
Range(“A1”).Interior.Pattern = xlGray8
End Sub

Sub Sample4_74_2()
‘※本文ではSample4_74として解説しています
With Range(“A1”)
.Value = “田中亨”
.Font.ColorIndex = 3
.Interior.Pattern = xlGray8
End With
End Sub