64位excel2013中运行不了此代码（计算带注释的公式-不限长度）

runzy · 发表于 2015-12-18 20:57

本帖最后由 runzy 于 2015-12-19 19:30 编辑

在线等............急！急！急！32位excel2010中能运行的VBA代码，在64位excel2013中运行不了，跪求各位高手大侠老师帮助!（此VBA代码可以计算带注释公式）
Function A(c As Range)
p = c.Text
For j = 1 To Len(p)
F:
If (Mid(p, j, 1) = "【") Then
      For i = j + 1 To Len(p)
      If (Mid(p, i, 1) = "】") Then
      j = i + 1
      Exit For
      End If
      Next
   End If
If (Mid(p, j, 1) = "【") Then
GoTo F
End If
r = r + Mid(p, j, 1)
Next
If (r <> "") Then
With CreateObject("MSScriptControl.ScriptControl")
      .Language = "vbscript"
      A = .Eval(r)
End With
' A = Application.Evaluate("(" & r & ")")
Else
A = ""
End If
End Function

runzy · 发表于 2015-12-20 22:44

没人知道吗？等高手

lzxdy · 发表于 2015-12-21 07:34

runzy 发表于 2015-12-20 22:44
没人知道吗？等高手

既然比较急，不妨提供更多信息，有助于问题解决：
1，运行不了，有什么出错提示信息？
2、上传能说明问题产生的附件，这点非常重要。

runzy · 发表于 2015-12-21 11:44

lzxdy 发表于 2015-12-21 07:34
既然比较急，不妨提供更多信息，有助于问题解决：
1，运行不了，有什么出错提示信息？
2、上传能说明问 ...

没有任何提示，单元格计算时出现值错误

lzxdy · 发表于 2015-12-21 13:20

runzy 发表于 2015-12-21 11:44
没有任何提示，单元格计算时出现值错误

出现值错误，有可能是自动计算刷新问题，你可以用其它方法试试有变化没得。
（这个可以参考试一下：http://club.excelhome.net/thread-969660-1-1.html，须将其中【、】换一下。）

runzy · 发表于 2015-12-21 14:43

谢谢这个公式我用过但是有长度限制超出长度后公式将不能计算

lzxdy · 发表于 2015-12-21 16:55

runzy 发表于 2015-12-21 14:43
谢谢这个公式我用过但是有长度限制超出长度后公式将不能计算

如有的公式超过256个字符，代码中可加一个判断，对超过256个字符的分成两段计算后再计算即可。

runzy · 发表于 2015-12-21 16:59

难道只能退回到32位的office2010吗！有没有高手知道这个问题啊

runzy · 发表于 2015-12-21 17:56

顶一下希望别沉的太快

joforn · 发表于 2015-12-22 10:42

"MSScriptControl.ScriptControl" 好像暂时不支持64位

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

[求助] 64位excel2013中运行不了此代码（计算带注释的公式-不限长度）