平衡化学方程式、离子方程式、和分子量的程式

dongdonggege

john13579 发表于 2017-3-28 15:58
三小时前我试了一下你上次上传的平衡方程的程式，发觉它连最基本的 A+B=C+D都做错了。暗叫一声侥倖，幸好 ...

我上次是看过vb6后，转变为vba的，论坛以前没人做。所以，我觉得可能是个机会，但是我是钻研ppt的，真的不懂excel，钻研到现在，好像ppt没什么研究的了，也大致写了上千篇文章，我以前在锐普论坛的，写了一些基础文章。
后来感觉自己在做图像、声音方面的一些缺陷，所以借用论坛excel人才济济的优势，发起这个研究，感谢大侠坚持不懈的钻研精神和精湛的技术，辛苦了，大侠。

john13579

dongdonggege 发表于 2017-3-28 16:11
我上次是看过vb6后，转变为vba的，论坛以前没人做。所以，我觉得可能是个机会，但是我是钻研ppt的，真的 ...

你说你发表了上千篇文章，那真是惊人！单是那分执着，已令我感动。//我也相信，限于规格，ppt的变化有限，所以我稍一接触便不再深究。以前在工作时，有需要用VBA写程式解决工作问题，所以我才深入研究。//我的另一项特长是英语，我曾在网上用电邮教英语，学生遍及全世界。有少数人学得很好，大部份都达不到他们理想的结果。一部份人成了现在的好朋友。最好朋友之一的说，她最欣赏的是我处事锲而不舍的毅力。所以说，就毅力讲，你我都是超人的！//声音和图像不是VB或VBA的长项，要处理它们，用专门的軟件較好。

john13579

请看这主题的截图

dongdonggege

john13579 发表于 2017-3-28 12:27
这是我写的一个最充满细节的程式，每个细节都带来新的挑战。程式本身可能用处不大，但解决那些问题的方法， ...

大侠，你好，今天我测试了程序，你的程序中化学方程式前面的系数出现了“1”，感觉与我们的习惯还不是匹配，如果系数是“1”，能否就忽略啊。谢谢。

john13579

dongdonggege 发表于 2017-4-18 10:09
大侠，你好，今天我测试了程序，你的程序中化学方程式前面的系数出现了“1”，感觉与我们的习惯还不是匹 ...

我也有想过这问题，加上「1」表示是经过计算的结果。

leikaiyi123

john13579 发表于 2017-4-18 11:58
我也有想过这问题，加上「1」表示是经过计算的结果。

下面两处对原代码中0改为1，解决系数为1的情况：
    ans = ""
    For i = 1 To cnt
        If coef1(i) > 1 Then '0改1
            ans = ans & coef1(i) & form1(i) & "+"
        Else
            ans = ans & form1(i) & "+"
        End If
    Next
    ans = Left(ans, Len(ans) - 1) & "="
    For i = 1 To cnt2
        If coef2(i) > 1 Then '0改1
            ans = ans & coef2(i) & form2(i) & "+"
        Else
            ans = ans & form2(i) & "+"
        End If
    Next
    ans = Left(ans, Len(ans) - 1)

leikaiyi123

dongdonggege 发表于 2017-4-18 10:09
大侠，你好，今天我测试了程序，你的程序中化学方程式前面的系数出现了“1”，感觉与我们的习惯还不是匹 ...

    ans = ""
    For i = 1 To cnt
        If coef1(i) > 1 Then '0改1
            ans = ans & coef1(i) & form1(i) & "+"
        Else
            ans = ans & form1(i) & "+"
        End If
    Next
    ans = Left(ans, Len(ans) - 1) & "="
    For i = 1 To cnt2
        If coef2(i) > 1 Then '0改1
            ans = ans & coef2(i) & form2(i) & "+"
        Else
            ans = ans & form2(i) & "+"
        End If
    Next
    ans = Left(ans, Len(ans) - 1)

leikaiyi123

1、此程序的优点：可处理普通方程式、结晶水合物反应的方程式、离子方程式
2、测试KClO3=KCl+O2，配平有BUG：1KClO3=1KCl+1.5O2       
3、从程序看貌视系数大于20的反应，可能无法配平，没测试
4、If coef1(i) > 1 Then '0改1    If coef2(i) > 1 Then '0改1   改后配的系数就没有1了
5、 pos = InStr(a1, ".") Or InStr(a1, "·") '结晶水·改.    这样改后，可识别带.(小数点)的结晶水合物，因为某些人会用.代替·
6、建议增加能忽略带“↑↓”、“(浓)”、“(稀)”、“(g)"、"(l)"、"(g)”等符号的化学方程式，其中括号可能为半角或全角。

dongdonggege

leikaiyi123 发表于 2017-6-10 09:52
ans = ""
    For i = 1 To cnt
        If coef1(i) > 1 Then '0改1

大侠，你好，你弄个半截程序，我不知道你说的是什么意思？能否传个附件，或搞个完整的程序？

leikaiyi123

dongdonggege 发表于 2017-6-10 10:29
大侠，你好，你弄个半截程序，我不知道你说的是什么意思？能否传个附件，或搞个完整的程序？

你的原代码中这样改后，系数为1就不显示了