LiveCode Forums.

Code: Select all

   put sGridDataA[tActiveSheet][tRowID][tColumnID]["formula"] into tCellRefs
   if tCellRefs is not empty then
      if char 1 of tCellRefs is not "=" then put "=" before sGridDataA[tActiveSheet][tRowID][tColumnID]["formula"]
      repeat for each item tItem in "=,+,-,/,*,^,<,>,sqrt,(,),if,then,put,sum,exp"
         replace tItem with cr in tCellRefs
      end repeat
      replace "$" with empty in tCellRefs
      put sGridDataA[tActiveSheet][tRowID][tColumnID]["formula"] into tValueFormula
      put empty into tTempCellRef
      repeat for each line tCellRef in tCellRefs
         if tCellRef is empty then next repeat
         switch
            case ":" is in tCellRef
               replace space with empty in tCellRef
               replace cr with empty in tCellRef
               put rangeToCells(tCellRef) into tRange
               replace ";" with comma in tRange
               replace tCellRef with tRange in tValueFormula
               put cr & rangeToCells(tCellRefs) after tTempCellRef
               break
            default
               put cr & tCellRef after tTempCellRef
               break
         end switch
      end repeat
      if char 1 of tTempCellRef is cr then delete char 1 of tTempCellRef
      replace ";" with cr in tTempCellRef
      repeat for each line tCellRef in tTempCellRef
         if tCellRef is empty then next repeat
         if tCellRef is a number then next repeat # Let numbers be calculated in formula
         put sGridDataA[tActiveSheet][item 1 of cellRefToID(tCellRef)][item 2 of cellRefToID(tCellRef)]["value"] into tCellValue
         if tCellValue is empty then put 0 into tCellValue
         if tCellValue is not a number then put false into tCanCalculate
         replace tCellRef with tCellValue in tValueFormula
      end repeat
      if char 1 of tValueFormula is "=" then delete char 1 of tValueFormula
      if tCanCalculate is not false
      then
         set the htmltext of control "CellField" of control id tCellContainerID of grp id tRowContainerID of me to value(tValueFormula)
         put value(tValueFormula) into sGridDataA[tActiveSheet][tRowID][tColumnID]["value"]
      else
         set the htmltext of control "CellField" of control id tCellContainerID of grp id tRowContainerID of me to "#VALUE!"
         put "#VALUE!" into sGridDataA[tActiveSheet][tRowID][tColumnID]["value"]
      end if
   end if