excel2007套用公式如何将这个公
Sub?进位() ????Dim?Rng?As?Range,?TheCell?As?Range ????With?ActiveSheet ????????Set?Rng?=?。Cells。SpecialCells(Type:=xlCellTypeConstants,?Value:=xlNumbers) ????End?With ????For?Each?TheCell?In?Rng ????????With?TheCell ????????????。 Value?=?WorksheetFunction。Ceiling_Precise(。Value,?0。 5) ????????End?...全部
Sub?进位() ????Dim?Rng?As?Range,?TheCell?As?Range ????With?ActiveSheet ????????Set?Rng?=?。Cells。SpecialCells(Type:=xlCellTypeConstants,?Value:=xlNumbers) ????End?With ????For?Each?TheCell?In?Rng ????????With?TheCell ????????????。
Value?=?WorksheetFunction。Ceiling_Precise(。Value,?0。
5) ????????End?With ????Next?TheCell The_Exit: ????Set?Rng?=?Nothing ????Set?TheCell?=?Nothing End?Sub。收起
