ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¶W³sµ²¤£©T©w

¶W³sµ²¤£©T©w

§Ú·Q­nÂI¤U¤@­¶
´N¸õ¨ì106¤U¥b¦~K1
¦bÂI¤@¦¸´N¨ì
107¤W¥b¦~Q1
¦bÂI¤@¦¸´N¨ì
107¤U¥b¦~V6
¥H¦¹Ãþ±À

¦³¤°»ò¦nªº¤èªk©O?

¦p¤U¹Ï

TEST.rar (8.34 KB)
excel¾Ç²ß¤¤!¿v¥X¹Ú·Q
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA

°Êº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)

TOP

¦^´_ 2# ­ã´£³¡ªL

ÁÂÁ¤j¤j¡A¯u¬O¤è«K¦h¤F
excel¾Ç²ß¤¤!¿v¥X¹Ú·Q
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD