|
'おはようございます。今日は仕事がびっくりするほど暇です・・・。
'If文は、かみちゃんさんや、下記のコードの様に
'インデント(タブキーでちょっと右からはじめる)で区分けををして
'End If で締めくくるのが一般的で見やすいと思います。(見やすいです)
'まれに If 〜 Then Exit Sub とかして、一行で書く場合もありますが・・・。
'>すっきりさせる表記を・・・。
'なら、With を使ったほうが見やすいと思います。
'If文と同様に、インデント をして 締めくくりは End With になります。
'相対参照は ActiveCell.Range("E4") は好みだと思いますが、Offsetで書いてみました。
Sub test()
Range("B4").Select
If ActiveCell.Value = True Then
With Worksheets("sheet2")
.Range("B3").Value = ActiveCell.Offset(3, 2).Value
.Range("D6").Value = ActiveCell.Offset(3, 4).Value
End With
End If
ActiveCell.Offset(1).Select
End Sub
|
|