数组字符串合并(化学式、分子量)(已解决)

dongdonggege

cbtaja 发表于 2017-3-15 17:54
进一步简化自定义函数：

大侠，你好，也许我不懂，我觉得，好像比前面的问题更多，无论是化合物，还是水合物，好像都不对。少“+”

cbtaja

dongdonggege 发表于 2017-3-15 22:23
大侠，你好，也许我不懂，我觉得，好像比前面的问题更多，无论是化合物，还是水合物，好像都不对。少“+ ...

哪里少了"+"号？

cbtaja

dongdonggege 发表于 2017-3-15 22:23
大侠，你好，也许我不懂，我觉得，好像比前面的问题更多，无论是化合物，还是水合物，好像都不对。少“+ ...

刚才又查了一下百科，KAl(SO4)2•12H2O的分子量精确值为474.388399，说明我的计算是没有错的。

dongdonggege

cbtaja 发表于 2017-3-16 00:18
刚才又查了一下百科，KAl(SO4)2•12H2O的分子量精确值为474.388399，说明我的计算是没有错的。

昨晚喝了点酒，没怎么仔细看，今天看了下，我是这样用的，分子式没错误，分子量好像显示错误类型。

1. Sub 分子式分子量()
   
2. 's = "KAl(SO4)2·12H2O"
   
3. 'MsgBox s & "=" & fzszh("KAl(SO4)2·12H2O") ' & "=" & fzl("KAl(SO4)2·12H2O")
   
4. MsgBox fzl("KAl(SO4)2·12H2O")
   
5. End Sub
   
6. Function fzszh$(ByVal fzs$) '分子式转换
   
7.     Set reg = CreateObject("VbScript.RegExp")
   
8.     reg.Global = True
   
9.     fzszh = fzs
   
10.     tmp = Split("(·+)(\d+)([^·]+) +$2*($3) ([a-zA-Z\)])(\d+) $1*$2 ([A-Z][a-z]?|\() +$1 (^|\*|\()\+ $1")
    
11.     For i = 0 To UBound(tmp) - 1 Step 2
    
12.         reg.Pattern = tmp(i)
    
13.         fzszh = reg.Replace(fzszh, tmp(i + 1))
    
14.     Next
    
15. End Function
    
16. 
    
17. Function fzl(ByVal fzs$) '代入元子量，并求出分子量
    
18.     yzl = Split("Zn 65 Si 28 Pt 195 Ne 20 Na 23 Mn 55 Mg 24 Hg 201 " & _
    
19.         "He 2 Fe 56 Cu 64 Cl 35.5 Ca 40 Ba 137 Au 197 Ar 40 Al 27 " & _
    
20.         "Ag 108 S 32 P 31 O 16 N 14 K 39 I 127 H 1 F 19 C 12")
    
21.     For i = 0 To UBound(yzl) Step 2
    
22.         fzs = Replace(fzs, yzl(i), yzl(i + 1))
    
23.     Next
    
24.     fzl = Evaluate(fzs)
    
25. End Function

复制代码

分子量我不知道怎么用，请帮我改下，谢谢。

dongdonggege

cbtaja 发表于 2017-3-16 00:18
刚才又查了一下百科，KAl(SO4)2•12H2O的分子量精确值为474.388399，说明我的计算是没有错的。

找到方法了。

1. Sub 分子式分子量()
   
2. s$ = "KAl(SO4)2·12H2O"
   
3. MsgBox s & "=" & fzszh(s$) & "=" & fzl(fzszh(s$))
   
4. End Sub

复制代码

很高兴，谢谢大侠。
也有缺陷，在ppt中，这个Evaluate出现子过程或函数未定义。
另外再求大侠一个程序，我在《配平化学方程式》http://club.excelhome.net/thread-1333266-1-1.html，化学方程式能配平，但是离子方程式却没办法，如H(+) + NH4(+) + OH(-)=NH3 + H2O，配平后：H(+) + NH4(+) + 2OH(-) =NH3 + 2H2O，再如，MnO(4-) + H(+) + Cl(-) =Mn(2+)+ Cl2 + H2O，配平后：2MnO(4-) + 16H(+) + 10Cl(-) = 2Mn(2+) + 5Cl2 + 8H2O。没法解决，大侠如有兴趣的，麻烦大侠帮忙，再次感谢。

cbtaja

dongdonggege 发表于 2017-3-16 08:20
找到方法了。

很高兴，谢谢大侠。

一、在PPT中，虽然不能使用EVALUATE函数，但可以用vbs脚本的Eval函数来替代，方法如下:把31楼的代码第19行，用如下3行代码代替：

1.     Set ovbs = CreateObject("scriptcontrol")
   
2.     ovbs.Language = "vbScript"
   
3.     fzl = ovbs.Eval(fzs)

复制代码

二、演示时，可以用一维数组来记录分子式的计算步骤。所有代数式的计算过程演示都可以参照如下代码：

1. Sub 分子式分子量()
   
2. Dim a$(2) '预定义一维数组，其中包含3个Item。如果计算步骤更多，可以修改为相应数值。
   
3. a(0) = "KAl(SO4)2·12H2O" '第一步，记录原始的分子式到第1个Item
   
4. a(1) = fzszh(a(0))        '第二步，记录转换后的代数式
   
5. a(2) = fzl(a(1))          '第三步，记录计算出的分子量
   
6. MsgBox Join(a, Chr(10) & "= ")    '用换行符和"= "号，连接各步计算过程，并报告。
   
7. End Sub

复制代码

cbtaja

dongdonggege 发表于 2017-3-16 08:20
找到方法了。

很高兴，谢谢大侠。

你上面提到的化学反应(离子)方程式配平的问题，
1、其中举例的第2个离子式中，MnO(4-)是不存在的，所以你“配平”后的离子式两边的电量并不平衡；
正确的高锰酸根离子为MnO4(-)，其中的Mn为+7价，或者锰酸根离子为MnO4(2-)，其中的Mn为+6价。
正确的高锰酸根离子与浓盐酸反应的离子方程式为：
2MnO4(-)＋16H(+)+16Cl(-)=5Cl2↑＋2Mn(2+)＋6Cl(-)＋8H2O      ——方程式①

2、离子方程式的配平，首先仍要按物质的量配平，然后验算离子的电荷平衡。
比如待配平的离子式MnO4(-)+H(+)+Cl(-)=Cl2↑+Mn(2+)+H2O，要先转化成不带电荷标记的方程式MnO4+H+Cl=Cl2+Mn+8H2O，这样就可用原来的配平工具求解，得到系数的一组整数解{2,16,16,5,2,6,8}，然后代入待配平的离子式，得到结果如上面 方程式①所示，经验算，电荷平衡，确认配平成功。

yjh_27

cbtaja 发表于 2017-3-15 17:54
进一步简化自定义函数：

熟石膏一水合二硫酸钙 2CaSO₄·H₂O
2CaSO4·H2O转换后
2+Ca+S+O*4·+H*2+O

应
2*(Ca+S+O*4)+H*2+O

dongdonggege

cbtaja 发表于 2017-3-16 15:10
你上面提到的化学反应(离子)方程式配平的问题，
1、其中举例的第2个离子式中，MnO(4-)是不存在的，所以 ...

谢谢大侠，这两天家里有事，暂时没时间试验，特别感谢大侠的帮助。等事情过后，我再试验并请教大侠

cbm

感谢这么多热心大侠 尤其是cbtaja、解0人、chxw68、yjh_27为你们点赞！