如何在以下代码中添加公式转数值代码，指定工作表在备份保存时，备份文件只有计算结果

zhouyijian

Private Sub CommandButton2_Click()

Dim n As String, f As Integer

n = TextBox1.Text & "\" & Year(Now()) & "年" & Month(Now()) & "月" & Day(Now()) & "日报表"

If Dir(n & ".xlsx") <> "" Then

f = MsgBox("该工作簿已经存在，是否覆盖原文件？", 4, 工作簿存在)

If f = 7 Then

Unload Me

Exit Sub

End If

End If

Application.ScreenUpdating = False '关闭屏幕转换显示

Application.DisplayAlerts = False

Sheets("月报表").Copy

ActiveWorkbook.Close savechanges:=True, Filename:=n & ".xlsx"

UserForm2.Hide

Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub

zhouyijian

朱荣兴 发表于 2017-5-10 10:02
加一句代码即可
Private Sub CommandButton2_Click()

你好！使用INDIRECT的函数保存下来显示#REF!，我想要不管用什么函数公式所计算的结果都转为数值，请再帮帮忙，谢谢你！

zhouyijian

朱荣兴 发表于 2017-5-10 12:51
呵呵，门外汗的话

不明白你的意思？

zhouyijian

大神们帮帮忙！