如何设置excel最高程度使用系统资源

roobinyy

每次跑VBA都会运行假死很久， 但是系统的任务管理器显示CPU、内存和硬盘都有很多空闲资源。
请教各位前辈，如何能让excel运行的时候跑满资源？
谢谢！

zpy2

代码贴出来看看，是不是复制粘贴次数太多了

roobinyy

zpy2 发表于 2019-2-20 06:58
代码贴出来看看，是不是复制粘贴次数太多了

问题不是太占系统资源
而是系统资源使用严重不足，任务管理器一直显示CPU只有60%，内存只用了100M

代码很简单 就是一个标记重复项目，
Sub 对比all()
Dim arr, brr(1 To 100000, 1 To 4)
Set d = CreateObject("scripting.dictionary")
mypath = ThisWorkbook.Path & "\"
myname = Dir(mypath & "判定记录总表.xlsx")
Set wb = Workbooks.Open(mypath & myname)
With wb
  With .Worksheets("all")
    r = .Cells(.Rows.Count, 1).End(xlUp).Row
    arr = .Range("a1:b" & r)
    For i = 2 To UBound(arr)
     d(arr(i, 2)) = i
    Next
  End With
  .Close False
End With
With Worksheets("200")
.Cells.Interior.ColorIndex = xlNone
  r = .Cells(.Rows.Count, 1).End(xlUp).Row
  arr = .Range("a1:d" & r)
  For i = 2 To UBound(arr)
   If d.exists(arr(i, 4)) Then
     .Cells(i, 4).Interior.ColorIndex = 3
   End If
  Next
End With
End Sub

zpy2

With Worksheets("200")
.Cells.Interior.ColorIndex = xlNone
r = .Cells(.Rows.Count, 1).End(xlUp).Row
arr = .Range("a1:d" & r)
For i = 2 To UBound(arr)
If d.exists(arr(i, 4)) Then
rem.Cells(i, 4).Interior.ColorIndex = 3

   if rng=nothing then
      Set rng= Cells(i, 4)

   
   else
  Set rng = Union(rng, Cells(r, 4))
   end if
End If
Next
rng.Interior.ColorIndex = 3

End With

一次上色会不会快一点？

zpy2

http://club.excelhome.net/forum.php?mod=viewthread&tid=1461674&fromguid=hot&extra=&mobile=2
参考一下这个。。

roobinyy

zpy2 发表于 2019-2-20 16:17
http://club.excelhome.net/forum.php?mod=viewthread&tid=1461674&fromguid=hot&extra=&mobile=2
参考一 ...

--!
兄弟，又不是要改代码
是要提高excel程序的运行效率  充分利用机器的资源

zpy2

roobinyy 发表于 2019-2-20 16:46
--!
兄弟，又不是要改代码
是要提高excel程序的运行效率  充分利用机器的资源

这好像不太可能的。