ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

½Ð±Ð ¦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)
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

½Ð±Ð ¦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¤£¬Û²Å
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ BV7BW ©ó 2021-8-20 19:14 ½s¿è

¦^´_ 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­þ¸Ì
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 3# BV7BW


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

TOP

¦^´_ 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"¥þ³¡®æ
   ÁÂÁÂ
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 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"
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 6# BV7BW


  ­þ¥þ³¡®æ? >> ½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveSheet
    Beep
End With
End Sub

TOP

¦^´_ 6# BV7BW


¬O³o¸Ì? 3 Then>>>3¬Oc>>4¬Od>>>5¬Oe
³o¬O§Ú²z¸Ñ¤£ª¾¹ï§_ >>¹ï

TOP

¥»©«³Ì«á¥Ñ BV7BW ©ó 2021-8-21 17:10 ½s¿è

¦^´_ 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
ÁÂÁÂ
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_  samwang

ÁÂÁ samwang ¤j¤j «ü¾É
§¹¥þ¤u§@¹B¦æ
¦A¦h°Ý1¤U
¦p»Ý¦A"c4"¥H¤UµoÁn
¤]´N¬O"c1""c2 ...
BV7BW µoªí©ó 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

        ÀR«ä¦Û¦b : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD