Board logo

標題: [發問] 儲存格發出聲音 [打印本頁]
作者: BV7BW    時間: 2021-8-18 17:26     標題: 儲存格發出聲音

請教 各位 先進 前輩

儲存格發出聲音

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

2)滑鼠點入"A1:A65536"中帶入"C1"時發出嗶聲"Beep"
[attach]33908[/attach]
作者: BV7BW    時間: 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
編譯錯誤
事件程序的宣告與同名事件的描述不相符
作者: BV7BW    時間: 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"都能發聲不知改進哪裡
作者: singo1232001    時間: 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
作者: BV7BW    時間: 2021-8-20 23:41

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

回復 4# singo1232001

If Target.Column = 3 Then
       是這裡? 3 Then>>>3是c>>4是d>>>5是e
這是我理解不知對否
哪全部格?或是指定"e1">>"$E$1"
作者: samwang    時間: 2021-8-21 00:03

回復 6# BV7BW


  哪全部格? >> 請測試看看，謝謝
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveSheet
    Beep
End With
End Sub
作者: samwang    時間: 2021-8-21 00:05

回復 6# BV7BW


是這裡? 3 Then>>>3是c>>4是d>>>5是e
這是我理解不知對否 >>對
作者: BV7BW    時間: 2021-8-21 17:09

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

回復 7# samwang

謝謝 samwang 大大 指導
完全工作運行
再多問1下
如需再"c4"以下發聲
也就是"c1""c2""c3"不發聲.
其餘"c4:c65535"
如何編寫
謝謝
作者: samwang    時間: 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
作者: BV7BW    時間: 2021-8-21 20:25

回復 10# samwang

謝謝 samwang 大大 指導
完全受教 感謝你
作者: BV7BW    時間: 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"時

如何編寫
  感謝指教
作者: samwang    時間: 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
作者: samwang    時間: 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
作者: BV7BW    時間: 2021-8-23 08:16

回復 14# samwang

感謝 samwang 大大 指導
現在2程式已測試變法運用完成
謝謝你 samwang 大大 指導



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)