返回列表 上一主題 發帖

[發問] 儲存格發出聲音

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2026-5-26 
1# 跳轉到 »
發表於 2021-8-21 00:03 | 顯示全部帖子
回復 6# BV7BW


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

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2026-5-26 
2#
發表於 2021-8-21 00:05 | 顯示全部帖子
回復 6# BV7BW


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

TOP

samwang

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

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2026-5-26 
4#
發表於 2021-8-23 07:41 | 顯示全部帖子
回復 12# BV7BW

如只單獨需要"B2"與"C2"和併成"B2"這格儲存格發聲 >> 如下，請測試看看，謝謝
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
    If .Column = 2 And .Row = 2 Then
         Beep
    End If
End With
End Sub

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2026-5-26 
5#
發表於 2021-8-23 07:51 | 顯示全部帖子
回復 12# BV7BW

又如"B4:"B65535"與"C4:C65535"和併成"B4:B65535"時>> 整列
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
    If .Column = 2 Then
         Beep
    End If
End With
End Sub

TOP

        靜思自在 : 人生最大的成就是從失敗中站起來。
返回列表 上一主題