Hsieh

¦^´_ 1# Helain

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Intersect(Target, [C6:F9]) Is Nothing Then Exit Sub
   
3. MsgBox "¿ï¨ú" & Target.Address
   
4. MsgBox "¹ïÀ³" & Application.Index([C14:F17], Target.Row - 5, Target.Column - 2).Address
   
5. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 5# Helain

§@¥Î¤¤Àx¦s®æ´N¬OActiveCell
ActiveCell.Row¨ú±o§@¥ÎÀx¦s®æ¦C¸¹
ActiveCell.Column¨ú±o§@¥ÎÀx¦s®æÄ渹

Hsieh

¦^´_ 9# luhpro

Intersect·|¶Ç¦^Rangeª«¥ó
·íª«¥óÅܼƬ°«D¹êÅ骫¥ó®É§Y¬°Nothing
©Ò¥H¡AIntersect¥²¶·¥HNothingÃöÁä¦rªí¥Ü«D¹êÅ骫¥ó
­Y¨Ï¥ÎªÅ¦r¦ê""¡A¦¹¬°¦r¦ê«¬ºA¤§µL¦r¦êªí¥Ü
©Ò¥HIntersect¨ç¼Æ­pºâµ²ªG¡A­Y¨Ï¥ÎªÅ¦r¦ê±N¶Ç¦^¸ê®Æ«¬ºA¿ù»~