返回列表 上一主題 發帖

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

donod

帖子
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 編輯

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

donod

帖子
140 
主題
24 
精華
0 
積分
167 
點名
0  
作業系統
WIN 7 
軟體版本
OFFICE 2007 
閱讀權限
20 
性別
男 
註冊時間
2012-2-26 
最後登錄
2023-1-30 
2#
發表於 2012-6-14 17:37 | 只看該作者
是否不能夠這樣?謝謝!

TOP

Hsieh

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

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

帖子
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

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

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模組輸入程式碼
  1. Public WithEvents qyt As QueryTable

  3. '查詢結束後的事件
  4. Private Sub qyt_AfterRefresh(ByVal Success As Boolean)
  5.     播放 "C:\Users\Hsieh\Documents\ringout.wav" '完成更新要播放的wav檔案
  6. End Sub

  8. Private Sub Workbook_Open()
  9.     '如果工作表 Sheet1 內已經有WEB查詢了，就將其指定給變數 qyt
  10.     If Worksheets(1).QueryTables.Count > 0 Then
  11.         Set qyt = Worksheets(1).QueryTables(1)
  12.     Else
  13.         '如果沒有可以考慮在這裡建立一個查詢,再將它指定給 qyt
  14.         '或者將 qyt 指定給其他工作表的WEB查詢（如果有需要的話）
  15.     End If
  16. End Sub
複製代碼
3.一般模組輸入以下程式碼
  1. Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrcommand As String) As Long
  2. Sub 播放(mypath)
  3. On Error Resume Next
  4. mciExecute "play " & mypath
  5. End Sub
複製代碼
4.儲存檔案，關閉後重新開啟檔案
查詢後播音.rar (16.66 KB)
學海無涯_不恥下問

TOP

donod

帖子
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

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
7#
發表於 2012-6-15 06:20 | 只看該作者
回復 5# Hsieh
以下之程式碼只能在32位元下執行，請教如果要在64位元下也能作業要如何修正？
謝謝大家！
  1. Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrcommand As String) As Long
  2. Sub 播放(mypath)
  3.       On Error Resume Next
  4.       mciExecute "play " & mypath
  5. End Sub
複製代碼

TOP

GBKEE

帖子
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
工作表 程式碼
  1. Option Explicit
  2. Dim A As String
  3. Private Sub Worksheet_Calculate()
  4.      If A <> "" Then If Mid([B6], 1, 10) <> A Then MsgBox "有新回覆"
  5.     A = Mid([B6], 1, 10)
  6. End Sub
複製代碼

工作表設置


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

TOP

        靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。
返回列表 上一主題