指定表中的單元格的值

Question

如何使用可讀的公式（即公式中的行/單元格按名稱而不是索引引用）來獲取指定表格中特定單元格的值？

在上述圖象我想顯示錶Financials的細胞(Income, Feb)的值。我可以使用什麼語法？

Answer 1

正如我提到的，你可以隱藏與用戶定義函數的複雜性，如

Public Function Financials(month As String, item As String) As String 

'Object to represent the table  
Dim lo As ListObject: Set lo = Range("Table1").ListObject 

'Integers to act as coordinates  
Dim x As Integer, y As Integer 

'Find the column 
x = lo.HeaderRowRange.Find(month).Column - lo.HeaderRowRange.Column + 1 

'Find the row 
y = lo.DataBodyRange.Columns(1).Find(item).Row - lo.HeaderRowRange.Row 

' Return the value at the coordinates x,y 
Financials = lo.DataBodyRange(y, x).Value 

End Function 

（更新Range("Table1").ListObject與表的名稱在您的工作簿，或者你可以另一個參數添加到函數）

你會然後調用工作簿中的細胞這一功能，如本例中

=Financials("Feb", "Profit")