Trong quy trình thao tác với những tập tin Excel, tôi chắc rằng sẽ không ai dám tự tin chứng minh và khẳng định rằng mình chưa từng nhập sai một tài liệu nào đó trên bảng tính đúng mực. Đúng vậy, trên trong thực tiễn, việc nhập sai tài liệu trên bảng tính không phải là hiếm .
Và để giúp những bạn hạn chế tối đa những lỗi không đáng có khi thao tác trên Excel, trong bài viết ngày hôm nay mình sẽ san sẻ với những bạn một thủ pháp nhỏ trong việc tạo cảnh báo nhắc nhở khi tất cả chúng ta nhập, hoặc biến hóa tài liệu. giá trị trên Excel với âm thanh .
Hiện tại, theo mặc định, Excel chưa hỗ trợ tính năng này. Vì vậy, để làm được điều đó, chúng ta phải thực hiện hoàn toàn bằng mã VBA.
Đọc thêm :
Mục lục
#đầu tiên. Tạo cảnh báo khi nhập sai giá trị so với giá trị yêu cầu trong Excel
+ Bước 1: Đầu tiên, hãy mở tệp Excel của bạn.
+ Bước 2: Tại đây, bạn mở tab Nhà phát triển => và chọn Visual Basic. Hoặc bạn có thể nhấn tổ hợp phím Alt + F11 để mở chương trình VBA.
+ Bước 3: Hộp thoại tiếp theo Microsoft Visual Basic for Applications hiển thị lên. Tại đây bạn mở thanh menu Insert => và chọn Module.
+ Bước 4: Sau đó sao chép đoạn mã sau….
Hàm BeepMe () As String
Tiếng kêu bíp
BeepMe = “”
Chức năng kết thúc
… Và Dán vào hộp thoại Module, trước khi nhấp vào thoát.
+ Bước 5: Sau đó nhập công thức bên dưới vào => và nhấn Enter để thực hiện.
= IF (hàm có điều kiện)>, sau đó nhập BeepMe () “”
Ví dụ, tôi sử dụng hàm: = IF (A2> 500, BeepMe () “”) để có cảnh báo âm thanh khi nhập các giá trị nếu lớn hơn 500.
Tương tự như vậy. Để tìm những giá trị nhỏ hơn hoặc bằng bạn chỉ cần thay dấu (
Hoặc xác lập một giá trị khác, sau đó thay thế sửa chữa số 500 bằng bất kể giá trị nào, của bạn trên bạn để tính hàm IF dựa trên thông tin đó .
Khi tạo công thức, bạn sẽ nhận được một ô màu trắng chứa hàm điều kiện kèm theo, lúc này bạn chỉ cần Điền công thức xuống để vận dụng cho hàng loạt list .
Sau đó nhập tài liệu thông thường vào ô tham chiếu. Lúc này bạn sẽ thấy âm thanh thông tin Open khi bạn nhập sai so với điều kiện kèm theo bạn đã đặt .
# 2. Tạo âm tùy chỉnh khi nhập sai giá trị
+ Bước 1: Với tùy chọn tùy chỉnh âm báo. Trước hết, bạn cần chuẩn bị một tập tin có định dạng Cảnh báo bằng âm thanh WAV. Và sao chép đường dẫn của thư mục chứa tệp Cảnh báo.
+ Bước 2: Sau đó, bạn nhấn Alt + F11 để mở hộp thoại Microsoft Visual Basic for Applications tại Excel => và chọn Insert => chọn Module.
+ Bước 3: Và sao chép mã sau:
#If Win64 Sau đó
Khai báo riêng Hàm PtrSafe PlaySound Lib “winmm.dll” _
Bí danh “PlaySoundA” (ByVal lpszName As String, _
ByVal hModule As LongPtr, ByVal dwFlags As Long) As Boolean
#Khác
Hàm khai báo riêng tư PlaySound Lib “winmm.dll” _
Bí danh “PlaySoundA” (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Boolean
#EndIf
Const SND_SYNC = & H0
Const SND_ASYNC = & H1
Const SND_FILENAME = & H20000
Hàm SoundMe () As String
‘Updateby Extendoffice 20161223’
Gọi PlaySound (“Đường dẫn đến file.wav“, _
0, SND_ASYNC Hoặc SND_FILENAME)
SoundMe = “”
Chức năng kết thúc
…. và Dán vào hộp thoại Module => sau đó bạn thay đổi đường dẫn đến tệp Tones của bạn => sau đó đóng hộp thoại lại Microsoft Visual Basic for Applications.
+ Bước 4: Và nhập công thức hàm bên dưới vào => và nhấn Enter để thực hiện.
= NẾU(giá trị tham khảo, giá trị so sánh ( =), giá cảnh báo, SoundMe (), “”)
Ví dụ, tôi sử dụng công thức: = NẾU (A2>500,SoundMe (), ”)
+ Bước 5: Trước khi Điền công thức xuống toàn bộ danh sách trang tính.
Và giờ đây bạn hoàn toàn có thể kiểm tra nó, giờ đây tổng thể những giá trị lớn hơn 500 khi nhập vào sẽ được Excel cảnh báo nhắc nhở bằng âm báo của bạn .
# 3. Phát ra âm thanh cảnh báo khi giá trị trong hộp điều kiện bị thay đổi
Ngoài hai cách tạo Cảnh báo có giá trị lớn hơn, nhỏ hơn và bằng nhau trong ô tham chiếu. Bạn hoàn toàn có thể sử dụng mã sau để đặt Cảnh báo khi những giá trị trong hộp điều kiện kèm theo được thêm vào hoặc đổi khác .
+ Bước 1: Bạn mở tệp Excel => sau đó nhấn Alt + F11 để mở chương trình VBA, tại đây bạn chọn Insert => và Module.
+ Bước 2: Sau đó, dán mã sau vào…
Private Sub Worksheet_Change (ByVal Target As Range)
‘Updateby Extendoffice 20161223’
Dim xCell As Range
Khi có lỗi Tiếp tục tiếp theo
Nếu Target.Columns.Count = 1 Thì
If Intersect (Mục tiêu, Cột(đầu tiên)) Không có gì sau đó
Thoát Sub
Khác
Đối với mỗi xCell trong các cột(đầu tiên)
Khi có lỗi Tiếp tục tiếp theo
Nếu (xCell.Value = Target.Value) Và (xCell.Value “”) Thì
Tiếng kêu bíp
Thoát cho
EndIf
tiếp theo
EndIf
EndIf
Kết thúc Sub
… hộp thoại Module. Sau đó, bạn thực hiện các thay đổi đối với cột tham chiếu từ A = 1, B = 2, C = 3….
+ Bước 3: Sau đó Kiểm tra thử nghiệm bằng cách nhập, hoặc thay đổi giá trị trong hộp tham chiếu, để nhận kết quả Báo động.
#4. Phần kết
Vậy là xong, mình đã hướng dẫn chi tiết cụ thể những bạn cách thiết lập Báo thức và tùy chỉnh Báo thức khi đổi khác hoặc nhập giá trị lớn hơn, nhỏ hơn hoặc bằng trên file Excel một cách thuận tiện và hiệu suất cao. Vui lòng .
Hi vọng thủ pháp nhỏ trong việc sử dụng mã VBA tạo âm thanh thông tin khi nhập sai tài liệu trên file Excel này sẽ hữu dụng với bạn. Chúc như mong muốn !
CTV: Lương Trung – phanmemdownload.com
Source: https://expgg.vn
Category: Thông tin
