Исходные данные:
таблица в word в ней после нажатия кнопки происходят вычисления и посредством
m = ThisDocument.Tables(2).Rows.Count записываются в последнюю строку (количество строк может быть различное, поэтому в цикле и задействована m).
пример:
Private Sub Summa11()
Dim x As Single, i As Integer
Dim myTable As Table
Dim myStr As String
Dim m As Integer
x = 0
Set myTable = ActiveDocument.Tables(2)
m = ThisDocument.Tables(2).Rows.Count
For i = 2 To m - 1
x = x + myTable.Cell(i, 11).Range.Calculate
x = FormatNumber(x, 3)
Next i
myStr = x
myTable.Cell(m, 11).Range.Delete
myTable.Cell(m, 11).Range.InsertAfter (myStr)
End Sub
Сложность возникла, когда возникла необходимость сделать несколько расчётов в одном столбце.
Коллеги подскажите, как отследить в какой строке закончился 1-ый расчёт и с какой следует начать второй.
таблица в word в ней после нажатия кнопки происходят вычисления и посредством
m = ThisDocument.Tables(2).Rows.Count записываются в последнюю строку (количество строк может быть различное, поэтому в цикле и задействована m).
пример:
Private Sub Summa11()
Dim x As Single, i As Integer
Dim myTable As Table
Dim myStr As String
Dim m As Integer
x = 0
Set myTable = ActiveDocument.Tables(2)
m = ThisDocument.Tables(2).Rows.Count
For i = 2 To m - 1
x = x + myTable.Cell(i, 11).Range.Calculate
x = FormatNumber(x, 3)
Next i
myStr = x
myTable.Cell(m, 11).Range.Delete
myTable.Cell(m, 11).Range.InsertAfter (myStr)
End Sub
Сложность возникла, когда возникла необходимость сделать несколько расчётов в одном столбце.
Коллеги подскажите, как отследить в какой строке закончился 1-ый расчёт и с какой следует начать второй.