回复：请宏高手来帮忙啊!

我用的是2000

我发现一个问题,我机子上有另外一个宏,加上这个就是两个了,如果只存有一个宏的话,运行都没问题,如果有两个宏存在,这个宏运行就有问题了,结果不对,宏的名字也不一样啊,不知是什么原因啊!

谁来帮忙看看呀!

上传来看看.

Sub cmdcount() 
 cows = Selection.Rows.Count 
 count1 = 0 
 count3 = 0 
 count0 = 0 
 For I = 1 To cows 
 If Selection.Cells(I, 1) = 1 Then count1 = count1 + 1 
 If Selection.Cells(I, 1) = 3 Then count3 = count3 + 1 
 If Selection.Cells(I, 1) = 0 Then count0 = count0 + 1 
 Next 
 countall = count1 + count0 + count3 
 For I = 1 To cows 
 Selection.Cells(I, 1).Next.Value = count3 / countall 
 Selection.Cells(I, 1).Next.Next.Value = count1 / countall 
 Selection.Cells(I, 1).Next.Next.Next.Value = count0 / countall 
 Next 
End Sub 






Sub autoac()

Set use = Range(Selection.Cells(1, 1), Selection.Cells _
(Selection.Rows.Count, 5)) 

CO = use.Rows.Count 

SCO = 0 
s1 = 0
S0 = 0

Set TE = Selection.Range(Cells(1, 1), Cells(1, 5))

For I = 1 To CO + 1 
 
 Y = NE(use.Cells(I, 1))
 YY = NE(TE.Cells(TE.Rows.Count, 1))
 
 If Y = YY Then
 Set TE = Application.Union(TE, Range(use.Cells(I, 1), use.Cells(I, 5)))
 Else
 TEMP = SCO / TE.Rows.Count
 TEMP1 = s1 / TE.Rows.Count
 TEMP0 = S0 / TE.Rows.Count
 
 For X = 1 To TE.Rows.Count
 TE.Cells(X, 3) = TEMP
 TE.Cells(X, 4) = TEMP1
 TE.Cells(X, 5) = TEMP0

 Next
 Set TE = Range(use.Cells(I, 1), use.Cells(I, 5))
SCO = 0
S0 = 0
s1 = 0
 End If
 If use.Cells(I, 2) = 3 Then SCO = SCO + 1
 If use.Cells(I, 2) = 1 Then s1 = s1 + 1
 If use.Cells(I, 2) = 0 Then S0 = S0 + 1
Next

End Sub


Public Function NE(IT)
If IT = "" Then
 NE = "NA"
Else
 If Len(IT) < 5 Then S = IT & String(5 - Len(IT), "0") Else S = IT
 SM = Right(S, 2) 
 SN = Left(SM, 1)
 SF = IIf(Right(SM, 1) <= 4, 0, 1)
 NE = SN & SF
End If
End Function

这两个宏我分别设置了一个按钮在菜单栏上，可是用起来第二个就会产生错误，
可以用这一组数据做个测试：
第一个宏就是选择B列的连续行就行，第二个宏选择A列的连续行就行，第二个宏还存在一个末位为零时计算错误的问题，在EXECL中，如果0.1240在单元格中，显示的是0.124，将它当作小数位为3位计算了，看有什么办法解决吗？
 A```````B
0.1233  3
0.1234  1
0.1235  0
0.1236  3
0.1237  1
0.1238  0
0.1239  3
0.1240 1
0.1241 3

来帮看看�

zsh_000,麻烦你来看看，合成一个函数我能搞定了，麻烦你再看看这个函数，好像还是有些问题哦！
Public Function NE(IT) 
If IT = "" Then 
 NE = "NA" 
Else 
 If Len(IT) < 5 Then S = IT & String(5 - Len(IT), "0") Else S = IT 
 SM = Right(S, 2) 
 SN = Left(SM, 1) 
 SF = IIf(Right(SM, 1) <= 4, 0, 1) 
 NE = SN & SF 
End If 
End Function 


你要可以选下面的数据测试一下，如果就选择前三行的话，或是前6行的话，只能出来前两行的结果，后面的就没有了，如果选择多于7行的话，结果又都是对的，另外一个问题就是37楼中提到的小数末位为零的问题，请帮忙看一下啊！
0.1233  3
0.1234  1
0.1235  0
0.1236  3
0.1237  1
0.1238  0
0.1239  3
0.1240 1
0.1241  0
0.1242  3

我实在是想不出什么好办法了，zsh_000高手，来帮看看啊

我埋头搞了很久,可还是搞不出来,zsh_000,好人做到底,帮忙解决一下吧

zsh_000,好人做到底,帮忙解决一下吧