GBKEE

¦^´_ 1# Helain

1. Private Sub Workbook_Open()  'ThisWorkbook ªºµ{§Ç Àɮ׶}±Ò®É¦Û°Ê°õ¦æ
   
2.     Ex
   
3. End Sub
   
4. Private Sub Ex()             'ThisWorkbook ªºµ{§Ç
   
5.     With Sheet1
   
6.         .Names.Add "table1", .Range(.[C6], .[C6].End(xlToRight).End(xlDown))   '©w¸q¦WºÙ
   
7.         .Names.Add "table2", .Range(.[C14], .[C14].End(xlToRight).End(xlDown)) '©w¸q¦WºÙ
   
8.    End With
   
9. End Sub

½Æ»s¥N½X

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range) '¤u§@ªí1ªºµ{§Ç
   
2.     Dim R As Double, C As Double
   
3.     If Intersect(Target, [table1]) Is Nothing Then Exit Sub
   
4.     R = Target.Row - [table1].Cells(1).Row + 1
   
5.     C = Target.Column - [table1].Cells(1).Column + 1
   
6.     MsgBox "¿ï¨ú" & Target(1).Address(0, 0) & "  ¹ïÀ³ " & [table2].Cells(R, C).Address(0, 0)
   
7. End Sub

½Æ»s¥N½X