slogan
专业知识问答平台！
右击工作表标签，查看代码在VBA窗口中，双击操作的工作表，在右侧弹出窗口中贴上如下代码Private Sub Worksheet_Change(ByVal Target As Range)If Not IsNumeric(Target.Value) Then Exit SubApplication.EnableEvents = FalseTarget.Value = Target.Value * 1000Application.EnableEvents = TrueEnd Sub
©本文版权归作者所有，任何形式转载请联系我们：xiehuiyue@offercoming.com。
