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

dongdonggege

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

大侠，你好，我使用的是如下的程序，好像不行，麻烦你帮忙改正，谢谢。

cbtaja

yjh_27 发表于 2017-3-16 15:10
熟石膏一水合二硫酸钙 2CaSO₄·H₂O
2CaSO4·H2O转换后
2+Ca+S+O*4·+H*2+O

谢谢指出，结合物这种分子式中可能以数字开始的情况，前面的确没有考虑到。

修复此BUG的办法：
31楼的代码第5行原来是：tmp = Split("(·+)(\d+)([^·]+) +$2*($3) ([a-zA-Z\)])(\d+) $1*$2 ([A-Z][a-z]?|\() +$1 (^|\*|\()\+ $1")，需要修改为：

1.     tmp = Split("· + (^|\++)(\d+)([^\+]+) +$2*($3) ([a-zA-Z\)])(\d+) $1*$2 ([A-Z][a-z]?|\() +$1 (^|\*|\()\+ $1 \+[\*\+] +")

复制代码

cbtaja

dongdonggege 发表于 2017-3-16 20:44
大侠，你好，我使用的是如下的程序，好像不行，麻烦你帮忙改正，谢谢。

化学方程式配平自定义函数 .rar (43.67 KB, 下载次数: 25)

2017-3-18 09:40 上传

点击文件名下载附件

dongdonggege

cbtaja 发表于 2017-3-18 09:41

大侠你好：再向您请教，无论是分子式还是化学方程式，它的数字部分都使用的是下标，如Na2SO4（分子式），NaHSO4+NaCl= Na2SO4+HCl（方程式），ZnSO4·7H2O(水合物），我想让这些分子式、化学方程式、水合物的数字部分（在英文字母后面的）变成下标，而在英文前面的数字不变。这个程序怎么写？下面是我在ppt里使用的让英文后面的数字变下标的程序，没实现英文前面数字不变，请指教。

1. Sub 数字下标()
   
2.     Set fomula = ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters
   
3.     l = Len(fomula) '计算所要编排字体长度
   
4.     fomula.Font.Subscript = False '取消原有字符的下标格式
   
5.     fomula.Font.Superscript = False '取消原有字符的上标格式
   
6.     '在选中的内容中进行循环，只要是数字，就变成下标
   
7.     For t = 1 To l
   
8.     If IsNumeric(fomula.Characters(t)) = True Then
   
9.         fomula.Characters(t).Font.Subscript = True
   
10.     End If
    
11.     Next t
    
12. End Sub

复制代码

麻烦大侠了。

cbtaja

dongdonggege 发表于 2017-4-17 13:47
大侠你好：再向您请教，无论是分子式还是化学方程式，它的数字部分都使用的是下标，如Na2SO4（分子式）， ...

1. Function subscrpt(rng As Range) '数字下标
   
2.     Dim cel As Range, reg As Object, mas As Object, ma As Object, txt$
   
3.     Set reg = CreateObject("VbScript.RegExp")
   
4.     reg.Global = True
   
5.     reg.Pattern = "(?:[a-zA-Z\)])(\d+)"
   
6.     For Each cel In rng
   
7.         txt = cel.Text
   
8.         Set mas = reg.Execute(txt)
   
9.         With cel
   
10.             .Characters.Font.Subscript = False
    
11.             .Characters.Font.Superscript = False
    
12.             For Each ma In mas
    
13.                 .Characters(ma.firstindex + 2, ma.Length - 1).Font.Subscript = True
    
14.             Next
    
15.         End With
    
16.     Next
    
17. End Function
    
18. Sub test() '举例
    
19.     subscrpt [B2:C27]
    
20. End Sub

复制代码

dongdonggege

cbtaja 发表于 2017-4-17 20:59

大侠，不好意思，打扰下，这个subscrpt没法使用，虽然大侠定义了，也给出了示范。我在excel中，一个单元格输入函数=subscrpt [B2]不能正确显示，在ppt中更不知怎么使用，能否定义为通用函数？是修改，还是提示下？
比如，我在ppt中，选择文本框的字符用fomula表示变量，这个变量实际就是“ZnSO4·7H2O”（双引号里面的）
Set fomula = ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters
怎么调用？谢谢，再次麻烦大侠了 。

dongdonggege

cbtaja 发表于 2017-4-17 20:59

成功，我就没改你那个函数了，我在你的函数（正则表达式）的基础上改为：

1. Sub 化学分子式下标()
   
2.    Set reg = CreateObject("VbScript.RegExp")
   
3.     reg.Global = True
   
4.     reg.Pattern = "(?:[a-zA-Z\)])(\d+)"
   
5.     Set txt = ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters
   
6.     Set mas = reg.Execute(txt)
   
7.     With txt
   
8.         .Font.Subscript = False
   
9.         .Font.Superscript = False
   
10.         For Each m In mas
    
11.             .Characters(m.firstindex + 2, m.Length - 1).Font.Subscript = True
    
12.         Next
    
13.     End With
    
14. End Sub

复制代码

特别感谢大侠，我试了几个成功，最主要的是英文前面的那个数字没变。

dongdonggege

cbtaja 发表于 2017-3-18 09:41

大侠，请问43楼化学方程式配平模块程序，
第122行：
aaa = Abs(Excel.Application.WorksheetFunction.MDeterm(fzsJ)) '求系数矩阵的行列式值
126行：
fzsNj = Excel.Application.WorksheetFunction.MInverse(fzsJ) '计算出系数矩阵的逆矩阵
这个Excel的矩阵和逆矩阵，在其他软件，比如ppt中不能运行。
请问搬移到ppt中这两句怎么修改？谢谢。

cbtaja

dongdonggege 发表于 2017-4-18 10:31
大侠，请问43楼化学方程式配平模块程序，
第122行：
aaa = Abs(Excel.Application.WorksheetFunction.M ...

给你一个思路：这两个Excel内置函数，实际是可用自定义函数来替代的。自定义函数，可以在支持VBA的其它程序中应用。

dongdonggege

cbtaja 发表于 2017-4-19 08:27
给你一个思路：这两个Excel内置函数，实际是可用自定义函数来替代的。自定义函数，可以在支持VBA的其它程 ...

正在学习有关vb的矩阵的加、乘、逆矩阵、矩阵行列式的值，特别是矩阵行列式的值搞不清。
只学过vba ppt，没学过vba excel，你所说的系数矩阵不懂啊，如果大侠有时间，还是请大侠搞定吧。