【說明】
如果在執行程式碼的過中，讓系統可出現警示音，提醒使用者某事件被觸發了，必須小心或進行額外的判斷，程式碼不難但多一道系統提醒讓使用者多一分注意。
 

20231029 警示聲音與畫面.png

 

【程序碼】
1.先點選你想要執行的工作表(紅框處)，然後物件名稱選取Worksheet
 

[VBA] 常用程式碼系列29-Vba發出 嗶嗶聲

2.事件名稱選取Change

[VBA] 常用程式碼系列29-Vba發出 嗶嗶聲

 
3.輸入以下程式碼
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("B1").Value > 10 Then
Beep
MsgBox "系統出現警示音", , "警示視窗"
End If
 
End Sub
 
【程序碼解說】
Private Sub Worksheet_Change(ByVal Target As Range) 當工作表變更時,執行
If Range("B1").Value > 10 Then 如果異動的是儲存格B1，且輸入值大於10時
Beep 系統發出警示音
MsgBox "系統出現警示音", , "警示視窗" 系統跳出警示警示視窗
End If
 
End Sub 
 
謝謝您閱讀了我的文章，若您喜歡我的文章，希望您幫我按個「讚」，也幫忙分享給需要的朋友或其他平台，謝謝。
 
 
20180128 黑.png

arrow
arrow
    文章標籤
    Excel VBA 巨集 警示音 發出聲音 BEEP
    全站熱搜

    黑天使 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄