Question

如何用Excel自带的函数实现单个变量的求解？

如：有单元格A1、B1，B1由A1经过一系列的运算而得（比如B1=6A1+8），怎么用函数实现A1自动取值，使B1的值刚好大于10（若B1小于10，则A1加1，直到B1大于10为止）。

因为要做这样运算的数据有上百组，所以想用自带函数来实现，下拉就可以应用到所有数据中。宏的话我不太懂，也不知道怎么把一个宏一次性应用到这100多组的数据中。

求指导~

Answer 1

一、定出反函数表达式

如B1=6*A1+8，则A1=(B1-8)/6，

在A1写入公式：

=(C1-8)/6

在C1输入希望值。公式下拉。

二、用宏

设数据表如下：

B列为原公式，A列为所求值，C列为B列的希望值。

打开VAB，双击Sheet1，输入代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 2 Then
        Range("B" & Target.Row).GoalSeek Goal:=Cells(Target.Row, 3), ChangingCell:=Range("A" & Target.Row)
    End If
End Sub

此公式非全自动，暂时写成半自动方式。

如是点击B列某单元格，VBA被执行。相应的行进行单变是求解。