[µ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

¦^´_ 14# samwang

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

samwang

¦^´_ 12# BV7BW

¤S¦p"B4:"B65535"»P"C4:C65535"©M¨Ö¦¨"B4:B65535"®É>> ¾ã¦C
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
    If .Column = 2 Then
         Beep
    End If
End With
End Sub

samwang

¦^´_ 12# BV7BW

¦p¥u³æ¿W»Ý­n"B2"»P"C2"©M¨Ö¦¨"B2"³o®æÀx¦s®æµoÁn >> ¦p¤U¡A½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
    If .Column = 2 And .Row = 2 Then
         Beep
    End If
End With
End Sub

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

¦^´_ 10# samwang

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

samwang

¦^´_  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

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
ÁÂÁÂ

samwang

¦^´_ 6# BV7BW


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

samwang

¦^´_ 6# BV7BW


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