excel VBA提取工作表中单元格公式内容

答案:3 悬赏:0 手机版

解决时间 2021-12-31 04:20

提问者网友：骨子里的高雅
2021-12-30 22:48

在Excel VBA中如何提取工作表中某一单元格公式内容。例如sheet1工作表A2单元格中有一公式：=IF(A1="","",A3+A4)如何利用VBA将公式内容"=IF(A1="","",A3+A4)"存到变量如x1中，即怎样得到结果：x1="=IF(A1="","",A3+A4)"

最佳答案

五星知识达人网友：迷人又混蛋
2021-12-31 00:25

利用vba的自定义函数吧
在工作表界面作如下操作：
按Alt+F11->打开vixual basic编辑器
在打开的vixual basic编辑器窗口作如下操作：
标题栏->视图->工程资源管理器(单击打开)
插入-模块（这时会插入一个名称为“模块1”的模块)
右边出现一大片空白区域
将下述代码复制->粘贴进去:
Function Hasf(rng As Range)
If rng.HasFormula Then
Hasf = rng.Formula
Else
Hasf = ""
End If
End Function
'这样在工作表界面就可以直接用函数hasf了，跟excel内置函数一样使用
'如A2里有公式=IF(A1="","",A3+A4)
'那么B2里输入公式=hasf(A2) 确定即可

全部回答

1楼网友：动情书生
2021-12-31 01:17

x1=range("a2").formula

2楼网友：刀戟声无边
2021-12-31 01:10

用单元格的Formula属性来获取。如：x1=Range("A2").Formula

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息