自建公式，VBA在Excel中解一元一次方程
自建公式，VBA在Excel中解一元一次方程
文章目录
- 前言
- 一、运行效果图
- 二、操作思路
- 三、代码
- 1.去除方程中未知数，将未知数转为“*0”
- 2.计算方程中常数
- 3.计算方程中未知数的系数一，先将未知数替换成“*1”
- 4.计算方程中未知数的系数二
- 5.计算方程得数
前言
小学必考内容：一元一次方程。
只要将方程输入到Excel工作表单元格内，VBA代码可以快速识别方程未知数，求得未知数系数和常数值，使用自建公式，一拖一拉，快速求解一元一次方程。
一、运行效果图
二、操作思路
1、查找方程中未知数，未知数可以是”A-Z”和”a-z”遍历方程字符串，凡为以上字母，均将替换；
2、计算常数，将上述查询到的字母替换成“0”，将方程“=”两边分成两个数组，左边数组数值计算得数后（-1）后与右数数组数值相加；
3、计算未知数系数，将上述查询到的字母替换成“1”，将方程“=”两边分成两个数组，右边数组数值计算得数后（-1）后与左数数组数值相加，再加上2中得出的常数值，即为未知数系数。
4、常数除以未知数系数，即为未知数值。
优点：未知数可以是26个字母大小写，适用于大多数方程式。
缺点：常数只能是数值，不能是字母。
如不符合实际需求，有兴趣的童鞋可以修改未知数和常数的判断条件。
三、代码
1.去除方程中未知数，将未知数转为“*0”
Function DelX(str As String) As StringDim c As StringDim i As IntegerDim tmp As St