Nhờ sửa code trong UserForm

[Hoangkhang01213]

- Nhờ các anh chị giúp sửa dùm em cái code khi chạy form lâu lâu nó báo lỗi Runtime error '2147352571 (80020005) với khi add số liệu bị giật màng hình. Em cảm ơn trước ạ!

 

[levant0908]

Mình test thử thấy ok lắm b, chưa thấy báo lỗi

 

[Hoangkhang01213]

Mình test thử thấy ok lắm b, chưa thấy báo lỗi

Bạn vào eveloper xem from xong cái ra bấm vào add đơn giá, thử nhập vài từ tìm kiếm là bị lổi đó ngay, mình mò mẫm mà không biết bị chổ nào hết
với nó bị như vậy là lâu lâu mới bị phải khởi động lại máy tính xong cái mở lại thì được còn tắt file mở lại vào tra đơn giá cái nó cũng bị y vậy hà
Do mình mới tự học VBA nên kỹ năng hạng chế lắm

 

[TH2]

Bạn vào eveloper xem from xong cái ra bấm vào add đơn giá, thử nhập vài từ tìm kiếm là bị lổi đó ngay, mình mò mẫm mà không biết bị chổ nào hết
với nó bị như vậy là lâu lâu mới bị phải khởi động lại máy tính xong cái mở lại thì được còn tắt file mở lại vào tra đơn giá cái nó cũng bị y vậy hà
Do mình mới tự học VBA nên kỹ năng hạng chế lắm

Thường lỗi Runtime error '2147352571 (80020005) này do

Type mismatch​

Thử thay đoạn này

Sheets("CPTN_theo_DG").Cells(LastRow2, 1) = Me.ListBox1.List(X, 0)
Sheets("CPTN_theo_DG").Cells(LastRow2, 2) = Me.ListBox1.List(X, 1)
Sheets("CPTN_theo_DG").Cells(LastRow2, 3) = Me.ListBox1.List(X, 2)
Sheets("CPTN_theo_DG").Cells(LastRow2, 4) = TextAdd  'Chèn ten khac cho san pham
Sheets("CPTN_theo_DG").Cells(LastRow2, 5) = TextAdd_Soto  'Chèn so cho san pham

thành

With Sheets("CPTN_theo_DG")
    .Cells(LastRow2, 1).Value = Me.ListBox1.List(X, 0)
    .Cells(LastRow2, 2).Value = Me.ListBox1.List(X, 1)
    .Cells(LastRow2, 3).Value = Me.ListBox1.List(X, 2)
    .Cells(LastRow2, 4).Value = TextAdd.Value  'Chèn ten khac cho san pham
    .Cells(LastRow2, 5).Value = TextAdd_Soto.Value  'Chèn so cho san pham
End With

Có thể giúp

Còn thử test thì không xẩy ra lỗi như người hỏi đã gặp

Còn nháy màn hình là do cái này nhé

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a9:a209")) Is Nothing Then
        AnDongHDTuDong
    End If
End Sub

bật tắt trong AnhDongHDTuDong
Đang tắt lại bật Application.Screen thì chắc chắn là nháy hình

 

[Hoangkhang01213]

Thường lỗi Runtime error '2147352571 (80020005) này do

Type mismatch​

Thử thay đoạn này

Sheets("CPTN_theo_DG").Cells(LastRow2, 1) = Me.ListBox1.List(X, 0)
Sheets("CPTN_theo_DG").Cells(LastRow2, 2) = Me.ListBox1.List(X, 1)
Sheets("CPTN_theo_DG").Cells(LastRow2, 3) = Me.ListBox1.List(X, 2)
Sheets("CPTN_theo_DG").Cells(LastRow2, 4) = TextAdd  'Chèn ten khac cho san pham
Sheets("CPTN_theo_DG").Cells(LastRow2, 5) = TextAdd_Soto  'Chèn so cho san pham

thành

With Sheets("CPTN_theo_DG")
    .Cells(LastRow2, 1).Value = Me.ListBox1.List(X, 0)
    .Cells(LastRow2, 2).Value = Me.ListBox1.List(X, 1)
    .Cells(LastRow2, 3).Value = Me.ListBox1.List(X, 2)
    .Cells(LastRow2, 4).Value = TextAdd.Value  'Chèn ten khac cho san pham
    .Cells(LastRow2, 5).Value = TextAdd_Soto.Value  'Chèn so cho san pham
End With

Có thể giúp

Còn thử test thì không xẩy ra lỗi như người hỏi đã gặp

Còn nháy màn hình là do cái này nhé

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a9:a209")) Is Nothing Then
        AnDongHDTuDong
    End If
End Sub

bật tắt trong AnhDongHDTuDong
Đang tắt lại bật Application.Screen thì chắc chắn là nháy hình

Cảm ơn nhiều ạ để em chinh lại code

 

[Hoangkhang01213]

Thường lỗi Runtime error '2147352571 (80020005) này do

Type mismatch​

Thử thay đoạn này

Sheets("CPTN_theo_DG").Cells(LastRow2, 1) = Me.ListBox1.List(X, 0)
Sheets("CPTN_theo_DG").Cells(LastRow2, 2) = Me.ListBox1.List(X, 1)
Sheets("CPTN_theo_DG").Cells(LastRow2, 3) = Me.ListBox1.List(X, 2)
Sheets("CPTN_theo_DG").Cells(LastRow2, 4) = TextAdd  'Chèn ten khac cho san pham
Sheets("CPTN_theo_DG").Cells(LastRow2, 5) = TextAdd_Soto  'Chèn so cho san pham

thành

With Sheets("CPTN_theo_DG")
    .Cells(LastRow2, 1).Value = Me.ListBox1.List(X, 0)
    .Cells(LastRow2, 2).Value = Me.ListBox1.List(X, 1)
    .Cells(LastRow2, 3).Value = Me.ListBox1.List(X, 2)
    .Cells(LastRow2, 4).Value = TextAdd.Value  'Chèn ten khac cho san pham
    .Cells(LastRow2, 5).Value = TextAdd_Soto.Value  'Chèn so cho san pham
End With

Có thể giúp

Còn thử test thì không xẩy ra lỗi như người hỏi đã gặp

Còn nháy màn hình là do cái này nhé

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a9:a209")) Is Nothing Then
        AnDongHDTuDong
    End If
End Sub

bật tắt trong AnhDongHDTuDong
Đang tắt lại bật Application.Screen thì chắc chắn là nháy hình

đây ạ em vào máy cty cái thao tác như trên em nói là bị ngay lỗi ngay dòng AddItem này nè anh mà không hiểu nguyên nhân sau lỗi, anh xem giúp em với

 

[TH2]

đây ạ em vào máy cty cái thao tác như trên em nói là bị ngay lỗi ngay dòng AddItem này nè anh mà không hiểu nguyên nhân sau lỗi, anh xem giúp em với

Tất cả các

... = Sheets("Data").Cell(I,1)
... = Sheets("Data").Cell(I,2)
....

Nên Đổi thành

... = Sheets("Data").Cell(I,1).Value
... = Sheets("Data").Cell(I,2).Value
....

(thêm .Value vào cuối)
Có thể đúng là hết lỗi

 

[Hoangkhang01213]

Tất cả các

... = Sheets("Data").Cell(I,1)
... = Sheets("Data").Cell(I,2)
....

Nên Đổi thành

... = Sheets("Data").Cell(I,1).Value
... = Sheets("Data").Cell(I,2).Value
....

(thêm .Value vào cuối)
Có thể đúng là hết lỗi

em cảm ơn ạ! từ lúc sửa thì thấy chưa bị như vậy nửa ạ để mai vào máy khác test lại cái nửa mới chắc ăn được