★★数值→公式＋公式→数值★★（宏表＋自定义函数） 2005年5月30日更新

gzzlshjm · 发表于 2008-2-21 15:10

高手！谢谢！

N6600N · 发表于 2008-3-4 19:15

刚刚开始学，下来看看。谢过。

wlmqlw · 发表于 2008-8-12 21:31

谢谢，侠客

liurulin · 发表于 2008-9-26 09:14

谢谢，最近正在学这方面的问题

俊朱者赤 · 发表于 2008-9-26 10:16

看看，还不知道VBA怎么用

litong999 · 发表于 2009-3-7 17:54

对于大师的作品学生只有佩服和下载学习。

ExceLove · 发表于 2009-3-7 18:17

多谢分享！

枫桥夜泊lwb · 发表于 2010-9-22 07:17

谢谢分享收藏了

shidaity · 发表于 2011-12-16 15:39

支持一下，多谢

xue2683 · 发表于 2011-12-16 20:22

请问老师下面这段代码是宏表吗?

Public Function F(R As Range)
s = Replace(R.Formula, "=", "")
With CreateObject("VBSCRIPT.REGEXP")
  .Global = True
  .Pattern = "[-/\+\*\(\)\^]"
  a = Split(Trim(.Replace(s, " ")))
  End With
On Error Resume Next
For Each c In a
s = Replace(s, c, Format(Range(c), "0.00"))
Next
F = s
End Function

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