Question

我是Excel vba的新手。我需要为以下情况创建一个宏。

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

我需要显示R12单元格(40-20)/2。我有一些不同的电子表格。因此用户可以通过鼠标选择输入。所有选择的行必须转换为公式中的值。

请帮帮我

Answer 1

目前尚不清楚您的公式是R12 =（Q12 / P12）/ 2还是R12 =（Q12-P12）/ 2。因此，根据需要改变您的公式。

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

针对不同范围的单元格值的单元格公式

1 个答案: