VBA模板修改字符数限制

4652525446 · 发表于 2022-5-24 11:57

本帖最后由 4652525446 于 2022-5-24 13:36 编辑

本人有一模块，用于带文字计算数字计算式，如截图所示，但是当计算式总字符数超过255位时，就不能计算了，请大神帮忙修改，或者发一个同类型功能的代码，要求能计算的字符数要很多：

代码如下：

Function LL(JSS, Optional X) '返回计算公式的值或值的计算公式
Dim S%, E%
Dim JS As String
If JSS = "" Then
LL = ""
Else
If IsMissing(X) Then '返回计算公式的值
If Left(JSS.Value, 1) = "=" Then
JSS = Mid(JSS, 2)
End If
Do Until InStr(1, JSS, "【") = 0
S = InStr(1, JSS, "【")
E = InStr(1, JSS, "】")
JSS = Left(JSS, S - 1) & Mid(JSS, E + 1)
Loop
LL = Evaluate("=" & JSS)
ElseIf X = 2 Then '返回值的计算公式或可计算的表达式或值本身
If JSS.HasFormula = True Then
LL = Mid(JSS.Formula, 2)
Else
If IsNumeric(Evaluate(JSS.Value)) = True Then
LL = JSS.Value
Else
JS = JSS.Value
Do Until InStr(1, JSS, "【") = 0
S = InStr(1, JSS, "【")
E = InStr(1, JSS, "】")
JSS = Left(JSS, S - 1) & Mid(JSS, E + 1)
Loop
If IsNumeric(JSS) = True Or IsNumeric(Evaluate(JSS)) = True Then
LL = JS
End If
End If
End If
End If
End If
End Function

游乐缘 · 发表于 2022-5-24 13:14

本帖最后由游乐缘于 2022-5-24 13:27 编辑

自定义函数中的Evaluate方法允许的最大字符数是255，所以当计算式过长时则报错。

游乐缘 · 发表于 2022-5-24 13:28

游乐缘发表于 2022-5-24 13:14
自定义函数中的Evaluate方法允许的最大字符数是255，所以当计算式过长时则报错。

运算符号都是+号，对吗？还是包含其他运算符号

4652525446 · 发表于 2022-5-24 13:37

游乐缘发表于 2022-5-24 13:28
运算符号都是+号，对吗？还是包含其他运算符号

+没问题，您说的255位是对的，有办法突破255位的限制吗？

游乐缘 · 发表于 2022-5-24 14:22

4652525446 发表于 2022-5-24 13:37
+没问题，您说的255位是对的，有办法突破255位的限制吗？

如果是同一运算符的话，比如说都是加号，可以用split以+拆分计算式存入数组，然后在数组循环相加即可。

naroto · 发表于 2022-5-24 15:01

Function LL(JSS, Optional X) 'ｷｵｻﾘｼﾆﾋ羯ｫﾊｽｵﾄﾖｵｻｵｵﾄｼﾆﾋ羯ｫﾊｽ
Dim S%, E%
Dim JS As String
If JSS = "" Then
LL = ""
Else
If IsMissing(X) Then 'ｷｵｻﾘｼﾆﾋ羯ｫﾊｽｵﾄﾖｵ
If Left(JSS.Value, 1) = "=" Then
JSS = Mid(JSS, 2)
End If
Do Until InStr(1, JSS, "｡ｾ") = 0
S = InStr(1, JSS, "｡ｾ")
E = InStr(1, JSS, "｡ｿ")
JSS = Left(JSS, S - 1) & Mid(JSS, E + 1)
Loop
a = Len(JSS)
Select Case a
Case Is < 248
LL = Evaluate("=" & JSS)
Case Is < 494
LL = Evaluate(Mid(JSS, 1, 247)) + Evaluate(Mid(JSS, 248, Len(JSS) - 247))
Case Is < 986
LL = Evaluate(Mid(JSS, 1, 247)) + Evaluate(Mid(JSS, 248, 246)) + Evaluate(Mid(JSS, 495, Len(JSS) - 494))
End Select
ElseIf X = 2 Then 'ｷｵｻﾘﾖｵｵﾄｼﾆﾋ羯ｫﾊｽｻﾉｼﾆﾋ羞ﾄｱ昻・ｽｻｵｱｾﾉ・
If JSS.HasFormula = True Then
LL = Mid(JSS.Formula, 2)
Else
If IsNumeric(Evaluate(JSS.Value)) = True Then
LL = JSS.Value
Else
JS = JSS.Value
Do Until InStr(1, JSS, "｡ｾ") = 0
S = InStr(1, JSS, "｡ｾ")
E = InStr(1, JSS, "｡ｿ")
JSS = Left(JSS, S - 1) & Mid(JSS, E + 1)
Loop
If IsNumeric(JSS) = True Or IsNumeric(Evaluate(JSS)) = True Then
LL = JS
End If
End If
End If
End If
End If
End Function

复制代码

naroto · 发表于 2022-5-24 15:03

测试见附件

perfect131 · 发表于 2022-5-24 15:17

htmlfile

测量同仁 · 发表于 2024-12-13 14:26

		自动登录	找回密码
密码			免费注册

[求助] VBA模板修改字符数限制

评分