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

[µo°Ý] °O¿ý°ÝÃD

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2020-9-25 20:33 ½s¿è

¦^´_ 1# donod
  §Ú§âÅܼƦs¦bSheets(1).Cells(2, 1)Àx¦s®æ ¤£ª¾¹D¬O¤£¬O§A­nªº
¦ý¼gªk¸ò§A¤£¤@¼Ë §Ú¤]¶¶«K½m²ß¤@¤U ¦³ªÅ¦b¬Ý¬Ý§a

javascript:;

°O¿ý092501.rar (23.63 KB)

TOP

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2020-9-25 21:09 ½s¿è

¦^´_ 1# donod

¦pªG  ¥u¬O­n­×§ï  ´N§ï³o¼Ë ¦ý¬O §Aªº Public i% ÅÜ¼Æ ¦³¤@­Ó°ÝÃD ´N¬OÃö³¬Àɮ׫á ÅܼƷ|®ø¥¢
ı±o Sub auto_open() ¦³ÂI³Â·Ð  ©Ò¥H¤~ª½±µ¦s¨ìÀx¦s®æ
     With Sheet2
     Set A = .Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 5)

TOP

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2020-9-26 17:41 ½s¿è

¦^´_ 5# donod
§Ú¬Ý¿ù¤F.... ...·Ç¤jµ¹ªº   Sheet2.Range("A2:E2") = [E2:I2].Value ¤~¬O    Sheet2¥u°O¿ý³Ì·sªº  ...©êºp  >"<

TOP

¦^´_ 8# donod


    ·Ç¤j¤w¸gµ¹§Aµª®×¤F If [i2] = Sheet2.Range("E2") Then Exit Sub
§Ú¤£¬O¤j¤j §Ú¤]¬O·s¤â §Ú¤]ÁÙ¦b¾Ç²ß ...¦³®É¶¡´N·|¨Ó³o¸Ì §äÃD¥Ø½m²ß  ^_^

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD