donod

中學生 Rank: 2

帖子: 140
主題: 24
精華: 0
積分: 167
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-2-26
最後登錄: 2023-1-30

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2012-6-13 20:01 | 只看該作者

[發問] 當網頁有更新，如何出聲音提示

本帖最後由 donod 於 2012-6-13 21:50 編輯

請教大大，例如當本網頁有更新/新留言，想自動出聲音提示，應該如何寫?謝謝!

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2012-6-23 12:13 | 只看該作者

回復 6# donod
工作表程式碼

Option Explicit
Dim A As String
Private Sub Worksheet_Calculate()
If A <> "" Then If Mid([B6], 1, 10) <> A Then MsgBox "有新回覆"
A = Mid([B6], 1, 10)
End Sub

複製代碼

工作表設置

外部資料查詢設定每1分鐘自動更新資料

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

7^#

發表於 2012-6-15 06:20 | 只看該作者

回復 5# Hsieh
以下之程式碼只能在32位元下執行，請教如果要在64位元下也能作業要如何修正？
謝謝大家！

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrcommand As String) As Long
Sub 播放(mypath)
On Error Resume Next
mciExecute "play " & mypath
End Sub

複製代碼

TOP

donod

中學生 Rank: 2

帖子: 140
主題: 24
精華: 0
積分: 167
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-2-26
最後登錄: 2023-1-30

6^#

發表於 2012-6-15 00:48 | 只看該作者

回復 5# Hsieh

請版大指教...

網頁更新提示1.rar (16.7 KB)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 268
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-11-2

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2012-6-15 00:00 | 只看該作者

回復 4# donod

引用沙拉油版大部落格文章
讓WEB查詢具有事件
1.先在第一張工作表建立一個Web查詢
2.Thisworkbook模組輸入程式碼

Public WithEvents qyt As QueryTable
'查詢結束後的事件
Private Sub qyt_AfterRefresh(ByVal Success As Boolean)
播放 "C:\Users\Hsieh\Documents\ringout.wav" '完成更新要播放的wav檔案
End Sub
Private Sub Workbook_Open()
'如果工作表 Sheet1 內已經有WEB查詢了，就將其指定給變數 qyt
If Worksheets(1).QueryTables.Count > 0 Then
Set qyt = Worksheets(1).QueryTables(1)
Else
'如果沒有可以考慮在這裡建立一個查詢,再將它指定給 qyt
'或者將 qyt 指定給其他工作表的WEB查詢（如果有需要的話）
End If
End Sub

複製代碼

3.一般模組輸入以下程式碼

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrcommand As String) As Long
Sub 播放(mypath)
On Error Resume Next
mciExecute "play " & mypath
End Sub

複製代碼

4.儲存檔案，關閉後重新開啟檔案

查詢後播音.rar (16.66 KB)

學海無涯_不恥下問

TOP

donod

中學生 Rank: 2

帖子: 140
主題: 24
精華: 0
積分: 167
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-2-26
最後登錄: 2023-1-30

4^#

發表於 2012-6-14 22:21 | 只看該作者

回復 3# Hsieh

之前有大大用excel可檢視網頁在線人數，所以有此想法。

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 268
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-11-2

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2012-6-14 19:46 | 只看該作者

回復 2# donod

網頁更新與EXCEL有何關聯?
這個問題似乎不應該是在EXCEL程式區發問的

學海無涯_不恥下問

TOP

donod

中學生 Rank: 2

帖子: 140
主題: 24
精華: 0
積分: 167
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-2-26
最後登錄: 2023-1-30

2^#

發表於 2012-6-14 17:37 | 只看該作者

是否不能夠這樣?謝謝!

TOP