12
返回列表 上一主題 發帖

[發問] 儲存格發出聲音

BV7BW

帖子
199 
主題
22 
精華
0 
積分
233 
點名
210  
作業系統
Vista 
軟體版本
Office2003 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2020-4-14 
最後登錄
2024-11-1 

2023年全勤獎章2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章
11# 跳轉到 »
發表於 2021-8-21 20:25 | 只看該作者
回復 10# samwang

謝謝 samwang 大大 指導
完全受教 感謝你
敏而好學,不恥下問

TOP

BV7BW

帖子
199 
主題
22 
精華
0 
積分
233 
點名
210  
作業系統
Vista 
軟體版本
Office2003 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2020-4-14 
最後登錄
2024-11-1 

2023年全勤獎章2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章
12#
發表於 2021-8-23 07:06 | 只看該作者
回復 10# samwang
samwang 大大 你好
再請教:
"B2"與"C2"和併成"B2"儲存格時
可用全部發聲這程式

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveSheet
    Beep
End With
End Sub

如只單獨需要"B2"與"C2"和併成"B2"這格儲存格發聲

又如"B4:"B65535"與"C4:C65535"和併成"B4:B65535"時

如何編寫
  感謝指教
敏而好學,不恥下問

TOP

samwang

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

BV7BW

帖子
199 
主題
22 
精華
0 
積分
233 
點名
210  
作業系統
Vista 
軟體版本
Office2003 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2020-4-14 
最後登錄
2024-11-1 

2023年全勤獎章2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章
15#
發表於 2021-8-23 08:16 | 只看該作者
回復 14# samwang

感謝 samwang 大大 指導
現在2程式已測試變法運用完成
謝謝你 samwang 大大 指導
敏而好學,不恥下問

TOP

        靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -
12
返回列表 上一主題