FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread.Model 名前空間 > ICalculationSupport インタフェース : Recalculate メソッド |
'Declaration Sub Recalculate()
'使用法 Dim instance As ICalculationSupport instance.Recalculate()
void Recalculate()
DialogResult dlg; FarPoint.Win.Spread.Model.ICalculationSupport cs; fpSpread1.ActiveSheet.SetValue(0, 0, 20); fpSpread1.ActiveSheet.SetValue(0, 1, 10); fpSpread1.ActiveSheet.SetFormula(3, 0, "SUM(A1,B1)"); dlg = MessageBox.Show("Do you want to recalculate the formula?", "Recalculate", MessageBoxButtons.YesNo); if (dlg == DialogResult.Yes) { fpSpread1.ActiveSheet.AutoCalculation = false; fpSpread1.ActiveSheet.SetValue(0, 1, 100); cs = (FarPoint.Win.Spread.Model.ICalculationSupport)fpSpread1.ActiveSheet.Models.Data; cs.Recalculate(); }
Dim dlg As DialogResult Dim cs As FarPoint.Win.Spread.Model.ICalculationSupport FpSpread1.ActiveSheet.SetValue(0, 0, 20) FpSpread1.ActiveSheet.SetValue(0, 1, 10) FpSpread1.ActiveSheet.SetFormula(3, 0, "SUM(A1,B1)") dlg = MessageBox.Show("Do you want to recalculate the formula?", "Recalculate", MessageBoxButtons.YesNo) If dlg = DialogResult.Yes Then FpSpread1.ActiveSheet.AutoCalculation = False FpSpread1.ActiveSheet.SetValue(0, 1, 100) cs = FpSpread1.ActiveSheet.Models.Data cs.Recalculate() End If