Excel VBA教程:Table方法

依据输入值和工作表上定义的公式创建数据表。

expression.Table(RowInput, ColumnInput)

expression   必需。该表达式返回“应用于”列表中的一个对象。

RowInput   Variant 类型,可选。用作数据表行输入的单个单元格。

ColumnInput   Variant 类型,可选。用作数据表列输入的单个单元格。

说明

使用数据表,通过更改工作表上特定常量的值,并观察其他单元格相应的变化情况,可进行假设分析。

Excel VBA教程:Table方法·示例

本示例在工作表 Sheet1 的 A1:K11 单元格中创建一个带格式的乘法运算表。


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

上页:Excel VBA教程:SwapNode方法 下页:Excel VBA教程:Text方法

Excel VBA教程:Table方法

Excel VBA教程:Text方法 Excel VBA教程:TextToColumns方法
Excel VBA教程:ToggleVerticalText方法 Excel VBA教程:TransferChildren方法
Excel VBA教程:Trendlines方法 Excel VBA教程:TwoColorGradient方法
Excel VBA教程:Undo方法 Excel VBA教程:Ungroup方法
Excel VBA教程:Union方法 Excel VBA教程:UnMerge方法
Excel VBA教程:Unprotect方法 Excel VBA教程:UnprotectSharing方法
Excel VBA教程:Update方法 Excel VBA教程:UpdateFromFile方法
Excel VBA教程:UpdateLink方法 Excel VBA教程:UpdateNotify方法
Excel VBA教程:UseDefaultFolderSuffix方法 Excel VBA教程:UserPicture方法
Excel VBA教程:UserTextured方法 Excel VBA教程:Verb方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号