分享 “直接计算公式”

收藏

其实是变通一下，呵呵，但是很有用！

Public Function onCalcFormular(ByVal formularStr As String) As String

      Dim tmpSheet As New FarPoint.Win.Spread.SheetView

      If formularStr.Trim <> "" Then
         tmpSheet.Cells(0, 0).Formula = formularStr
         Return IIf(tmpSheet.Cells(0, 0).Text = "#NAME?", "", tmpSheet.Cells(0, 0).Text)
      Else
         Return ""
      End If

End Function

ZenosZeng · ZenosZeng

很好的变通方法，非常棒，谢谢分享！

稍后我们会将该贴移到【知识库与精华区中】。

xiwu · xiwu

能否改成C#的？

ZenosZeng · ZenosZeng

回复 3楼xiwu的帖子

[code] public string onCalcFormular(string formularStr)
{
FarPoint.Win.Spread.SheetView tmpSheet = new FarPoint.Win.Spread.SheetView();
if (!string.IsNullOrEmpty(formularStr.Trim()))
{
tmpSheet.Cells[0, 0].Formula = formularStr;
return (tmpSheet.Cells[0, 0].Text == "#NAME?" ? "" : tmpSheet.Cells[0, 0].Text);
}
else
{
return "";
}
}

复制代码

[/code]

		自动登录	找回密码
密码			立即注册

分享 “直接计算公式”

3 个回复

浏览过的版块

活字格认证

微信认证勋章

元老葡萄

圣诞拼拼乐

讲师达人

悬赏达人