[已解决]关于VBA change事件，请老师帮忙看看

xhczq

描述写附件里了，请老师帮忙 看看，谢谢

（现在附件里，在是中间插入空格，是没有统计总数的，可在下面重新录入后，就不对了，水平有限，请老师指导）

最佳答案

月排行榜 / 总排行榜

adders

2013-7-18 09:06

附件按你的要求:

跳转到最佳答案楼层

sliang28

这个帖子我没有回复你吗？

hwc2ycy

这样没什么意义，还废事，你没有考虑到各种非正常情况。

hwc2ycy

你的代码，是从A1往下找单元格，如果是连续情况就不会有问题，可单元格非连续输入的情况肯定就不成了。

殿堂之上

是这样不

adders

附件按你的要求:

wp8680

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim arr, k%, d
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     Application.EnableEvents = False
   
5.     Me.Range("a65536").End(xlUp).Clear
   
6.     arr = Me.Range("a2:a" & Range("a65536").End(xlUp).Row)
   
7.     For k = 1 To UBound(arr)
   
8.         d(arr(k, 1)) = d(arr(k, 1))
   
9.     Next k
   
10.     Me.Range("a65536").End(xlUp).Offset(4, 0) = "共" & d.Count & "人"
    
11.     Application.EnableEvents = True
    
12. End Sub

复制代码

xhczq

sliang28 发表于 2013-7-18 08:57
这个帖子我没有回复你吗？

谢谢老师，上次你回复我这个，可能是我没讲清楚，实际用的过程中，出现了很多状况，对不起。

真心感谢老师！！！

xhczq

hwc2ycy 发表于 2013-7-18 08:59
你的代码，是从A1往下找单元格，如果是连续情况就不会有问题，可单元格非连续输入的情况肯定就不成了。

谢谢版主，你一句话就说中了，我说为什么连续就没问题，一不连续就出问题，检查了大半天，结合下面老师写的我一下就明白了，万分感谢

xhczq

殿堂之上 发表于 2013-7-18 09:05
是这样不

谢谢你，效果非常好

一个帖只能给一个最佳，我就给楼下了，因为他的语言是我想学的

非常感谢你