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

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

¦^´_ 10# samwang

ÁÂÁ samwang ¤j¤j «ü¾É
§¹¥þ¨ü±Ð ·PÁ§A
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

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

TOP

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

TOP

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

TOP

¦^´_ 14# samwang

·PÁ samwang ¤j¤j «ü¾É
²{¦b2µ{¦¡¤w´ú¸ÕÅܪk¹B¥Î§¹¦¨
ÁÂÁ§A samwang ¤j¤j «ü¾É
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD