Temukan sel dengan nilai tertentu dari rentang tertentu dan temukan nilai yang sesuai dari baris paling atas dan kolom pertama

Saya baru mengenal coding dan seorang pembelajar mandiri. Saya benar-benar terjebak di satu tempat pada proyek eksperimental kecil yang sedang saya kerjakan. Tolong bantu saya dalam hal ini.

Data Dasar

Inilah yang ingin saya lakukan. Lihat gambar terlampir - Dari tabel yang diberikan, saya ingin mencari sel dengan nilai tertentu (misalnya, 0,1314). Lalu saya ingin mencari dan menambahkan nilai dari sel terkait di baris paling atas dan kolom pertama (yaitu, -1.1 + 0.2).

Saya telah mencoba dengan perintah Temukan, Cocokkan, dan Pencarian tetapi selalu mendapatkan beberapa kesalahan.

Tolong sarankan prompt perintah apa yang sesuai untuk ini. Juga adakah yang bisa membantu saya dengan kodenya?

Terima kasih Shreya


lookup match find vba
person Shreya Das    schedule 07.07.2016    source sumber
comment
Kesalahan apa yang Anda dapatkan? Posting apa yang telah Anda coba.   -  person Stupid_Intern    schedule 07.07.2016
comment
Find() akan mencari sel dengan nilai yang Anda inginkan (sebut saja f) - lalu Anda dapat menggunakan f.Row dan f.Column untuk mendapatkan header baris dan kolom. Posting kode Anda saat ini dan Anda akan mendapatkan bantuan lebih lanjut.   -  person Tim Williams    schedule 07.07.2016

Jawaban (1)


arrow_upward
0
arrow_downward

Saran tentang cara mencapai tujuan Anda. Jika ada yang tidak jelas beri tahu saya di komentar.

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