Cell Formel zu Zelle Werte für verschiedene Bereich

Question

Ich bin neu zu Excel VBA .. Ich muss ein Makro für die unten Situation erstellen.

R12=(Q12/P12)/2 Q12=40 P12=20

Ich brauche die R12 Zelle wie (40-20)/2 zu zeigen. Ich habe ein paar verschiedene Tabellenkalkulationen. Die Eingabe wird also vom Benutzer mit der Maus ausgewählt. Alle ausgewählten Zeilen müssen in Werte aus Formeln konvertiert werden.

Bitte helfen Sie mir

Answer 1

Es ist nicht klar, ob Ihre Formel ist R12 = (Q12/P12)/2 oder R12 = (Q12-P12)/2. Ändern Sie entsprechend Ihre Formel wie gewünscht.

Sub Button1_Click() 
    Dim input1, input2, result As Variant 
    input1 = Application.InputBox(Prompt:="Select first cell", Title:="Cell Select", Type:=8) 
    input2 = Application.InputBox(Prompt:="Select second cell", Title:="Cell Select", Type:=8) 
    result = (input1 - input2)/2 
    Worksheets("Sheet1").Activate 
    ActiveCell.Value = result 
End Sub