EXCEL引用带公式的单元格_绿水青山

个人资料

微博

正文字体大小：大中小

EXCEL引用带公式的单元格

(2020-05-26 14:47:00)

EXCEL引用带公式的单元格的三种方法：

1.函数的写法：

Function GS(X As Range)

' If X.Value = "" Then Exit Function

GS = "=" & Cells(X.Row, X.Column)

'ActiveCell.FormulaR1C1 = GS

End Function

或：

Public Function GS(ByVal s As String) As Variant '计算单元格的公式值

GS = Application.Evaluate(s)

End Function

或：

Public Function GS(ByVal s As String) As Variant '?????????

s = Replace(s, "[", "(")

s = Replace(s, "]", ")")

s = Replace(s, "{", "(")

s = Replace(s, "}", ")")

s = Replace(s, "×", "*")

s = Replace(s, "÷", "/")

GS = Application.Evaluate(s)

End Function

2.直接用代码：

Private Sub Worksheet_Change(ByVal Target As Range)

Cells(Target.Row, 3) = "=" & Cells(Target.Row, 1)

' Cells(Target.Row, 3) = Application.WorksheetFunction.Round(Cells(Target.Row, 3), 2)

' Cells(Target.Row, 3) = "=" & Cells(Target.Row, 1).Formula

End Sub

3.宏表函数：

EVALUATE

先定义名称，之后在引用位置中输入公式=EVALUATE(Sheet1!$A1)

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report