返回列表 上一主題 發帖

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

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

各位大大 好:
小弟想請問,目前這個檔案是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
1.jpg
2016-9-4 16:33
2.jpg
2016-9-4 16:33

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

TOP

本帖最後由 wengin66 於 2016-9-4 19:09 編輯

有聲音.zip (10.37 KB) 回復 2# zyzzyva
請問大大,檔案裡面只有這些耶!

TOP

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

TOP

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


感謝大大指導

TOP

        靜思自在 : 能付出愛心就是福,能消除煩惱就是慧。
返回列表 上一主題