[已解决]请教个问题关于求和和显示问题

hsy873399

在单元格里面输入3.6+63.3+4.4+3  。需要显示求和的结果。。但是内容不能改变！用什么办法。。。？

最佳答案

月排行榜 / 总排行榜

liuguansky

2011-12-2 09:34

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Not Application.Intersect(Range("A:a"), Target) Is Nothing Then
   
3.         Dim r As Range
   
4.         For Each r In Target
   
5.             r.NumberFormatLocal = Mid(Application.Rept(";" & Chr(34) & Application.Evaluate(Target.Value) & Chr(34), 4), 2)
   
6.         Next r
   
7.     End If
   
8. End Sub

复制代码

请看附件效果。 15.rar (8.38 KB, 下载次数: 8)

2011-12-2 09:34 上传

点击文件名下载附件

跳转到最佳答案楼层

liuguansky

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Not Application.Intersect(Range("A:a"), Target) Is Nothing Then
   
3.         Dim r As Range
   
4.         For Each r In Target
   
5.             r.NumberFormatLocal = Mid(Application.Rept(";" & Chr(34) & Application.Evaluate(Target.Value) & Chr(34), 4), 2)
   
6.         Next r
   
7.     End If
   
8. End Sub

复制代码

请看附件效果。 15.rar (8.38 KB, 下载次数: 8)

2011-12-2 09:34 上传

点击文件名下载附件

hsy873399

liuguansky 发表于 2011-12-2 09:34
请看附件效果。

能再加一句，判断如何删除的时候不会出现错误提示的吗？就是判断数据删除的时候退出事件

liuguansky

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Not Application.Intersect(Range("A:a"), Target) Is Nothing Then
   
3.         On Error Resume Next
   
4.         Dim r As Range
   
5.         For Each r In Target
   
6.             r.NumberFormatLocal = Mid(Application.Rept(";" & Chr(34) & Application.Evaluate(Target.Value) & Chr(34), 4), 2)
   
7.         Next r
   
8.     End If
   
9. End Sub

复制代码

加句忽略错误就可以了。