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

blue2263

µæ³æ2.rar (14.48 KB)

¤U¸ü¦¸¼Æ: 5

2020-4-24 08:29

Àɮפº,§Ú¦³©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

­ã´£³¡ªL

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

blue2263

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

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