пересчет данных в таблице word по примеру.

[vkopitsa]

Доброе время суток! Помогите пожалуйста .

Возможно ли как-то сделать чтобы в таблице пересчитывались данные, таблицы очень большие бывают и вручную это очень долго делать, пытался найти, но ненашол. Структура таблиц одинаковая. Описные и пример в архиве.

Заранее спасибо.

[Денис]

1. Ваша религия не позволяет делать таблицы в Excel?
2. C требованием готового кода в раздел "Работа".

[vkopitsa]

Код: Выделить всё

Private Sub CommandButton7_Click()
Dim tbl As Table, cll As Cell, i As Long
i = 0

For Each tbl In ActiveDocument.Tables
  For Each cll In tbl.Range.Cells
    If IsNumeric(Replace(cll.Range, Chr(13) + Chr(7), "")) Then i = i + 1 Else i = 0
    If i = 6 Then
      MsgBox "бу"
     
For j = 5 To 8

tbl.Cell(row, j).Range.Shading.BackgroundPatternColor = RGB(255, 0, 0)

Next j
     i = 0
    End If
  Next
Next
End Sub

Как сделать, чтобы закрашивало в одну строку.

[img]http://mydisk.se/vkopitsa/webpage/ряд.JPG[/img]

[Andrev]

Как сделать, чтобы закрашивало в одну строку.

Вникнуть в код?

Код: Выделить всё

For j = 5 To 8

tbl.Cell(row, j).Range.Shading.BackgroundPatternColor = RGB(255, 0, 0)

Next j


[GDK]

Код: Выделить всё

For j = j To j

tbl.Cell(row, j).Range.Shading.BackgroundPatternColor = RGB(255, 0, 0)

Next j