- 帖子
- 319
- 主題
- 6
- 精華
- 0
- 積分
- 309
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- 2k
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-6-24
- 最後登錄
- 2024-4-27
|
2#
發表於 2018-3-5 20:20
| 只看該作者
' 放 sheet 裡面
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
[B1] = Val([B1]) + 1
wav_file = "c:\Windows XP 啟動.wav"
Call sndPlaySound(wav_file, 1)
End If
End Sub |
|
