|
ありがとうございます。
修正したところ、Nextのエラーは無くなったのですが、
elseIfがうまく作動してくれません。
構文は
Dim Counter As Integer
For Counter = 0 To 1
Sheets("A").Select
Cells(6, 2) = Worksheets("B").Cells(4 + Counter, 1) Cells(7, 2) = Worksheets("B").Cells(4 + Counter, 2) Cells(8, 2) = Worksheets("B").Cells(4 + Counter, 3) Cells(9, 2) = Worksheets("B").Cells(4 + Counter, 5) Cells(13, 2) = Worksheets("B").Cells(4 + Counter, 6) Cells(6, 5) = Worksheets("B").Cells(4 + Counter, 7) Cells(7, 5) = Worksheets("B").Cells(4 + Counter, 8)
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
Next Counter
というように、
Sheets("A")のCells(13, 2)に3が入力されており
かつSheets("A")のCells(6, 5)に1が入力された場合に
Sheets("C")ある部分に色を付けて印刷する。
またはSheets("A")のCells(6, 5)に2が入力された場合に
Sheets("C")ある部分に色を付けて印刷する。
このような構文を組みたいのですが・・・
どうすればよろしいのでしょうか?
(上記のまたはの部分は両方入力された場合は両方のセルに色をつけたいのです)
|
|