| |
▼ちい さん、Jaka さん：
こんにちは。
> If Cells(13, 2).Value = "3" Then
> ElseIf Cells(6, 5).Value = "1" Then
> Sheets("C").Select
> Range("C3:C4").Select
> Selection.Interior.ColorIndex = 4
> ElseIf Cells(7, 5).Value = "2" Then
> Sheets("C").Select
> Range("D3:D4").Select
> Selection.Interior.ColorIndex = 4
> ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
> End If
If Cells(13, 2).Value = 3 And Cells(6, 5).Value = 1 Then
Worksheets("C").Range("C3:C4").Interior.ColorIndex = 4
End If
If Cells(7, 5).Value = 2 Then
Worksheets("C").Range("D3:D4").Interior.ColorIndex = 4
End If
こんな感じでしょうか。
１つ気になったのが If 文以下の処理に変数：Counter を使った式が
出てこないのですが、この部分は「For 〜 Next」の間に挟む必要があるのでしょうか？
|
|
小僧
- 05/7/5(火) 14:40 -
