чтобы вытягивать текст с 3-х первых найденных ячеек с 6-ти, и делило любоэ число

[vkopitsa]

Как сделать, чтобы вытягивать текст с 3-х первых найденных ячеек с 6-ти, и делило любоэ число с 3-х первых найденных на 2 и вставляло результат в остальные 3-и. И выделяло красным цветом.

Код:

Private Sub CommandButton5_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

    cll.Range.Shading.BackgroundPatternColor = RGB(255, 0, 0)
    cll.Range.Text = Val(cll.Range.Text) / Val(2)

      i = 0
     
    End If
  Next
Next

End Sub

Задача_Пример

[Sla]

Это вопрос?

[vkopitsa]

да

[Sla]

а что не работает?

[vkopitsa]

как сделать чтобы в таблице выделяло в 1 строку, а неразбрасывало по строкам.

я тока 2 день в VBA 

Код:

Private Sub CommandButton7_Click()
Dim tbl As Table, cll As Cell, i As Long
i = 0
b = 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 "Ура, нашел 6 числовых ячеек подряд"
      
 'tbl.Cell(Row, i - 6).Range.Shading.BackgroundPatternColor = RGB(255, 0, 0)
'  tbl.Cell(Row, i - 5).Range.Shading.BackgroundPatternColor = RGB(255, 0, 0)
'  tbl.Cell(Row, i - 4).Range.Shading.BackgroundPatternColor = RGB(255, 0, 0)
'   tbl.Cell(Row, i - 3).Range.Shading.BackgroundPatternColor = RGB(255, 0, 0)
'    tbl.Cell(Row, i - 2).Range.Shading.BackgroundPatternColor = RGB(255, 0, 0)
'     tbl.Cell(Row, i - 1).Range.Shading.BackgroundPatternColor = RGB(255, 0, 0)
'tbl.Cell(Row, i - 3).Range.Text = Val(tbl.Cell(Row, -6).Range.Text) / Val(2)
'tbl.Cell(Row, i - 2).Range.Text = Val(tbl.Cell(Row, -4).Range.Text) / Val(2)
'cll.Range.Text = Val(tbl.Cell(Row, -3).Range.Text) / Val(2)
tbl.Cell(Row, b + 5).Range.Shading.BackgroundPatternColor = RGB(255, 0, 0)
tbl.Cell(Row, b + 6).Range.Shading.BackgroundPatternColor = RGB(255, 0, 0)
tbl.Cell(Row, b + 7).Range.Shading.BackgroundPatternColor = RGB(255, 0, 0)
     i = 0
    End If
  Next
Next
End Sub

вот таблица

Таблица

[HandKot]

почитал условие...тяжкое чувство...не совсем все понятно
давай те по порядку

проверка у Вас идет большей частью по строкам, так что предлагаю бежать по строкам

Код:

    Dim tbl As Table
    Dim row As row
    
    For Each tbl In ActiveDocument.Tables
        For Each row In tbl.Rows
            'здесь начинаем писать условия
        Next
    Next

если подойдет, то начнем со строки №1 в таблице из примера
что должно получиться?


ЗЫЖ и махонькими шажками возможно получим нужный результат

[vkopitsa]

Не работает, может я что-то не то сделал. 

Код:

Private Sub CommandButton8_Click()

    Dim tbl As Table
    Dim row As row

    For Each tbl In ActiveDocument.Tables
        For Each row In tbl.Rows
    If IsNumeric(Replace(row.Range, Chr(13) + Chr(7), "")) Then i = i + 1 Else i = 0
    
    If i = 6 Then
      MsgBox "бум"
      

    End If

        Next
    Next

End Sub

Надо найти 6 числовых ячеек! И выделить их.

[HandKot]

Код:

            'здесь начинаем писать условия
            
            '============================
            '6 ячеек
            For iCell = 1 To row.Cells.Count
                If IsNumeric(Replace(row.Cells(iCell).Range.Text, Chr(13) + Chr(7), "")) Then i = i + 1 Else i = 0
            Next
            If i = 6 Then
                MsgBox ("надо красить")
            End If
            'конец проверки 6 ячеек
            '============================

для лучшего понимания объектной модели ворда применяйте Object Browser (вызывается по F2 в редакторе VBA)

[Антон (LogRus)]

vkopitsa, учите русский.
От вашего "любоэ" и "делило", "так блеват и кидат" (c).

[anton13]

Согласен с модератором. Я на VBA писал, но здесь ни хрена не понял о чём речь. Мысль нормально выразите.