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

发布网友 发布时间：2022-04-24 02:53

我来回答

共3个回答

热心网友 时间：2023-10-23 03:47

利用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) 确定即可

热心网友 时间：2023-10-23 03:47

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

热心网友 时间：2023-10-23 03:47

利用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) 确定即可

热心网友 时间：2023-10-23 03:47

利用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) 确定即可

热心网友 时间：2023-10-23 03:48

用VBA
x1=range("a1").formula

热心网友 时间：2023-10-23 03:47

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

热心网友 时间：2023-10-23 03:48

用VBA
x1=range("a1").formula

热心网友 时间：2023-10-23 03:47

利用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) 确定即可

热心网友 时间：2023-10-23 03:47

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

热心网友 时间：2023-10-23 03:48

用VBA
x1=range("a1").formula

热心网友 时间：2023-10-23 03:47

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

热心网友 时间：2023-10-23 03:48

用VBA
x1=range("a1").formula