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

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

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

Àɮפ¤¡A·íI2ªº­È¦³ÅܰʮɡA±NE2¦ÜI2ªº¤º®e°O¿ý¨ìSheet2©MSheet3¡ASheet2¥u°O¿ý³Ì·sªº¡ASheet3·|¦V¤U°O¿ý¥þ³¡¤Î­«·s¥´¶}¦¹Àɮ׮ɡA·|±µÄò°O¿ý
·íSheet3°O¿ý¨ì«ü©w¦æ¼Æ¡A·|¦V¥k²¾¡AÄ~Äò¦V¤U°O¿ý
¦ýSheet2¤]·|¦V¥k²¾¤Î°O¿ý¡A

½Ð±Ð¤j¤j¦p¦ó§ï¼g¡A¨Ï¨ìSheet2¤£·|¦V¥k²¾°O¿ý¡AÁÂÁÂ!
°O¿ý1.rar (18.9 KB)

¥»©«³Ì«á¥Ñ °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

¦^´_ 2# °a¤ªºµ

ÁÂÁ¤j¤j¡A¥i¥H¤F!

TOP

¦³­Ó­ì¦³ªº°ÝÃD¡ACell(I2)ªº¼Æ­È¬O¥Himport¤è¦¡¾É¤J¡A¨C·í¾É¤Jªº¼Æ­È©M¤§«eªº¬Û¦P¡A¤]·|IJµo¨Æ¥ó¡A
½Ð±Ð¤j¤j¡A¦p¦óÁקK¡AÁÂÁÂ!

TOP

Private Sub Worksheet_Calculate()
Dim C&, xE As Range
If [i2] = Sheet2.Range("E2") Then Exit Sub
C = Sheet3.Cells(2, Columns.Count).End(xlToLeft).Column
C = Application.Ceiling(C, 6) - 5
Set xE = Sheet3.Cells(Rows.Count, C).End(xlUp)(2)
If xE.Row > 5 Then Set xE = Sheet3.Cells(2, xE.Column + 6)
Sheet2.Range("A2:E2") = [E2:I2].Value
xE.Resize(1, 5) = [E2:I2].Value
End Sub

¦Û¦æ¬ã¨s, ¶W¹L¤u§@ªíÄæ¼Æ·|¥X¿ù..¤£°£¿ù

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

¦^´_  donod
§Ú¬Ý¿ù¤F.... ...·Ç¤jµ¹ªº   Sheet2.Range("A2:E2") = [E2:I2].Value ¤~¬O    Sheet2¥u°O¿ý³Ì ...
°a¤ªºµ µoªí©ó 2020-9-26 17:39

¨S°ÝÃD§r¡A¤]¬O¦h¾Ç¤@¤èªk¡AÁÂÁ°a¤ªºµ¤j¤j¡C¥u¬O­ì¦³ªº°ÝÃD¸Ñ¨M¤£¤F¡C
¦³­Ó­ì¦³ªº°ÝÃD¡ACell(I2)ªº¼Æ­È¬O¥Himport¤è¦¡¾É¤J¡A¨C·í¾É¤Jªº¼Æ­È©M¤§«eªº¬Û¦P¡A¤]·|IJµo¨Æ¥ó¡A
½Ð±Ð¤j ...
donod µoªí©ó 2020-9-26 01:27

TOP

Private Sub Worksheet_Calculate()
Dim C&, xE As Range
If  = Sheet2.Range("E2") Then Exit Sub
C =  ...
­ã´£³¡ªL µoªí©ó 2020-9-26 14:35

·PÁ­㴣³¡ªL¤j¤j¡A¥¿¬O³o­Ó¡C
­ì¦³ªº°ÝÃD¦p¦óÁקK?
¦³­Ó­ì¦³ªº°ÝÃD¡ACell(I2)ªº¼Æ­È¬O¥Himport¤è¦¡¾É¤J¡A¨C·í¾É¤Jªº¼Æ­È©M¤§«eªº¬Û¦P¡A¤]·|IJµo¨Æ¥ó¡A
½Ð±Ð¤j¤j¡A¦p¦óÁקK¡AÁÂÁÂ!
donod µoªí©ó 2020-9-26 01:27

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 : ¤Ó¶§¥ú¤j¡B¤÷¥À®¦¤j¡B§g¤l¶q¤j¡A¤p¤H®ð¤j¡C
ªð¦^¦Cªí ¤W¤@¥DÃD