特定の範囲の特定の値を持つセルを特定し、最上部の行と最初の列から対応する値を見つけます。

Question

私はコーディングと学習者を自分で初めて使います。私は真剣に私が取り組んでいる小さな実験的なプロジェクトで1つの場所に立ち往生しています。これで私を助けてください。ここで

Base Data

私はするつもり何です。 写真を参照してください - 与えられたテーブルから、特定の値（例えば、0.1314）のセルを探したいと思います。次に、最上位の行と最初の列（つまり、-1.1 + 0.2）の対応するセルの値を見つけて追加します。

私はFind、Match、Lookupコマンドで試しましたが、常に何らかのエラーが発生しました。

これに適したコマンドプロンプトは何ですか？また誰でもコードを教えてくれますか？あなたの目標を達成するためにどのように

おかげ Shreya

Answer 1

提案。何か不明な点がある場合は、コメントにご連絡ください。

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