Программное построение таблиц подстановки
Ну и несколько слов о том, как построить таблицу подстановки программно. Если подготовительная работа уже выполнена, - созданы заголовки таблицы и записана формула, вычисляющая функцию от двух параметров, то дальнейшее построение таблицы подстановки выполняется одним оператором. Достаточно выделить соответствующую прямоугольную область под таблицу и вызвать метод Table объекта Selection или Range. Метод имеет два параметра, задающих ячейки ввода.
Вот процедура, которая на другом месте строит таблицу подстановки, аналогичную той, которая показана на предыдущем рисунке 8.30:
Public Sub Buildtable() 'Программное построение таблицы подстановки Dim myr As Range Set myr = Range("A1:H7") myr.Clear 'Построение заголовков таблицы подстановки Range("E1") = "Уровень рекламы" Range("A5") = "Число конкурентов" Range("C2") = 0: Range("D2") = 1 Range("C2: D2").AutoFill Destination:=Range("C2:H2"), Type:=xlFillDefault Range("B3") = 0: Range("B4") = 1 Range("B3: B4").AutoFill Destination:=Range("B3:B7"), Type:=xlFillDefault Range("B2").Formula = "= 8.318*$B$13 + 16.66*$A$1-26.58*$A$2 +109.06" 'Формирование таблицы Set myr = Range("B2:H7") myr.Table RowInput:=Range("A1"), ColumnInput:=Range("A2")
End Sub
