- 帖子
- 2843
- 主題
- 10
- 精華
- 0
- 積分
- 2899
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2025-10-18
|
動態的[定義名稱] + [超連結]
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim C&
With Target.Item(1)
C = Int((.Column - 5) / 6) * 6 + 11
If C > 12 Then Cells(1, C - 12).Name = "NextCell_1"
Cells(1, C).Name = "NextCell_2"
End With
End Sub
 Xl0000401.rar (10.92 KB)
|
|
發表於 2018-12-1 11:21
| 