Найдите ячейку с определенным значением из заданного диапазона и найдите соответствующее значение из самой верхней строки и первого столбца.

Я новичок в кодировании и учусь сам. Я серьезно застрял на одном месте в небольшом экспериментальном проекте, над которым работаю. Пожалуйста помоги мне с этим.

Базовые данные

Вот что я намерен сделать. Обратитесь к прикрепленному рисунку. Из данной таблицы я хочу найти ячейку с определенным значением (скажем, 0,1314). Затем я хочу найти и добавить значения из соответствующих ячеек в самой верхней строке и первом столбце (т.е. -1,1 + 0,2).

Я пробовал использовать команды Find, Match и Lookup, но всегда получал какую-то ошибку.

Пожалуйста, предложите, что является подходящей командной строкой для этого. Также может ли кто-нибудь помочь мне с кодом?

Спасибо, Шрея.


lookup match find vba
person Shreya Das    schedule 07.07.2016    source источник
comment
Какую ошибку вы получаете? Опубликуйте, что вы пробовали.   -  person Stupid_Intern    schedule 07.07.2016
comment
Find() найдет ячейку с нужным вам значением (назовем ее f) — затем вы можете использовать f.Row и f.Column для получения заголовков строк и столбцов. Опубликуйте свой текущий код, и вы получите дополнительную помощь.   -  person Tim Williams    schedule 07.07.2016

Ответы (1)


arrow_upward
0
arrow_downward

Предложение о том, как достичь своей цели. Если что-то неясно, дайте мне знать в комментариях.

Sub FindAndModify()

    Dim cel As Range
    Dim LookupValue As Double
    Dim intRow As Integer
    Dim intCol As Integer
    Dim celValue As Double

    LookupValue = "0.5" 'Define your Lookup Value here or read it from a cell

    For Each cel In Sheet1.UsedRange

        If cel.Value = LookupValue Then

            intRow = cel.Row
            intCol = cel.Column

            celValue = cel.Value

            celValue = celValue + Sheet1.Cells(intRow, 1).Value
            celValue = celValue + Sheet1.Cells(1, intCol).Value

            MsgBox "Value is " & celValue & " and address is " & cel.Address

            'Do stuff with your values

        End If

    Next cel

End Sub
person Stephan    schedule 07.07.2016