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