Giúp hoàn chỉnh file Quản lý bán hàng = Excel

[anhlong]

Tình hình là em thường xuyên cập nhật các công thức tối ưu cho file XNT thân thuộc. Nhưng bây giờ em chèn cái code này vô không được nửa rồi (bị lỗi Ambiguous name detected: Worksheet_Change).
Mọi người nhín chút t xem file & ảnh giúp Long xem có thể sửa code hay sửa name như thế nào được với.

Nó thực sự rất cần thiết cho công việc quản lý hàng ngày của em. Mong anh chị em giaiphapexcel giúp Long hoàn chỉnh code bên dưới này vào file Excel đính kèm để thỏa những điều kiện mà em có ghi rỏ ràng trong file.

Private Sub Worksheet_Change(ByVal Target As Range)
    
    On Error Resume Next
    If Not Intersect(Target, Range("D:D")) Is Nothing Then _
        If Target.Offset(, 1) <> "" Then _
            If Range("f2") <= 0 Then _
                Call sndPlaySound32("C:\da_het_hang.wav", 0)
    
    If Not Intersect(Target, Range("E:E")) Is Nothing Then _
        If Target.Offset(, -1) <> "" Then _
            If Range("f2") <= 0 Then _
                Call sndPlaySound32("C:\da_het_hang.wav", 0)
End Sub

 

[ChanhTQ@]

Bạn tạm thời vô hiệu hóa dòng lệnh

On Eror Rếum Next

Xem thử chương trình có lỗi nào không đã?

Thấy câu lệnh IF của bạn đây là lần đầu trong đồi đó! Sao khiếp thế không biết!

 

[anhlong]

Bạn tạm thời vô hiệu hóa dòng lệnh

On Eror Rếum Next

Xem thử chương trình có lỗi nào không đã?

Thấy câu lệnh IF của bạn đây là lần đầu trong đồi đó! Sao khiếp thế không biết!

Đã đổi file khác ,Anh ChanhTQ quay lại giúp Long với

Cái Code trên kia là của thầy anhtuan1066 cho đó mà (Trước giờ Long vẫn xài rất tốt khi nhập hàng nào vừa hết là nó báo động kêu lên liền. Nhưng bị đụng cái Code mới .Mà cái nào cũng quan trọng nên nhờ anh hoàn thiện dùm)

 

[anhlong]

Có ai cho mình biết tại sao bài mình không được trả lời với ?

 

[Thay]

Tình hình là em thường xuyên cập nhật các công thức tối ưu cho file XNT thân thuộc. Nhưng bây giờ em chèn cái code này vô không được nửa rồi (bị lỗi Ambiguous name detected: Worksheet_Change).
Mọi người nhín chút t xem file & ảnh giúp Long xem có thể sửa code hay sửa name như thế nào được với.
View attachment 75081
Nó thực sự rất cần thiết cho công việc quản lý hàng ngày của em. Mong anh chị em giaiphapexcel giúp Long hoàn chỉnh code bên dưới này vào file Excel đính kèm để thỏa những điều kiện mà em có ghi rỏ ràng trong file.

Private Sub Worksheet_Change(ByVal Target As Range)
    
    On Error Resume Next
    If Not Intersect(Target, Range("D:D")) Is Nothing Then _
        If Target.Offset(, 1) <> "" Then _
            If Range("f2") <= 0 Then _
                Call sndPlaySound32("C:\da_het_hang.wav", 0)
    
    If Not Intersect(Target, Range("E:E")) Is Nothing Then _
        If Target.Offset(, -1) <> "" Then _
            If Range("f2") <= 0 Then _
                Call sndPlaySound32("C:\da_het_hang.wav", 0)
End Sub

Tôi thấy file của bạn công thức tại ô F2 đã bị xóa, tôi đã tạo lại công thức.

 

[Good-Luck]

Đã đổi file khác ,Anh ChanhTQ quay lại giúp Long với

Cái Code trên kia là của thầy anhtuan1066 cho đó mà (Trước giờ Long vẫn xài rất tốt khi nhập hàng nào vừa hết là nó báo động kêu lên liền. Nhưng bị đụng cái Code mới .Mà cái nào cũng quan trọng nên nhờ anh hoàn thiện dùm)

hai ham cung ten biet thuc hien ham nao, may tuy may thông minh đôi lúc cũng hơi bị kém thông minh đột xuất