第2个回答 2009-10-06
打开excel 按F11 然后按F7 把下面的复制进去,然后保存。就可以了~
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target <> "" And Target.Column = 1 Then
Application.EnableEvents = False
Target = Target * 100
Application.EnableEvents = True
End If
End Sub
四楼的~~谢谢你提示~~我回去再研究下。。刚开始学习,懂的很少.