返回列表下一主題上一主題發帖

請問如何更改數值為有聲音!!!

wengin66

中學生 Rank: 2

帖子: 12
主題: 4
精華: 0
積分: 62
點名: 0
作業系統: winxp
軟體版本: sp3
閱讀權限: 20
性別: 男
註冊時間: 2012-10-22
最後登錄: 2018-11-13

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2016-9-4 16:33 | 顯示全部帖子

請問如何更改數值為有聲音!!!

各位大大好:
小弟想請問，目前這個檔案是A2或A6的數字低於100時，會發出聲音，
那請問如果當A2>A6的數字1.5倍時，或是A2<A6的數字1.5倍時，也想讓電腦發出聲音，
這應該要如何增加呢?
感謝各位大大的解惑!!!

Option Explicit
'宣告物件變數
Dim objwmplayer As Object

'播放或停止播放音樂
Sub playmusic(songpath As String, Play_Or_Stop As Boolean)
If objwmplayer Is Nothing Then auto_open
'如果 Sheet1_Change 事件傳 True 給變數 Play_Or_Stop
If Play_Or_Stop Then
      '播放 songpath 變數所指定的音樂
      objwmplayer.Open songpath
'否則
Else
      '如果目前音樂正在撥放中
      If objwmplayer.PlayState = 2 Then
         '停止播放音樂
         objwmplayer.stop
      End If
End If
End Sub

'檔案關閉時
Private Sub auto_close()
'如果你有改變程式碼 objwmplayer 變數會被重設
'底下這一個 if 判斷目的在於避免於關閉檔案時發生錯誤
If Not objwmplayer Is Nothing Then
      '如果音樂正在播放中
      If objwmplayer.PlayState = 2 Then
         '停止播放音樂
         objwmplayer.stop
      End If
End If
'釋放物件變數 objwmplayer
Set objwmplayer = Nothing
End Sub

'檔案開啟時
Private Sub auto_open()
'建立 MediaPlayer 物件
Set objwmplayer = CreateObject("MediaPlayer.MediaPlayer")
End Sub