[µo°Ý] Àx¦s®æµo¥XÁn­µ

BV7BW

½Ð±Ð ¦U¦ì ¥ý¶i «e½ú

Àx¦s®æµo¥XÁn­µ

1)·Æ¹«ÂI¤J""A1":A65536"¤¤²£¥Í, µo¥X¹ÍÁn"Beep"

2)·Æ¹«ÂI¤J"A1:A65536"¤¤±a¤J"C1"®Éµo¥X¹ÍÁn"Beep"
¬¡­¶Ã¯1.zip (12.09 KB)

¤U¸ü¦¸¼Æ: 3

2021-8-18 17:26

BV7BW

½Ð±Ð ¦U¦ì ¥ý¶i «e½ú

Àx¦s®æµo¥XÁn­µ

1)·Æ¹«ÂI¤J""A1":A65536"¤¤²£¥Í, µo¥X¹ÍÁn"Beep"

2)·Æ¹«ÂI¤J ...
BV7BW µoªí©ó 2021-8-18 17:26

½Ð±Ð ¥ý¶i ¦Ñ®v
³oµ{¦¡¦³»~¥i½Ð ¥ý¶i ¦Ñ®vÀ°¸Ñ´b

Private Sub Worksheet_SelectionChange(ByValTargetAsRange)
            If Target.Address = "$C$1" Then
               Beep
            End If
        End Sub
½sĶ¿ù»~
¨Æ¥óµ{§Çªº«Å§i»P¦P¦W¨Æ¥óªº´y­z¤£¬Û²Å

BV7BW

¦^´_ 2# BV7BW
¦³¸Ñ¶}°ÝÃD
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
            If Target.Address = "$C$1" Then
               Beep
            End If
End Sub
½Ð±Ð ¯à¾ã¦C"c"³£¯àµoÁn¤£ª¾§ï¶i­þ¸Ì

BV7BW

¦^´_ 4# singo1232001 [/
ÁÂÁÂ'singo1232001 ¤j¤j «ü¾É
    ¥i¥H¹B¥Î
¦ý¦³¤@¨Æ¤£©ú
°²¦p¤£¥Î"c"­n§ï¥ô¦ó¤@Äæ.©Î¬O¥þ³¡©Ò¦³®æ
´N¤£ª¾­n§ï¼g??­þ¸Ì.¬O§_¦³ªí®æ¥i¬d¦ì¸mª©¥»
If Target.Address = "$C$1" Then    ³o¬O"c1"®æ
If Target.Column = 3 Then   ³o¬O¤j¤j"c"¥þ³¡®æ
   ÁÂÁÂ

BV7BW

¦^´_ 4# singo1232001

If Target.Column = 3 Then
       ¬O³o¸Ì? 3 Then>>>3¬Oc>>4¬Od>>>5¬Oe
³o¬O§Ú²z¸Ñ¤£ª¾¹ï§_
­þ¥þ³¡®æ?©Î¬O«ü©w"e1">>"$E$1"

BV7BW

¦^´_ 7# samwang

ÁÂÁ samwang ¤j¤j «ü¾É
§¹¥þ¤u§@¹B¦æ
¦A¦h°Ý1¤U
¦p»Ý¦A"c4"¥H¤UµoÁn
¤]´N¬O"c1""c2""c3"¤£µoÁn.
¨ä¾l"c4:c65535"
¦p¦ó½s¼g
ÁÂÁÂ

BV7BW

¦^´_ 10# samwang

ÁÂÁ samwang ¤j¤j «ü¾É
§¹¥þ¨ü±Ð ·PÁ§A

BV7BW

¦^´_ 10# samwang
samwang ¤j¤j §A¦n
¦A½Ð±Ð:
"B2"»P"C2"©M¨Ö¦¨"B2"Àx¦s®æ®É
¥i¥Î¥þ³¡µoÁn³oµ{¦¡

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

¦p¥u³æ¿W»Ý­n"B2"»P"C2"©M¨Ö¦¨"B2"³o®æÀx¦s®æµoÁn

¤S¦p"B4:"B65535"»P"C4:C65535"©M¨Ö¦¨"B4:B65535"®É

¦p¦ó½s¼g
  ·PÁ«ü±Ð

BV7BW

¦^´_ 14# samwang

·PÁ samwang ¤j¤j «ü¾É
²{¦b2µ{¦¡¤w´ú¸ÕÅܪk¹B¥Î§¹¦¨
ÁÂÁ§A samwang ¤j¤j «ü¾É