EXCEL单元格内表达式的计算

EXCEL中将单元格内的表达式转换成对应的结果值。如：A1单元格内有值“1+1+1”转换成其结果显示在B1单元格内“3”。在EXCEL的宏处添加如下脚本即可：

   Private   Sub  Worksheet_SelectionChange(ByVal Target  As  Excel.Range)
   Dim  i      As   Integer
   For  i  =   1   To  ActiveSheet.UsedRange.Rows.Count
        Cells(i,  2 ).FormulaR1C1  =   " = "   &  Cells(i,  1 )
   Next  i
   End Sub

 其上面代码中红色的值2，1对应EXCEL中的第二，一列。表示在第二列中显示第一列表达式的结果。如果需要改成显示行则只需要将Cells(i,  2 ).FormulaR1C1  =   " = "   &  Cells(i,  1 )改成Cells(2,i ).FormulaR1C1 = "=" & Cells( 1,i)即可，修改后的表达式表示将在第二行中显示第一行表达式的结果。