Giúp mình sửa lỗi Run time Error 1004 trong Worksheet_change với (1 người xem)

[nicolastn]

Tình hình là mình mới xem viết code trên youtube và áp dụng thử nhưng do chưa học qua VBA nên không biết sai như thế nào đành nhờ các cao nhân giúp đỡ

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B8:B14")) Is Nothing Then
If Target.Count = 1 Then
Target.Offset(, 1) = "=IFERROR(VLOOKUP(rc[-1];DMSP;2;0);"""")"
Target.Offset(, 3) = "=IFERROR(VLOOKUP(rc[-3];DMSP;4;0);"""")"
Target.Offset(, 4) = "=IFERROR(rc[-2]*rc[-1];"""")"
End If
End If

End Sub
Mình xin cảm ơn trước !

 

[BuiQuangThuan]

Mình xin cảm ơn trước !

Không có file thì không biết nó sai thế nào để cho bạn xin chữ cảm ơn nữa

 

[batman1]

Target.Offset(, 1) = "=IFERROR(VLOOKUP(rc[-1];DMSP;2;0);"""")"
Target.Offset(, 3) = "=IFERROR(VLOOKUP(rc[-3];DMSP;4;0);"""")"
Target.Offset(, 4) = "=IFERROR(rc[-2]*rc[-1];"""")"

Trong 3 công thức thay tất cả các dấu chấm phẩy bằng dấu phẩy.

 

[nicolastn]

File đang làm dở đây ạ
Mong các bác giúp đỡ
Em thay dấu ; thành dấu , cũng không được

Bài đã được tự động gộp: 13/5/22

Trong 3 công thức thay tất cả các dấu chấm phẩy bằng dấu phẩy.

Đã thử nhưng không được bác ạ T_T

Bài đã được tự động gộp: 13/5/22

Không có file thì không biết nó sai thế nào để cho bạn xin chữ cảm ơn nữa

File đây bác. Em vào View Code sheet Hoadon và change worksheet để auto ĐVT, đơn giá và thanh tiền bằng vba

 

[batman1]

Em thay dấu ; thành dấu , cũng không được

Đã thử nhưng không được bác ạ T_T

Nhìn thì thấy trong các công thức ở code vẫn có y nguyên dấu chấm phẩy chứ có thay gì đâu.
Bạn đừng trích bài của tôi nữa. Tôi sẽ không bao giờ giúp bạn nữa đâu.



----------------

 

[nicolastn]

Nhìn thì thấy trong các công thức ở code vẫn có y nguyên dấu chấm phẩy chứ có thay gì đâu.
Bạn đừng trích bài của tôi nữa. Tôi sẽ không bao giờ giúp bạn nữa đâu.

View attachment 275879

----------------
View attachment 275880

Mình thử đổi dấu "," ở máy mình không được nên post file cũ chưa đổi nhờ bác giúp.

Bài đã được tự động gộp: 13/5/22

Dù sao cũng cám ơn bác đã đọc bài của mình.

 

[SA_DQ]

Cách gần cuối nè:
B1: Lập công thức trên ô nào đó của trang tính trống & phải như cháo chảy;
B2: Mở bộ thu macro lên & thực hiện thu lại hành động của bước 1
B3: Sửa lại các câu lệnh nếu có thể; bằng ngược lại thì đưa lên DĐ mà réo nhờ sửa.
Chúc thành công!

 

[nicolastn]

Cách gần cuối nè:
B1: Lập công thức trên ô nào đó của trang tính trống & phải như cháo chảy;
B2: Mở bộ thu macro lên & thực hiện thu lại hành động của bước 1
B3: Sửa lại các câu lệnh nếu có thể; bằng ngược lại thì đưa lên DĐ mà réo nhờ sửa.
Chúc thành công!

Cám ơn bác đã hướng dẫn giúp

 

[HeSanbi]

Chắc mong muốn của bạn là thế này:
công thức định vị ô RC không thể sử dụng trong code, sẽ gây sai lệch, trừ khi ô thực thi công thức phù hợp với RC

Private Sub Worksheet_Change(ByVal t As Range)
  If t.Address <> t(1, 1).MergeArea.Address Then Exit Sub
  If Intersect(t, Range("B8:B14")) Is Nothing Then Exit Sub
  On Error Resume Next
  Application.EnableEvents = False
  Dim r As Range, s$
  s = IIf(Application.DecimalSeparator = ".", ",", ";")
  Set r = t.Offset(, 1): r.Value = t.Worksheet.Evaluate("=IFERROR(VLOOKUP(" & r(1, 0).Address(0, 0, external:=1) & s & "DMSP" & s & "2" & s & "0)" & s & """"")")
  Set r = t.Offset(, 3): r.Value = t.Worksheet.Evaluate("=IFERROR(VLOOKUP(" & r(1, -2).Address(0, 0, external:=1) & s & "DMSP" & s & "4" & s & "0)" & s & """"")")
  Set r = t.Offset(, 4): r.Value = t.Worksheet.Evaluate("=IFERROR(" & r(1, -1).Address(0, 0, external:=1) & "*" & r(1, 0).Address(0, 0, external:=1) & s & """"")")
  Application.EnableEvents = True
End Sub