Книга экселя 2007 выросла до значительных объёмов, к тому же в ней я использовал кучу сложных формул, в т.ч. тройные+ выпадающие списки, связанные с помощью формул. (Регин-город-склад: т.е. выбирается сначала восточный регион - там выпадает список городов региона, от к-го зависит список складов и тд. и тп.) и книга начала тормозить. "недостаточно данных" - но после этой ошибки всё ж обновлялась. сейчас дошло до того что при автоматическом обновлении, или вручную книга перстала обновлятся в местах, где используются формулы для динамических списков. по сему решил попробывать обновить с помощью вба.
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.
Sub rrr()
Dim sh As Worksheet
Dim c As Range
Dim i, j As Long
For Each sh In Worksheets
j = 1
i = 1
' последняя заполненная строка с данными в столбце j
rowmax = Cells(Rows.Count, j).End(xlUp).Row
Do While i <= rowmax
' последний заполненный столбец с данными в строке i
colmax = Cells(i, Columns.Count).End(xlToLeft).Column
For j = 1 To colmax
' ищу в формуле =, чтоб собственно определить, что это формула а не просто значение
If InStr( 1 , Cells(i, j).Formula, "=", 0 ) <> 0 Then
' таким образом я думал переввести формулу - при этом она должна пересчитаться. но увы не вышло.
Cells(i, j).FormulaR1C1 = Cells(i, j).FormulaR1C1
End If
' переопределяю границы
If Cells(Rows.Count, j).End(xlUp).Row > rowmax Then
rowmax = Cells(Rows.Count, j).End(xlUp).Row
End If
Next j
i = i + 1
Loop
Next sh
End Sub
нужен, собственно совет какой 100%метод использовать для обновления этой книги поячеечно. или всей напр.
вместо
Cells(i, j).FormulaR1C1 = Cells(i, j).FormulaR1C1
учимся использовать тэги для оформления кода
