能不能在同一个单元格内加入VBA模块的三个变量?

比如现在B1单元格内填入=aa(a1)这样就可以
但是我还有两个VBA模块的两个变量想加进去
比如=aa(a1),=ab(a1),=ac(a1)
单独用都可以，不知道怎么写法同一个单元格能同时用到这3个变量.
对Excel接触不深，还望大神解答，不尽感激，谢谢！！

=aa(a1)&","&ab(a1)&","&ac(a1)

多谢楼上吧主回贴！
能不能三个变量作用到一个结果上？
=aa(a1)&","&ab(a1)&","&ac(a1) 这样好像用逗号把结果分隔成了3种
我a1单元格是计算工式的，b1是输出结果的
那三个VBA模块变量是作用于a1输出的结果上，比如=aa(a1)这样就可以
但我还有ab,ac这两个变量不知道怎么加上去，单独都可以的
还望全能的Excel大神解答，小弟先拜谢了。

借用一下老吧主写的function
参考
Function ab(t As Range)
Dim stex$
stext = Replace(Replace(Replace(Replace(CStr(t.Value), "×", "*"), "÷", "/"), "[", ""), "]", "")
With CreateObject("VBSCRIPT.REGEXP")
.Global = True
.Pattern = "[\u4e00-\u9fa5]"
ab = Application.Evaluate(.Replace(stext, ""))
End With
End Functio

5楼的自定义函数可以进化一下
Function eva(Rng As Range)
Set x = CreateObject("MSScriptControl.ScriptControl")
x.Language = "vbscript"
With CreateObject("VBSCRIPT.REGEXP")
.Global = True
.Pattern = "\[.*?\]|{(.*?)}|[^0-9.+-/^*()]"
eva = x.Eval(.Replace(Replace(Replace(Rng.Text, "÷", "/"), "×", "*"), "$1"))
End With
End Function
两个好处
1 字符串长度可以超过256
2 允许有英文或数字型备注例如 10[L]×5[W]×2[H]

zipall 吧主，你是说要手动用鼠标选定中间数字内容后染成红色？
有没有方法输入算式后，输出结果就可以达到我需要的结果？
也就是数字部分的红色的，这个可以实现吗，能不能解答下，谢谢了！

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

10回复贴，共1页

<<返回excel吧

分享到:

日	一	二	三	四	五	六