½Ð°ÝÀx¦s®æ¬Û¹ïÀ³°ÝÃD...

steven

½Ð°Ý¦p½d¨Ò¤¤..
½Ð°Ý¦pC1=B2¡KD1=B3¡KE1=B4                                       

·í§Ú©óC1¨ìCZ1Äæ¦ì¿é¤J¤å¦r¦ÓB2¨ìB99·|¬Û¹ïÀ³­n¦p¦ó¼g¤JVBA¤¤                                       
½Ð¦U¦ì«ü¾ÉÁÂÁÂ...

steven

·PÁ¤G¦ìª©¤j¼ö¤ß«ü¾É¤p§ÌÁÂÁÂ

GBKEE

¦^´_ 1# steven

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Application.EnableEvents = False
   
3.     If Not Intersect(Target, Range([C1], [CZ1])) Is Nothing Then [B2].Offset(Target.Column - 3) = Target
   
4.     Application.EnableEvents = True
   
5. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 1# steven

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Application.EnableEvents = False
   
3. ar = Range([C1], [IV1].End(xlToLeft)).Value
   
4. [B2].Resize(UBound(ar, 2), 1) = Application.Transpose(ar)
   
5. Application.EnableEvents = True
   
6. End Sub

½Æ»s¥N½X