Cần giúp đở về VBA

[vovanthanh2602]

Chào mọi người . em cần thực hiện 1 công thức bằng vba . ví dụ : nhập data vào cột A .
- nếu trùng data thì hiển thị bảng thông báo " trùng data" và phát âm thanh thông báo
- chuổi lí tự data gồm 3 và 5 kí tự .( kí tự bất kì) . nếu nhập data vào mà độ dài kí tự khác vs 3 và 5 thì sẽ hiện bảng thông báo " sai data" và phát âm thanh thông báo
=> 1 âm thanh thông báo sử dụng chung cho ca 2 trương hợp trên .
-> em có 1 file ví dụ đính kèm . sheet 2 thì em hiển thị được bảng thông báo data trùng , sheet 3 thì em phát được âm thanh , nhưng em ko bik cach ghép lại thành 1 sheet . mong mọi người giúp đỡ ạ .

 

[VetMini]

Function VấnĐề( byVal CâuHỏi As Variant) As Object
Set VấnĐề = CreateObject( "GPE.TiêuĐềChungChungLàPhạmQuy" )
End Function