Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 如何使用VBA在一系列单元格中用x的函数替换x_Excel_Vba - Fatal编程技术网

Excel 如何使用VBA在一系列单元格中用x的函数替换x

Excel 如何使用VBA在一系列单元格中用x的函数替换x,excel,vba,Excel,Vba,所以我现在有一个有值的电子表格,我们称之为x。我想将值范围内的每个单元格更改为y=ax^2+b,其中a和b是我已经知道的常数。我如何在VBA中编写一个函数来运行所有这些值并分别进行更改 如果您认为我应该用另一种方法(python、matlab等),也请告诉我。这不是一个函数,而是一个过程,如果您想更改值,那么: Sub ChangeValues Dim r as range dim a as double dim b as double a = 2 'whatever value b = 3

所以我现在有一个有值的电子表格,我们称之为x。我想将值范围内的每个单元格更改为y=ax^2+b,其中a和b是我已经知道的常数。我如何在VBA中编写一个函数来运行所有这些值并分别进行更改


如果您认为我应该用另一种方法(python、matlab等),也请告诉我。

这不是一个函数,而是一个过程,如果您想更改值,那么:

Sub ChangeValues 
Dim r as range
dim a as double
dim b as double
a = 2  'whatever value
b = 3  'whatever
For each r in Range("your range here")
r = r.value^2 x a + b
next r
End Sub
如果要保留原始值,则中心线将变为

 r.formula = "=" & a & "x" & r.value & "^2 + " & b

欢迎来到SO。你不能用普通的替换吗?所有的值都是不同的,所以我真的不知道怎么做?由于您必须找到要替换的值,并且我认为我需要将每个单元格定义为一个变量,所以这个过程是有意义的,但它表示“r=r.value^2 x a+b”行中存在语法错误
r=r.value^2*a+b