Báo động nhập liệu sai bằng âm thanh. (1 người xem)

[anhtuan1066]

Đoạn code dưới đây cho phép play 1 file âm thanh khi cell nhập liệu đạt được 1 điều kiện nào đó:
Đây là hàm API dùng để PlaySound

Option Explicit
Private Declare Function PlaySound Lib "winmm.dll" _
  Alias "PlaySoundA" (ByVal lpszName As String, _
  ByVal hModule As Long, ByVal dwFlags As Long) As Long

Đây là code do ta thiết lập để gọi hàm PlaySound theo điều kiện

Function Alarm(Exp, Cond)
  On Error GoTo ErrHandler
  If Evaluate(Exp & Cond) Then
    Call PlaySound("C:\WINDOWS\Media\chimes.wav", 0&, &H1 Or &H20000)
    Alarm = True: Exit Function
  End If
ErrHandler: Alarm = False
End Function

1> Ta có thể áp dụng đoạn code này để báo động khi nhập trùng (chẳng hạn)
2> Có thể save nó thành 1 Add-In để xài lâu dài cho toàn bộ file trên máy tính
Xem file ví dụ

 

[tts.spktnd]

Đoạn code dưới đây cho phép play 1 file âm thanh khi cell nhập liệu đạt được 1 điều kiện nào đó:
Đây là hàm API dùng để PlaySound

Option Explicit
Private Declare Function PlaySound Lib "winmm.dll" _
  Alias "PlaySoundA" (ByVal lpszName As String, _
  ByVal hModule As Long, ByVal dwFlags As Long) As Long

Đây là code do ta thiết lập để gọi hàm PlaySound theo điều kiện

Function Alarm(Exp, Cond)
  On Error GoTo ErrHandler
  If Evaluate(Exp & Cond) Then
    Call PlaySound("C:\WINDOWS\Media\chimes.wav", 0&, &H1 Or &H20000)
    Alarm = True: Exit Function
  End If
ErrHandler: Alarm = False
End Function

1> Ta có thể áp dụng đoạn code này để báo động khi nhập trùng (chẳng hạn)
2> Có thể save nó thành 1 Add-In để xài lâu dài cho toàn bộ file trên máy tính
Xem file ví dụ

Cảm ơn bạn về bài viết.... xong dữ liệu của tôi là: tự động cập nhật theo thời gian ( hoàn toàn không nhập liệu từ bàn phím, dữ liệu được tải từ nguồn dữ liệu trên mạng vào một cell của file )
Tôi muốn khi cell đó có giá trị >10 thì máy tự động phát chuông báo.......

 

[PhanTuHuong]

Cảm ơn bạn về bài viết.... xong dữ liệu của tôi là: tự động cập nhật theo thời gian ( hoàn toàn không nhập liệu từ bàn phím, dữ liệu được tải từ nguồn dữ liệu trên mạng vào một cell của file )
Tôi muốn khi cell đó có giá trị >10 thì máy tự động phát chuông báo.......

Bạn cứ nghiên cứu cái Validation đi, tiện dụng hơn.

 

[dongphuong99]

Bạn nói rõ hơn xíu được ko? Mình đã add in no vào excell rồi mà nó vẫn ko chạy?

 

[asean_911]

đọc nhưng chưa hiểu lắm. bạn có thể giải thích kĩ hơn được không?

 

[tts.spktnd]

Cảm ơn bạn về bài viết..... Tôi đã làm theo hướng các bạn chỉ dẫn mà vẫn không được.
Tôi gửi file nhập liệu theo thời gian của tôi để các bạn có thể giúp tôi được tốt hơn.
Thanks.

 

[hieupk81]

vẫn hóng các cao nhân

 

[minhtri 2009]

Xin chào mọi người, chúc mọi người cuối tuần vui!

Nhân đọc chủ đề BÁO ĐỘNG NHẬP LIỆU BẰNG ÂM THANH, xin mọi người cho em xin ké vấn đề của em với.

chuyện là em có FILE ĐÓNG THÙNG (em đã gởi file đính kèm), yêu cầu của em là :
Dữ liệu của cột A được nhập bằng đầu đọc BARCODE nên tự động xuống dòng mỗi khi quét mã vạch.
Yêu cầu là các số mã vạch của các dòng phải giống nhau nếu khác nhau là sai thì Cột B ở dòng tương ứng sẻ báo động bằng MÀU ĐỎ, giúp em thêm phần âm thanh theo kiểu C:\Windows\Media" chord ".
Ở cột C cho đếm số dòng nếu số lượng 1 dòng bằng với số lượng cho trước ở cột B1 thì báo là "ĐỦ THÙNG" , giúp em thêm phần âm thanh theo kiểu C:\Windows\Media" flourish ".
Yêu cầu cuối của em là có cách nào để file em nhẹ hơn không?! " công thức nhiều quá nên máy chạy chậm lắm"

Mọng mọi người giúp em với em chân thành cám ơn!

 

[luunguyenducthinh]

File của mình cần 2 điều kiện :
1. Nhập liệu vào ô thì phát âm thanh => đã làm được bằng code trên
2. Nhập trùng dữ liệu thì phát âm thanh khác => chưa làm được. Các bạn hướng dẫn mình với.

 

[VetMini]

Tư tưởng báo động nhập liệu bằng âm thanh là tư tưởng không thực tế.
Chả nhẽ 5 ngừoi làm việc chung phòng cứ nghe 5 cái máy inh ỏi như chợ cá à?

 

[doveandrose]

Tư tưởng báo động nhập liệu bằng âm thanh là tư tưởng không thực tế.
Chả nhẽ 5 ngừoi làm việc chung phòng cứ nghe 5 cái máy inh ỏi như chợ cá à?

không anh ạ , văn phòng đâu có cho phép mở loa ngoài , mỗi máy phải cắm tai nghe , nên không có chợ cá ạ

 

[luunguyenducthinh]

Các bạn trong văn phòng đương nhiên là không cần phải âm thanh, nhưng đối với khâu sản xuất (tại kho xưởng chẳng hạn) thì việc này là cần thiết. Việc máy tính một nơi và đầu quét mã vạch một nơi nếu không có âm báo thì chẳng cách nào xác định được là dữ liệu có được nhập vào hay không.

 

[VetMini]

Các bạn trong văn phòng đương nhiên là không cần phải âm thanh, nhưng đối với khâu sản xuất (tại kho xưởng chẳng hạn) thì việc này là cần thiết. Việc máy tính một nơi và đầu quét mã vạch một nơi nếu không có âm báo thì chẳng cách nào xác định được là dữ liệu có được nhập vào hay không.

Chính cái máy quét nó lên tiếng. Để cho phần mềm của máy tính lên tiếng là thiết kế dở.

 

[VetMini]

Khi phê bình với câu "không thực tế", ý tôi muốn nói rằng Excel vốn bản tính là một bảng tính trải rộng. Những thêm thắt ngoài nhiệm vụ này chỉ là hình thức mỏng bề ngoài.

Trong trường hợp nhập liệu với mức độ cao, mọi thêm thắt vào Excel trở thành gượng ép. Nếu cơ quan làm việc với mức độ cao thì dĩ nhiên thu nhập cũng phải cao. Giải pháp thực tế là tìm những phần mềm chuyên nghiệp mà áp dụng.

 

[long88lng]

Đoạn code dưới đây cho phép play 1 file âm thanh khi cell nhập liệu đạt được 1 điều kiện nào đó:
Đây là hàm API dùng để PlaySound

Option Explicit
Private Declare Function PlaySound Lib "winmm.dll" _
  Alias "PlaySoundA" (ByVal lpszName As String, _
  ByVal hModule As Long, ByVal dwFlags As Long) As Long

Đây là code do ta thiết lập để gọi hàm PlaySound theo điều kiện

Function Alarm(Exp, Cond)
  On Error GoTo ErrHandler
  If Evaluate(Exp & Cond) Then
    Call PlaySound("C:\WINDOWS\Media\chimes.wav", 0&, &H1 Or &H20000)
    Alarm = True: Exit Function
  End If
ErrHandler: Alarm = False
End Function

1> Ta có thể áp dụng đoạn code này để báo động khi nhập trùng (chẳng hạn)
2> Có thể save nó thành 1 Add-In để xài lâu dài cho toàn bộ file trên máy tính
Xem file ví dụ

Bạn cho hỏi có đoạn code này copy vào và chạy thế nào vậy?