форматирование таблиц в EXCEL

[fox31]

Здравствуйте, помогите написать макросы для нескольких примеров в архиве.
Задания не сложные, но т.к. мои познания в VBA не большие - это доставляет большие трудности.

вот примеры:
http://www.sendspace.com/file/ny898i

Заранее всем спасибо!

[fox31]

Sub Macro()
Dim i As Integer
i = 3
Do Until i = 255
i = i + 1
If Range(" I , 1").Columns.Find("ВСЕГО") Then
Cells.Next
Range("A5 : D1").Interior.ColorIndex = 2

End If
Exit Do
Loop
End Sub


выдает ошибку при запуске макроса. в чем ошибка?

прохожусь по 1му столбцу до 255 если находит слово "ВСЕГО" выделяет цветом область следующей строки с A5 : D1

[Hugo121]

Не понял про выделение...
Но может так задумывалось?

Sub Macro()
Dim i As Integer
i = 3
Do Until i = 255
i = i + 1
If Cells(i, 1) = "ВСЕГО" Then Range("A" & i + 1 & " : D" & i + 1).Interior.ColorIndex = 2
Exit Do
Loop
End Sub

[IgorGO]

может так правильнее?:

Sub Macro()
  Dim i As Integer
  i = 3
  Do Until i = 255
    i = i + 1
    If Cells(i, 1) = "ВСЕГО" Then 
      Range("A" & i + 1 & " : D" & i + 1).Interior.ColorIndex = 2
      Exit Do
    end if
  Loop
End Sub

[fox31]

Сообщение от IgorGO

может так правильнее?:

Sub Macro()
  Dim i As Integer
  i = 3
  Do Until i = 255
    i = i + 1
    If Cells(i, 1) = "ВСЕГО" Then 
      Range("A" & i + 1 & " : D" & i + 1).Interior.ColorIndex = 2
      Exit Do
    end if
  Loop
End Sub

Спасибо большое! теперь стало понятно, но он окрашивает только 1 строку после слова "всего" а их может быть сколько угодно

[IgorGO]

окрашивает только 1 строку после слова "всего" а их может быть сколько угодно

извините, не догадались...

код тщательно обрабатывать напильником до полного соответствия поставленной задаче:

Sub Macro()
  Dim i As Integer
  i = 3
  Do Until i = 255
    i = i + 1
    If Cells(i, 1) = "ВСЕГО" Then Range("A" & i + 1 & " : D" & i + 1).Interior.ColorIndex = 2
  Loop
End Sub