[已解决]高手们帮我看看运行慢的问题

fggf

点击运作宏（判断）速度很慢，求高手帮忙看看解决办法，可改排名公式，谢谢！ 运行慢问题.zip (24.1 KB, 下载次数: 6)

2016-1-15 14:57 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

这儿有肥猫

2016-1-15 15:32

fggf 发表于 2016-1-15 15:27
好像不行，改动了分数，再执行宏时，排名无法更新

1. Sub a()
   
2. Dim arr, i&
   
3. arr = Range("A3:E" & Cells(Rows.Count, 1).End(3).Row)
   
4. For i = 1 To UBound(arr)
   
5.       If arr(i, 3) < 1 Then
   
6.           arr(i, 4) = "×"
   
7.       Else
   
8.           arr(i, 4) = "√"
   
9.       End If
   
10. Next
    
11. [a3].Resize(UBound(arr), UBound(arr, 2)) = arr
    
12. 
    
13. End Sub

复制代码

这样？

跳转到最佳答案楼层

这儿有肥猫

1. Sub a()
   
2. Dim arr
   
3. arr = [a2].CurrentRegion
   
4. For i = 2 To UBound(arr)
   
5.     If arr(i, 3) < 1 Then
   
6.        arr(i, 4) = "×"
   
7.     Else
   
8.        arr(i, 4) = "√"
   
9.     End If
   
10. Next
    
11. [a2].Resize(UBound(arr), UBound(arr, 2)) = arr
    
12.       
    
13. End Sub

复制代码

fggf

这儿有肥猫 发表于 2016-1-15 15:07

好像不行，改动了分数，再执行宏时，排名无法更新

这儿有肥猫

fggf 发表于 2016-1-15 15:27
好像不行，改动了分数，再执行宏时，排名无法更新

1. Sub a()
   
2. Dim arr, i&
   
3. arr = Range("A3:E" & Cells(Rows.Count, 1).End(3).Row)
   
4. For i = 1 To UBound(arr)
   
5.       If arr(i, 3) < 1 Then
   
6.           arr(i, 4) = "×"
   
7.       Else
   
8.           arr(i, 4) = "√"
   
9.       End If
   
10. Next
    
11. [a3].Resize(UBound(arr), UBound(arr, 2)) = arr
    
12. 
    
13. End Sub

复制代码

这样？

爱疯

建议上传  “改动了分数，再执行宏时，排名无法更新”   的excel文件

fggf

这儿有肥猫 发表于 2016-1-15 15:32
这样？

比如把第一个人的分数改为15000，按理说执行后，他会是第一名的，但是名次没变化呢

fggf

爱疯 发表于 2016-1-15 15:34
建议上传  “改动了分数，再执行宏时，排名无法更新”   的excel文件

附件是一样的，只要随便改动一个人的分数，再执行看看就可发现排名没有发生变化呢

grf1973

其实也不慢，主要是表格里有公式。只要运行代码前把自动计算关掉就行了。
Sub qcw()
    Application.Calculation = xlCalculationManual
     Application.ScreenUpdating = False
    For i = 3 To 325
    If Cells(i, 3) < 1 Or Cells(i, 3) = "" Then
      Cells(i, 4) = "×"
    Else
      Cells(i, 4) = "√"
    End If
    Next
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub

fggf

grf1973 发表于 2016-1-15 15:44
其实也不慢，主要是表格里有公式。只要运行代码前把自动计算关掉就行了。
Sub qcw()
    Application.Cal ...

这下快多了，谢谢

grf1973

4楼的最快，给4楼最佳吧。