Mọi người giúp mình sửa Lỗi đoạn Code này với . (1 người xem)

[ngoyeubebu]

Mình vào sheet Hóa Đơn rồi nhấn Nhập Mới thì nó lỗi hàng loạt, hiện hàng loạt các số ) trên Sheet.
Ban đấu mình viết code cho sheet Hóa Đơn là

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [H11:H29]) Is Nothing Then
Target.Offset(, 1).Value = Target.Offset(, -1).Value * Target.Value
[I30].Value = Evaluate("=sum(I11:I29)")
[I33].Value = [I30].Value - [I31].Value - [I32].Value
End If


If Not Intersect(Target, [I31:I32]) Is Nothing Then
[I30].Value = Evaluate("=sum(I11:I29)")
[I33].Value = [I30].Value - [I31].Value - [I32].Value
End If
End Sub

Khi viết code như trên thì ấn Nhập Mới không có lỗi , nhưng khi mình viết thêm đoạn code( màu xanh) thì lại phát sinh lỗi trên. Mọi người giúp mình với

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [H11:H29]) Is Nothing Then
Target.Offset(, 1).Value = Target.Offset(, -1).Value * Target.Value
[I30].Value = Evaluate("=sum(I11:I29)")
[I33].Value = [I30].Value - [I31].Value - [I32].Value
End If
If Not Intersect(Target, [G11:G29]) Is Nothing Then
Target.Offset(, 2).Value = Target.Offset(, 1).Value * Target.Value
[I30].Value = Evaluate("=sum(I11:I29)")
[I33].Value = [I30].Value - [I31].Value - [I32].Value
End If
If Not Intersect(Target, [I31:I32]) Is Nothing Then
[I30].Value = Evaluate("=sum(I11:I29)")
[I33].Value = [I30].Value - [I31].Value - [I32].Value
End If
End Sub

 

[ndu96081631]

Bạn có 2 lựa chọn:
- Hoặc là sửa lại tiêu đề cho đàng hoàng
- Hoặc là vào đây post bài:
http://www.giaiphapexcel.com/forum/showthread.php?85576-Chuyên-mục-xử-lý-gỡ-rối-code-VBA
Vậy đi nha!
Bạn đã được nhắc 1 lần tại đây:
http://www.giaiphapexcel.com/forum/...ọi-người-giúp-mình-sửa-lỗi-này-với&highlight=
Sao vẫn tái phạm nhỉ?