BV7BW

帖子: 200
主題: 22
精華: 0
積分: 234
點名: 174
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2026-9-24

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2021-8-18 17:26 | 只看該作者

[發問] 儲存格發出聲音

請教各位先進前輩

儲存格發出聲音

1)滑鼠點入""A1":A65536"中產生, 發出嗶聲"Beep"

2)滑鼠點入"A1:A65536"中帶入"C1"時發出嗶聲"Beep"

活頁簿1.zip (12.09 KB)

樓主熱帖

敏而好學,不恥下問

BV7BW

中學生 Rank: 2

帖子: 200
主題: 22
精華: 0
積分: 234
點名: 174
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2026-9-24

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

2^#

發表於 2021-8-20 18:48 | 只看該作者

請教各位先進前輩

儲存格發出聲音

1)滑鼠點入""A1":A65536"中產生, 發出嗶聲"Beep"

2)滑鼠點入 ...
BV7BW 發表於 2021-8-18 17:26

請教先進老師
這程式有誤可請先進老師幫解惑

Private Sub Worksheet_SelectionChange(ByValTargetAsRange)
         If Target.Address = "$C$1" Then
            Beep
         End If
      End Sub
編譯錯誤
事件程序的宣告與同名事件的描述不相符

敏而好學,不恥下問

TOP

BV7BW

中學生 Rank: 2

帖子: 200
主題: 22
精華: 0
積分: 234
點名: 174
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2026-9-24

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

3^#

發表於 2021-8-20 19:12 | 只看該作者

本帖最後由 BV7BW 於 2021-8-20 19:14 編輯

回復 2# BV7BW
有解開問題
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
         If Target.Address = "$C$1" Then
            Beep
         End If
End Sub
請教能整列"c"都能發聲不知改進哪裡

敏而好學,不恥下問

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2021-8-20 21:58 | 只看該作者

回復 3# BV7BW

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
         If Target.column= 3 Then
            Beep
         End If
End Sub

TOP

BV7BW

中學生 Rank: 2

帖子: 200
主題: 22
精華: 0
積分: 234
點名: 174
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2026-9-24

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

5^#

發表於 2021-8-20 23:41 | 只看該作者

回復 4# singo1232001 [/
謝謝'singo1232001 大大指導
可以運用
但有一事不明
假如不用"c"要改任何一欄.或是全部所有格
就不知要改寫??哪裡.是否有表格可查位置版本
If Target.Address = "$C$1" Then 這是"c1"格
If Target.Column = 3 Then 這是大大"c"全部格
謝謝

敏而好學,不恥下問

TOP

BV7BW

中學生 Rank: 2

帖子: 200
主題: 22
精華: 0
積分: 234
點名: 174
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2026-9-24

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

6^#

發表於 2021-8-20 23:53 | 只看該作者

回復 4# singo1232001

If Target.Column = 3 Then
是這裡? 3 Then>>>3是c>>4是d>>>5是e
這是我理解不知對否
哪全部格?或是指定"e1">>"$E$1"

敏而好學,不恥下問

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2026-5-26

7^#

發表於 2021-8-21 00:03 | 只看該作者

回復 6# BV7BW

哪全部格? >> 請測試看看，謝謝
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveSheet
Beep
End With
End Sub

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2026-5-26

8^#

發表於 2021-8-21 00:05 | 只看該作者

回復 6# BV7BW

是這裡? 3 Then>>>3是c>>4是d>>>5是e
這是我理解不知對否 >>對

TOP

BV7BW

中學生 Rank: 2

帖子: 200
主題: 22
精華: 0
積分: 234
點名: 174
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2026-9-24

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

9^#

發表於 2021-8-21 17:09 | 只看該作者

本帖最後由 BV7BW 於 2021-8-21 17:10 編輯

回復 7# samwang

謝謝 samwang 大大指導
完全工作運行
再多問1下
如需再"c4"以下發聲
也就是"c1""c2""c3"不發聲.
其餘"c4:c65535"
如何編寫
謝謝

敏而好學,不恥下問

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2026-5-26

10^#

發表於 2021-8-21 19:21 | 只看該作者

回復 samwang

謝謝 samwang 大大指導
完全工作運行
再多問1下
如需再"c4"以下發聲
也就是"c1""c2 ...
BV7BW 發表於 2021-8-21 17:09

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If .Column = 3 And .Row > 3 And .Row < 65536 Then
If Target.Value = "" Then Beep
End If
End With
End Sub

TOP