ªð¦^¦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 : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD