­ã´£³¡ªL

°ÊºAªº[©w¸q¦WºÙ] + [¶W³sµ²]
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)

¤U¸ü¦¸¼Æ: 6

2018-12-1 11:21