Спасибо, но я так понимаю мне надо что-то другое... Вот то что я начал писать... Вставьте в Excel и я думаю вы поймете что мне надо сделать... Может это конечно дурь, но как тогда учиться??... Рассматривать нуждно с метки 1...
Тоже не пойму, почему оператор Goto переводит программу на метку только после того, как закончит все до метки???...
Сори за то, что много вопросов, наверное у всех так было по началу )))
Sub tt()
Range("C10:Q24").Select
With Selection
.HorizontalAlignment = xlCenter
End With
Selection.Interior.ColorIndex = xlNone
Selection.Font.ColorIndex = 0
Selection.ClearContents
[more]
For c = 3 To 11
Cells(10, c).Value = 1
Cells(10, c).Interior.ColorIndex = 6
Next
' метка 1
Range("C11").Select
If Range("C27") >= 0 Then
ActiveCell.Offset(0, 1).Select
ElseIf Range("C27") < 0 Then
For c = 3 To 11
Cells(11, c).Value = 1
Cells(11, c).Interior.ColorIndex = 6
GoTo 59
Next
End If
Range("D11").Select
If Range("D27") >= 0 Then
ActiveCell.Offset(0, 1).Select
ElseIf Range("D27") < 0 Then
For c = 4 To 12
Cells(11, c).Value = 1
Cells(11, c).Interior.ColorIndex = 6
Next
End If
Range("E11").Select
If Range("E27") >= 0 Then
ActiveCell.Offset(0, 1).Select
ElseIf Range("E27") < 0 Then
For c = 5 To 13
Cells(11, c).Value = 1
Cells(11, c).Interior.ColorIndex = 6
Next
End If
Range("F11").Select
If Range("F27") >= 0 Then
ActiveCell.Offset(0, 1).Select
ElseIf Range("F27") < 0 Then
For c = 6 To 14
Cells(11, c).Value = 1
Cells(11, c).Interior.ColorIndex = 6
Next
End If
Range("G11").Select
If Range("G27") >= 0 Then
ActiveCell.Offset(0, 1).Select
ElseIf Range("G27") < 0 Then
For c = 7 To 15
Cells(11, c).Value = 1
Cells(11, c).Interior.ColorIndex = 6
Next
End If
59: Range("C12").Select
End Sub [/more]
Добавлено: visual73 Цитата: If cells(10, c).value < 0 Then 'здесь мы циклично проверяем каждую ячейку в строке 10 и столбцах от 4 до 11. Ячейки активировать не нужно, это увеличивает время выполнения программы.
... как сделать сдесь чтоб он перешел на другую операцию после того, как найдет первую нужную ячейку и выполнит операцию, не продолжая ???
