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

wengin66

各位大大 好:
小弟想請問，目前這個檔案是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

下載 (12.06 KB)

2016-9-4 16:33

下載 (53.89 KB)

2016-9-4 16:33

zyzzyva

回復 1# wengin66
這裡沒看到條件的設定，從註解看可能是在sheet1_change裡。

wengin66

有聲音.zip (10.37 KB)

下載次數: 11

2016-9-4 19:09

回復 2# zyzzyva
請問大大，檔案裡面只有這些耶!

zyzzyva

回復 3# wengin66
在模組上面有一個Microsoft Excel 物件，裡頭有一個sheet1，你點它就會看到條件設定的程式碼。

wengin66

回復  wengin66
在模組上面有一個Microsoft Excel 物件，裡頭有一個sheet1，你點它就會看到條件設定的程式 ...
zyzzyva 發表於 2016-9-4 20:53

感謝大大指導