Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Создает таблицу данных на основе входных значений и формул, заданных на листе.
Синтаксис
expression. Таблица (RowInput, ColumnInput)
выражение: переменная, представляющая объект Range.
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| RowInput | Необязательный | Variant | Одна ячейка, используемая в качестве входных данных строки для таблицы. |
| ColumnInput | Необязательный | Variant | Одна ячейка, используемая в качестве входных данных столбца для таблицы. |
Возвращаемое значение
Variant
Примечания
Используйте таблицы данных для анализа "что если", изменяя определенные константные значения на листе, чтобы увидеть, как влияют значения в других ячейках.
Пример
В этом примере создается форматированная таблица умножения в ячейках A1:K11 на Листе1.
Set dataTableRange = Worksheets("Sheet1").Range("A1:K11")
Set rowInputCell = Worksheets("Sheet1").Range("A12")
Set columnInputCell = Worksheets("Sheet1").Range("A13")
Worksheets("Sheet1").Range("A1").Formula = "=A12*A13"
For i = 2 To 11
Worksheets("Sheet1").Cells(i, 1) = i - 1
Worksheets("Sheet1").Cells(1, i) = i - 1
Next i
dataTableRange.Table rowInputCell, columnInputCell
With Worksheets("Sheet1").Range("A1").CurrentRegion
.Rows(1).Font.Bold = True
.Columns(1).Font.Bold = True
.Columns.AutoFit
End With
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.