我想使用 VBA 语句来求解线性方程组

upstairs 方法一次性设置计算公式中的值，并用字符串填充，该字符串不能用于后续操作。

如果每个统计单元格的相对位置保持不变，则建议以 r1c1 相对格式表示法插入计算公式。 这样做的好处是，如果您稍后重新格式化它，数据将作为一个整体进行转移，并且仍然可以使用。

cells(i, 7).value = cells(9, j) *cells(i, j) +cells(i, 7).value

相反。 cells(i, 7).formular1c1 = "=r[9-" & i & "]c[" & j & "-7]*rc[" & j & "-7]+rc"

相对位移都是填充公式的单元格（i，7）单元格。

请注意，公式中的变量放在引号之外，并使用字符串连接符 &. 否则，变量将被识别为字符串而不是相应的值。

房东给出的数据位置与程序不匹配，因此无法进行实验。 如果您有任何问题，请添加或嗨我。 ）

我试过了，房东，修改后可以正确填写公式，但是计算结果有问题，因为公式不能再重复引用自己的单元格了，不信可以手动填写公式。

因此，建议重新规划单元格的使用，在隐藏的角落使用单元格来保存中间计算（如果有图表，可以使用隐藏在图表后面的单元格），并保护这些单元格不被修改。

我几乎再也无法修改了，修改次数接近上限，有问题最好直接用hi来打我。

请找到VB科学与工程数值算法。

二进制一次可以吗？

这很复杂。

对于马，从 1 开始，每次计算方程右侧等于或最接近 的值，通过插值可以得到最接近的解。

不需要 VBA

有两种方法，一种是自己推导反函数，变为 b=f（a），第二种是求解单个变量，可以在数据模拟分析下找到。

使用单个变量求解，记录一个宏，然后修改 ** 并添加循环。

你的公式描述有问题，啊......我不明白......是

让我们重新表述一下......

你应该使用一个公式，你可以做到，为什么要使用VBA？

依赖！ 看完增刊后，我变得更加头晕目眩......公式不重要？ 重要的是实现方法！ “还有很多变数没有列出”！

所以现在这告诉你，你可以用VBA编写一个计算过程，根据你所知道的公式和变量定义变量，然后让这些变量取相应单元格的值，然后根据你的公式计算它们，并将结果返回到你需要的地方......

在本例中，如果是两个变量，则变量 A 是 a 列，b 是过程的结果......

此过程最好定义为功能过程，以便更方便地使用......我现在很聪明，可以这么说了......

因为你似乎是补充剂的配方，而不是最终的配方！！ 只是一个声明，所以我不能做一个具体的**或其他公式推荐......

祝你好运！

在A1“数据菜单”->模拟分析“->单变量解”中输入公式=Atan（B1）+Atan（B1+1）。

在弹出的对话框中，输入“目标单元格”为“A1”，输入“目标值”的单元格A1中原填写的数据，“可变单元格”输入B1。 单击“确定”。

剩下的 4 行可以用同样的方式完成。

有时我们倾向于向VBA的方向思考，而忽略了Excel本身的功能。 除非绝对必要，否则不建议使用 VBA。

公式有问题，这个A完全没用。

等式 2 可以减少 a，它变为 1=tan（b）+tan（b+1）。

换句话说，无论 A 是什么，B 都是一样的。

单击菜单栏中的“配置文件”;

然后在“仿真分析”下拉菜单中选择“目标搜索”;

目标存储网格选择 $b$3，填写值 8 作为目标值，为要用未知数字填充的可变存储单元选择单元，此处为 $b$1;

单击“确定”，您将看到答案 2 已自动写入 $b$1;

通过构造一个系数矩阵和一个常数矩阵的增强矩阵，并将初等行变换成最简单的行矩阵，得到一个解系统，使不同的常数乘以解系统的列向量，得到基本解系统。

我学习线性代数已经很久了。

如果它被具体证明，我绝对不能把它推出去。

但我知道它是几个阶的矩阵，即几个正方形。 绝对正确，你可以按照我说的去做，自己推动。

明白，就收养吧，别让我白帮你。

sub 重复 1 （）。

dim arr, k%, i%, n% '定义变量。

set arr = range("a1").currentregion '将指定的范围分配给变量 arr（这句话没用，可以删除）。

for k = 6 to cells(, 1).end(3).row '将循环范围设置为 6，以表示第一列中包含数据的最大行数。

for i = 6 to cells(, 1).end(3).row '将内部循环范围设置为第一列中包含数据的最大行数 6。

if cells(k, 1) = cells(i, 8) then '如果第一列单元格和第 8 列单元格相等。

cells(k, 5) = cells(k, 5) +1 '然后，计数在对等体的第 5 列中相加。

cells(i, 8). = 3 '将相应列 8 单元格的字体颜色更改为红色。

cells(k, 1). = 3 '将相应列 1 单元格的字体颜色更改为红色。

end if '如果判断，则结束。

next i '返回循环 i

next k '返回循环 k

end sub '结束该过程。

您给出的**是 A 列和 H 列的比较，而不是 A 列和 C 列的比较。

要比较 C 列和 H 列，请将所有括号中的数字 1 更改为 3 **，如下所示：

sub 重复 1 （）。

dim arr, k%, i%, n% '定义变量。

set arr = range("a1").currentregion '将指定的范围分配给变量 arr（这句话没用，可以删除）。

for k = 6 to cells(, 3).end(3).row '将循环范围设置为 6，以表示第一列中包含数据的最大行数。

for i = 6 to cells(, 3).end(3).row '将内部循环范围设置为第一列中包含数据的最大行数 6。

if cells(k, 3) = cells(i, 8) then '如果第一列单元格和第 8 列单元格相等。

cells(k, 5) = cells(k, 5) +1 '然后，计数在对等体的第 5 列中相加。

cells(i, 8). = 3 '将相应列 8 单元格的字体颜色更改为红色。

cells(k, 3). = 3 '将相应列 1 单元格的字体颜色更改为红色。

end if '如果判断，则结束。

next i '返回循环 i

next k '返回循环 k

end sub '结束该过程。

sub 重复 1 （）。

dim arr, k%, i%, n% '该变量声明 arr 是字节类型的字节，k、i 和 n 是整数整数

set arr = range("a1").currentregion '设置变量 arr 活动单元格 A1 所在的矩形区域。

for k = 6 to cells(, 1).end(3).row 'k 值从 6 递增到最后 1 行，数据在第 1 列中，步长为 1

for i = 6 to cells(, 1).end(3).row 'k 值从 6 递增到最后 1 行，数据在第 1 列中，步长为 1

if cells(k, 1) = cells(i, 8) then '如果第 1 列第 k 行中的单元格等于第 8 列第 i 行中的单元格，则执行以下语句，否则跳过它。

cells(k, 5) = cells(k, 5) +1 '第 5 列中第 k 行中的单元格值等于第 5 列中第 k+1 行中的单元格值。

cells(i, 8). = 3 '将第 8 列中第 I 列的字体颜色编号更改为 3（我记得它似乎是红色的）。

cells(k, 1). = 3 '将第 1 列中第 k 行的字体颜色编号更改为 3

end if

next i

next k

end sub

if = 1 and > 3 and < 24 then'确定当前范围是否在列 arng = sheets（"产品信息").[a1].currentregion

设置 RNG 范围。

set dic = createobject("")'设置词典。

for r = 2 to ubound(rng)for c = 2 to ubound(rng, 2)y = rng(r, 1) &" " & rng(1, c)'合并 rng（r， 1） 和 rng（1， c） dic（y） = rng（r， c）。

在字典中写 y。

next c

next r

rr =for c = 2 to 5

y = cells(rr, 1) &" " & cells(3, c)

替换单元格（rr， 1） &" "& cells（3， c） 写成 y

cells(rr, c) = dic(y)'将字典 dic（y） 分配给 cells（rr， c）next c

y = cells(rr, 1) &"单价仓储"

cells(rr, 7) = dic(y)'将 cells（rr， 7） 写入 dic（y）end if

= false

这句话是关闭系统报警提示。

dim sht as worksheet

将 sht 变量声明为工作表变量。

对于工作表中的每个 SHT，以遍历所有工作表。

if not like "主界面" and _not like "变体详细信息" and _not like "数据字典" and _not like "固定资产清单"然后，如果它未包含在您要查找的当前工作表的名称中"主界面"、"变体详细信息" 、"数据字典"、 "固定资产清单"和其他领域。

end if

next

1. 对于“变量”=“初始值”。

to 《運組灊》 [step 〕 句序

条件为 true “exit for]。

下一个“变量”。

默认情况下，step 设置为“1”，可以省略，step 可以设置为负值。

示例 10：** 下面是最简单的累加器，将 1 到 10 相加，sub ss（） a = 0

for i = 1

to 10a = a + i

next i

I'I 的意思是在即时窗口中显示 i 的值，想象一下，i=？ 结束子之后

它也可以写成：sub ss（） a = 0

for i=10

to 1 step –1

a = a + i

next i

我'想象，我=？ 结束子值为

示例 11：下面是一个退出的情况，如果 A 大于或等于 5，则循环体将被跳转。

sub ss() a = 0

for i = 1

to 10a = a + i

if a >= 5 then exit for next i