EXCEL中将单元格内的表达式转换成对应的结果值。如:A1单元格内有值“1+1+1”转换成其结果显示在B1单元格内“3”。在EXCEL的宏处添加如下脚本即可:
其上面代码中红色的值2,1对应EXCEL中的第二,一列。表示在第二列中显示第一列表达式的结果。如果需要改成显示行则只需要将Cells(i, 2 ).FormulaR1C1 = " = " & Cells(i, 1 )改成Cells(2,i ).FormulaR1C1 = "=" & Cells( 1,i)即可,修改后的表达式表示将在第二行中显示第一行表达式的结果。
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
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)即可,修改后的表达式表示将在第二行中显示第一行表达式的结果。