1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
Private Sub CommandButton10_Click()
Dim tbl As Table, cll As Cell, i As Long, BackCell As Cell, j 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 числовых ячеек подряд"
Set BackCell = cll
kakaCell = Val(tbl.Cell(row, 5 ).Range.Text)
Select Case kakaCell ' Анализирует число.
Case 2 , 4 , 6 , 8 , 12 , 14 , 16 , 18 , 22 , 24 , 26 , 28 , 32 , 34 , 36 , 38 , 42 , 44 , 46 , 48 ' Число парное.
chislo = Val(tbl.Cell(row, 5 ).Range.Text) + Val( 2 )
tbl.Cell(row, 5 ).Range.Text = chislo
tbl.Cell(row, 6 ).Range.Text = chislo
tbl.Cell(row, 7 ).Range.Text = chislo
chislo2 = chislo / Val( 2 )
tbl.Cell(row, 8 ).Range.Text = chislo2 'замена 8 ячейки
tbl.Cell(row, 9 ).Range.Text = chislo2 'замена 9 ячейки
tbl.Cell(row, 10 ).Range.Text = chislo2 'замена 10 ячейки
For j = 1 To 6
BackCell.Range.Shading.BackgroundPatternColor = RGB( 255 , 0 , 0 )
If j <> 6 Then Set BackCell = BackCell.Previous
Next
Case 5 , 10 , 15 , 20 , 25 , 30 , 35 , 40 , 45 , 50 , 55 , 60 , 65 , 70 , 75 , 80 , 85 , 90 , 95 ' Число до 95.
chislo3 = Val(tbl.Cell(row, 5 ).Range.Text) + Val( 5 )
tbl.Cell(row, 5 ).Range.Text = chislo3
tbl.Cell(row, 6 ).Range.Text = chislo3
tbl.Cell(row, 7 ).Range.Text = chislo3
chislo4 = chislo3 / Val( 2 )
tbl.Cell(row, 8 ).Range.Text = chislo4 'замена 8 ячейки
tbl.Cell(row, 9 ).Range.Text = chislo4 'замена 9 ячейки
tbl.Cell(row, 10 ).Range.Text = chislo4 'замена 10 ячейки
'tbl.Cell(row, 8).Range.Text = Val(tbl.Cell(row, 5).Range.Text) / Val(2) 'замена 8 ячейки
'tbl.Cell(row, 9).Range.Text = Val(tbl.Cell(row, 5).Range.Text) / Val(2) 'замена 9 ячейки
'tbl.Cell(row, 10).Range.Text = Val(tbl.Cell(row, 5).Range.Text) / Val(2) 'замена 10 ячейки
For j = 1 To 6
BackCell.Range.Shading.BackgroundPatternColor = RGB( 255 , 0 , 0 )
If j <> 6 Then Set BackCell = BackCell.Previous
Next
Case 100 , 110 , 120 , 130 , 140 , 150 , 160 , 170 , 180 , 190 , 210 , 220 , 230 , 240 , 250 , 260 , 270 , 280 , 290 ' Число до 290
chislo5 = Val(tbl.Cell(row, 5 ).Range.Text) + Val( 10 )
tbl.Cell(row, 5 ).Range.Text = chislo5
tbl.Cell(row, 6 ).Range.Text = chislo5
tbl.Cell(row, 7 ).Range.Text = chislo5
chislo6 = chislo5 / Val( 2 )
tbl.Cell(row, 8 ).Range.Text = chislo6 'замена 8 ячейки
tbl.Cell(row, 9 ).Range.Text = chislo6 'замена 9 ячейки
tbl.Cell(row, 10 ).Range.Text = chislo6 'замена 10 ячейки
For j = 1 To 6
BackCell.Range.Shading.BackgroundPatternColor = RGB( 255 , 0 , 0 )
If j <> 6 Then Set BackCell = BackCell.Previous
Next
Case Else ' Другие значения нечо не выполнять.
End Select
i = 0
End If
Next
Next
End Sub
