使用 Excel 宏在指定单元格中截断但仍允许在同一单元格中输入数据
Using Excel Macro to truncate in specified cells but still allow data entry in the same cell
我完全不熟悉 Excel 宏,但在工作中遇到了一个电子表格问题,我相信可以通过使用宏公式来解决。我需要 t运行cate 一个值(不能四舍五入)到指定单元格中的小数点后第二位。但是,要计算的值必须由第三方使用宏公式将附加到的模板电子表格输入。有没有办法将公式锁定到某些单元格,同时允许在那些将由公式更新的单元格中输入数据?我已经使用下面的宏成功地 t运行 分类单元格值,现在只需要一种方法在每次将新数据输入指定单元格时强制该宏 运行。
Sub TruncateSelection()
ActiveSheet.Range("A1:A15").Select
Dim Cell As Range
With Selection.Cells
.Value = Evaluate("IF(ROW(1:" & Selection.Cells.Count & "),TRUNC(" & .Address & ",2))")
End With
End Sub
您需要将脚本绑定到 VBA
中的 Worksheet_Change 事件
这篇 MSDN 文章应该阐明您需要做什么。
https://msdn.microsoft.com/en-us/library/office/ff839775.aspx
我完全不熟悉 Excel 宏,但在工作中遇到了一个电子表格问题,我相信可以通过使用宏公式来解决。我需要 t运行cate 一个值(不能四舍五入)到指定单元格中的小数点后第二位。但是,要计算的值必须由第三方使用宏公式将附加到的模板电子表格输入。有没有办法将公式锁定到某些单元格,同时允许在那些将由公式更新的单元格中输入数据?我已经使用下面的宏成功地 t运行 分类单元格值,现在只需要一种方法在每次将新数据输入指定单元格时强制该宏 运行。
Sub TruncateSelection()
ActiveSheet.Range("A1:A15").Select
Dim Cell As Range
With Selection.Cells
.Value = Evaluate("IF(ROW(1:" & Selection.Cells.Count & "),TRUNC(" & .Address & ",2))")
End With
End Sub
您需要将脚本绑定到 VBA
中的 Worksheet_Change 事件这篇 MSDN 文章应该阐明您需要做什么。
https://msdn.microsoft.com/en-us/library/office/ff839775.aspx