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

[µo°Ý] ¦p¦ó°µ³sµ²¤ÁÂ_Åý¨C¦¸§ó·sªº¸ê®Æ¯à¤@ª½¬ö¿ý¤U¨Ó

¦^´_ 7# good

Web¬d¸ß°ò¥»¤W·|IJµoworksheet_change¨Æ¥ó
§A­n§â©pªº¬d¸ß©Ò­nªº¸ê®Æ¦b­þ­ÓÀx¦s®æ?
¨Ò¦p:³o­Ó¬d¸ßªºªí®æ½d³ò¬OA1:C7
¦ý§A©Ò»Ýªº¸ê®Æ¥u¦³C7
§A·Q±N¨C¦¸§ó·sªº¸ê®Æ³£¼g¨ìDÄæ¤@ª½©µÄò¤U¨Ó
¨º»ò¦b¸Ó¤u§@ªí¼Ò²Õworksheet_change¨Æ¥ó¼g¤Jµ{¦¡½X
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Target.Address <> "$A$1:$C$7" Then Exit Sub
  3. [D65536].End(xlUp).Offset(1, 0) = [C7]
  4. End Sub
½Æ»s¥N½X
WEB¬d¸ß.zip (9.19 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤p¨Æ¤£°µ¡B¤j¨ÆÃø¦¨¡C
ªð¦^¦Cªí ¤W¤@¥DÃD