Значение ячейки в названной таблице


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")
Excel, Excel-формула, мс-офис,

excel,excel-formula,ms-office,

0

Ответов: 1


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")
Excel, Excel-формула, мс-офис,
Похожие вопросы