方法和数据成员未找到

fanyoulin

HDK123 发表于 2019-6-20 14:27
老师们帮优化下代码，窗体刚学，不是太会

你那几个子过程我没看，因为你也没有用它们做具体事情。我就看了按钮控件的过程，这个填充数据的循环你用了三次，不需要的，一次就够了：
Application.ScreenUpdating = False
a = TextBox1.Value
b = TextBox4.Value
c = TextBox2.Value
For i = 1 To [a65536].End(3).Row
    If Cells(i, 1).Interior.ColorIndex = 3 Then
       Cells(i, 3) = a
    End If
    If Cells(i, 1).Interior.ColorIndex = 6 Then
       Cells(i, 3) = b
    End If
    If Cells(i, 1).Interior.ColorIndex = 14 Then
       Cells(i, 3) = c
    End If
Next i
Unload Me
Application.ScreenUpdating = true

搭配 ScreenUpdating=false，这样速度应该能更快点。

fanyoulin

HDK123 发表于 2019-6-20 14:37
1秒不到估计你没等它运行完吧，刚开始学窗体，也不太清楚这样写对不对

我前面回复了一个帖子，需要审核。再写一次，或许能直接通过：
1、总数据3000多我都看了，我电脑确实1秒不到；
2、三个循环可以合为一个，并搭配Application.ScreenUpdating = false,应该能提高性能：
Application.ScreenUpdating = False
a = TextBox1.Value
b = TextBox4.Value
c = TextBox2.Value
For i = 1 To [a65536].End(3).Row
    If Cells(i, 1).Interior.ColorIndex = 3 Then
       Cells(i, 3) = a
    End If
    If Cells(i, 1).Interior.ColorIndex = 6 Then
       Cells(i, 3) = b
    End If
    If Cells(i, 1).Interior.ColorIndex = 14 Then
       Cells(i, 3) = c
    End If
Next i
Application.ScreenUpdating = True
Unload Me

Yalishanda30

HDK123 发表于 2019-6-20 14:07
麻烦帮忙优化下代码，自己不懂，瞎搞的，感觉运行速度太慢

附件供参考

HDK123

Yalishanda30 发表于 2019-6-20 14:44
附件供参考

好像还慢，不过方法可以学习，感谢