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))   '定義名稱
   
7.         .Names.Add "table2", .Range(.[C14], .[C14].End(xlToRight).End(xlDown)) '定義名稱
   
8.    End With
   
9. End Sub

複製代碼

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range) '工作表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

複製代碼