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

[µo°Ý] ¦p¦ó§PÂ_,Àx¦s®æ¿ï¨ú¬O§_¦b©w¸q¦WºÙ½d³ò¤º

[µo°Ý] ¦p¦ó§PÂ_,Àx¦s®æ¿ï¨ú¬O§_¦b©w¸q¦WºÙ½d³ò¤º

µæ³æ2.rar (14.48 KB)
Àɮפº,§Ú¦³©w¸q¦WºÙ¤@ÂIÀ\°Ï,¦p¦ó§PÂ_¿ï¨úªºÀx¦s®æ,¬O§_¦b©w¸q¦WºÙ½d³ò¤º

­«ÂI·Qª¾¹D¤U­±¤å¦r¦p¦óÂà´«¬°µ{¦¡

IF  Àx¦s®æ¿ï¨ú¬O¦b©w¸q¦WºÙ½d³ò¤º  Then
      
End if

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim SelRng As Range
With Target
     Set SelRng = Intersect(Range("ÂIÀ\°Ï"), .Cells)
     If SelRng Is Nothing Then Exit Sub
     If SelRng.Address = .Address Then
        MsgBox "¿ï¨ú°Ï¦b½d³ò°Ï¤º¡I¡@"
     Else
        MsgBox "¿ï¨ú°Ï¥]§t½d³ò°Ï¥~¡I¡@"
     End If
End With
End Sub

TOP

¦^´_ 2# ­ã´£³¡ªL

¤F¸Ñ¤F,ÁÂÁ²a¤j:)

TOP

        ÀR«ä¦Û¦b : ¥ÌÄ@°µ¡BÅw³ß¨ü¡C
ªð¦^¦Cªí ¤W¤@¥DÃD