Phát tiếng khi code chạy ra giá trị yêu cầu (1 người xem)

[quanminh123]

Chả là em vừa chuyển cty, mà cty gà quá, kêu đi kiểm kê kho mà làm trên file excel, em tạo sơ sơ cái file để bắn barcode rồi, nhưng ngặt nỗi bị ở chỗ bắn barcode không có trong tồn kho thì nó k phát tiếng cảnh báo dù đã dùng VBA tạo Beepme hay Alarm rồi mà nó vẫn không kêu.
Em miêu tả file như sau:
- Cột imei thực tế là bắn vào
- Cột thừa #N/A là cột code sẵn: Vlookup Imei thực tế với cột tồn kho, không có thì nó là N/A
Cao nhân chỉ giáo em sao bắn barcode không có trong tồn kho thì nó kêu với ạ

---

 

[DeTong]

Thử thêm dòng này xem:

Application.Speech.Speak "Not find any things"

 

[quanminh123]

Thử thêm dòng này xem:

Application.Speech.Speak "Not find any things"

Phiền bác nói rõ hơn giúp em với. Thêm vào VBA đúng không bác, nhưng có add chung với code nào không hay chỉ để 1 dòng đó vào module thôi?

 

[DeTong]

Click vào cell từ A1 đến a10

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("a1:a10")) Is Nothing Then
        Application.Speech.Speak "Hello Good Morning"
    End If
End Sub

Chạy thử module này:

Sub MultiBeepAlert()
    Dim i As Integer
    For i = 1 To 3
        Beep
        Application.Wait Now + TimeValue("00:00:01")
    Next i
    MsgBox "Task alert with multiple beeps completed!"
End Sub