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

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

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

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

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

Book1.rar (1.68 KB)

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

TOP

¦^´_ 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

TOP

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¥ÌÄ@°µ¡BÅw³ß¨ü¡C
ªð¦^¦Cªí ¤W¤@¥DÃD