Code chưa hoàn thiện cần mọi người giúp (1 người xem)

[meacupa]

Mình có một đoạn code dùng để xoá các giá trị trong một hàng như sau:

Option Base 1

Private Sub CmdThoat_Click()
Unload Me
End Sub

Private Sub CmdXoa_Click()
Dim Rng As Range, sRng As Range, i&
Dim ArrF(), ArrV()
On Error GoTo Thoat
ArrF = Range(Me.RefEdit1.Value).FormulaLocal
ArrV = Range(Me.RefEdit1.Value).Value
For i = 1 To UBound(ArrF, 2)
If InStr(1, Me.TextBox1.Text, ArrV(Me.ComboBox1.Value, i)) Then
ArrF(Me.ComboBox1.Value, i) = ""
End If
Next
Thoat:
Range(Me.RefEdit1.Value).Cells(1, 1).Resize(UBound(ArrF), UBound(ArrF, 2)).Value = ArrF
Unload Me
End Sub

Private Sub RefEdit1_Change()
Dim Arr()
Dim i&
On Error Resume Next
Arr = Range(Me.RefEdit1.Value).Value
Me.ComboBox1.Clear
For i = LBound(Arr) To UBound(Arr)
Me.ComboBox1.AddItem i
Next
End Sub

Private Sub TextBox1_Change()

End Sub


Private Sub UserForm_Initialize()
Me.RefEdit1.Value = ""
End Sub


Cái này nếu chạy liên tục thì không sao nhưng nếu mình để yên không động đến máy tính nữa thì bị lỗi giống như các hình mình gửi dưới đây.

Các Pro nào biểt làm ơn khắc phục giúp mình với.

Cảm ơn các bạn.

 

[giola]

Tốt nhất bạn đưa file lên

Cái này nếu chạy liên tục thì không sao nhưng nếu mình để yên không động đến máy tính nữa thì bị lỗi giống như các hình mình gửi dưới đây.

Liên tục là sao?
và Yên không động vào máy tính là gì? nghĩa là động vào máy tính thì không bị lỗi?

 

[meacupa]

Đúng rồi bạn ah.
Nếu mình để máy đấy đi đâu đó mấy phút rồi về sử dụng code trong file đó thì bị lỗi.
Mình nghĩ cái này chắc liên quan đến RAM

 

[meacupa]

Có câu lệnh nào dùng để giải phóng bộ nhớ không các bạn nhỉ.