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

[µo°Ý] Ãö©ó¦Û°Ê¶K¤W³sµ²¦Ü¥t¤@­ÓÀɮרæ۰ʴ¡¤J¶W³sµ²

¥»©«³Ì«á¥Ñ stillfish00 ©ó 2015-5-6 16:14 ½s¿è

¦^´_ 30# starry1314
©I¥s¸Ó¥¨¶°ªº«ö¶s¡A¸Ó«ö¶s¥ª¤W¨¤®y¼Ð©Ò¦bÀx¦s®æªº¦æ¼Æ
¬O®Ú¾Ú«È¤á¸ê®Æ¤é´Á§PÂ_¡A©Ò¥H4/23¶]§¹·|¶K¨ì¥|¤ë¤u§@ªí
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¥»©«³Ì«á¥Ñ starry1314 ©ó 2015-5-6 16:59 ½s¿è

¦^´_ 31# stillfish00

¤F¸Ñ~·PÁ»¡©ú

    ½Ð°Ý§A¥Îªº³o²Õ¥N½X¥i¥H¸Õ¶]¦¨¥\¶Ü?§Ú¥Î¤@ª½¨S¦³¤ÏÀ³,¤]¨S»¡¥X¿ù~¤£ª¾¸Ó±q­þ§ä°ÝÃD

TOP

¦^´_ 32# starry1314
¥i¥H¡A¶}±Ò¨âÀɮױҥΥ¨¶°¡A«ö­Ó§O«È¤áªºÂà¸m-·~°È«ö¶s
¥|¤ë¤u§@ªí´N¦³¸ê®Æ¤F
ªþ¥ó:
¦Û°Ê´¡¤J¶W³sµ².zip (431.58 KB)
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¥»©«³Ì«á¥Ñ starry1314 ©ó 2015-5-6 22:07 ½s¿è

¦^´_ 33# stillfish00


®¦...­ì¨Ó¬O¼gªº¤Ó¯«¤F¡I¡I²@µL¤ÏÀ³´N¤w¸g¶K§¹¤F¡C¡C¡C¡C

·PÁ¡ã

·Q½Ð°Ý¤@¤U§A­Ì¬O«ç»ò§PÂ_¦p¡@Windows("«È¤á©ú²Ó-·~°È±M¥Î.xlsm").Activate
­n¦Awindows«á¤è¥[¤W¦UºØ°ÊºA©Î«ü¥O,§A­Ì¬O«ç»ò§PÂ_­þºØ«ü¥O¸Ó«ç»òªí¥Ü ¦p =  ,() ,"" .[]  ©Î¬O­nÅý¥LŪ¨ú°ÊºA ¦pLPK¤j¤j¦A26F©Ò¦^ÂЪº
A2.­Y¦bQ3°µ²M³æ³o¤]¬O¤@­Ó¦n¤èªk¡A¨äÅܼƪ½«ü¥¦´N¥i¥H¦p¡Gxxx=Range("Q3") ©Îxxx=[Q3]<<³o¸Ì­n¥Î¤¤¬A¸¹(§AÀɮפ¤ªº²Ä¤@­Ó¥¨¶°¥Î¤p¬A¸¹´N¤£¹ï¤F)¡A¤S©Î¬Oxxx=Cells(3,"Q")¡A"¤£¬Ocells(Q3)"

©Î¬O¦³¤°»ò«Øijªº®ÑÄy¦³¦AÁ¿¸ÑÃö©ó³oºØªº»¡©ú©O...®Ñ§½ªº®Ñ³£¬O½d¨Ò·Óªí¾Þ½Ò ¤@ª½¸òµÛ°µ¦Ó¤w.....¨S¦³¸û¸Ô²ÓÁ¿¸Ñ³oºØªº,¹ï«Ü¦h«ü¥O³£¤@ª¾¥b¸Ñ¡I¦b³o­ÓÀÉ®×·|¥Î¡ã¦A¥t¤@­Ó¤èªkªºÀÉ®×´N¤£·|°µÅܳq¤F¡C¡C¡C

TOP

¦^´_ 29# stillfish00


½Ð°Ý­n«ç»ò«ü©wsheet©O?¦]§Ú®M¥Î¦b§OªºÀÉ®×,µo²{¥L³£¬OŪ¨ú²Ä¤@­Ó¤u§@ªíªº¸ê®Æ

§Ú·Q­n½Æ»sªº¸ê®Æ¤u§@ªí¦WºÙ= ¦¬´Ú¸ò¶Ê

TOP

¥»©«³Ì«á¥Ñ starry1314 ©ó 2015-5-7 09:53 ½s¿è

¦^´_ 35# starry1314

1.
    Range(.Cells(lSourceRow, "A"), .Cells(lSourceRow, "P")).Copy wsTarget.Cells(lTargetRow, "B") '½Æ»s¶K¤W¸Ó¦æ¸ê®Æ
­×§ï¬°
Range(.Cells(lSourceRow, "¦¬´Ú¸ò¶Ê!A"), .Cells(lSourceRow, "P")).Copy wsTarget.Cells(lTargetRow, "¦¬´Ú¸ò¶Ê!B") '½Æ»s¶K¤W¸Ó¦æ¸ê®Æ

µLªk°õ¦æ..

2.
Worksheets("¦¬´Ú¸ò¶Ê").Range(.Cells(lSourceRow, "A"), .Cells(lSourceRow, "P")).Copy wsTarget.Cells(lTargetRow, "B") '½Æ»s¶K¤W¸Ó¦æ¸ê®Æ
ÁÙ¬O²Ä¤@­Ó¤u§@ªíªº¸ê®Æ

TOP

¦^´_ 35# starry1314
§A«ç»ò®M¥Îªº???
µ{¦¡½Æ»s¨Ó·½ªº¬O·í«eªº¤u§@ªíActiveSheet
¦]¬°§Aªº'¦¬´Ú¸ò¶Ê'¤u§@ªí¤¤¸Ó¸ê®Æ¦æ¦³«ö¶s
«ö¶sIJµo®ÉªºActiveSheet´N¬O¦¬´Ú¸ò¶Ê¤u§@ªí
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¥»©«³Ì«á¥Ñ starry1314 ©ó 2015-5-7 10:25 ½s¿è

¦^´_ 37# stillfish00


  ±N§A´£¨Ñªº¥¨¶°«ü¥O¶ñ¼g¨ì¥t¤@­Ó§t¦h­Ó¤u§@­¶ªº­Ó§O«È¤á©ú²Ó¤º,(¸Ì­±¦P¼Ë¦³¤@­Ó¦¬´Ú¸ò¶Ê¤@¼Ò¤@¼Ëªº)
¥t¦¹¦¬´Ú¸ò¶Êªº¸ê®Æ¬O¥Î³sµ²¨ú¨ì¥XÀ\³æ¤ºªº¸ê®Æ,¦n¹³¶K¨ì·~°È©ú²Ó¤º¦pªG¦b²Ä2­Ó¥L³sµ²·|¤@ª½ÅÜ°Ê, ,©Ò¥H¤~¥[¤W³sµ²,
¥t¥i¥H¶K¤W³sµ²»P¶W³sµ²¶Ü? ­nÅý·~°È©ú²Ó¤ºªº¸ê®Æ¦P¨B¸òµÛ­Ó§O«È¤á©ú²Ó§ó·s

2015-05-07_101123.jpg
2015-5-7 10:11

TOP

¦^´_ 37# stillfish00


   «á¨Ó§Ú±N¦h­Ó»Ý­n°Ñ·Óªº¤u§@ªí²¾°Ê¨ì[½d¨Ò-´¡¤J¶W³sµ²],°õ¦æ«ö¶s´N¥i¥H¥¿½TŪ¨ú¸ê®Æ¤F,
¦ý·Q½Ð°Ý«ç»òÅý¥L¥i¥H¶K¤W³sµ²¦Ó¤£¬O¶K¤W­È©O?

¤W¤@­Ó¥¨¶°¥i¥H¶K¤W³sµ²
¤£ª¾¸Ó«ç»ò§ó´«¼gªk®M¤J§Aªº¥¨¶°,Åý¥L¶K¤Wªº®É­Ô¥i¥H¶K¤W³sµ²
  1. Sub ¶K¤W¸ê®Æ¦Ü_·~°ÈºÞ²z()
  2. '
  3. ' ¶K¤W¸ê®Æ¦Ü_·~°ÈºÞ²z ¥¨¶°
  4. '
  5.   
  6.     Range("A3:P3").Copy
  7.     Windows("«È¤á©ú²Ó-·~°È±M¥Î.xlsm").Activate
  8.     EndRow = Windows("«È¤á©ú²Ó-·~°È±M¥Î.xlsm").ActiveSheet.Range(Cells(Rows.Count, "A").End(xlUp).Address).Row + 1  '©Ò¦³¨Ï¥Î¤¤ªº¦C¼Æ+1
  9.     Windows("«È¤á©ú²Ó-·~°È±M¥Î.xlsm").ActiveSheet.Cells(EndRow, "A").PasteSpecial Paste:=xlPasteValues '¥Ø«e¨Ï¥Î¤¤ªº¤À­¶,ªº³Ì¤U¤èªÅ¥Õ¦C¶K¤W­È
  10.     ActiveSheet.Paste Link:=True
  11.     Application.CutCopyMode = False
  12.     ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=ThisWorkbook.Path & "\" & ThisWorkbook.Name

  13. End Sub
½Æ»s¥N½X

TOP

¦^´_ 37# stillfish00


   Ãö©óÂIÀ»«ö¶s«á½Æ»sªº¸ê®Æ¨Ã¤£¬O¦b·í«eªºSHEET,¤@ª½§ì¨ú¨ì¥t¤@­Ósheet
  ­è­è»¡§â¤À­¶½Æ»s¨ì­Ó§O«È¤á©ú²Ó,¦³¦¨¥\§ì¨ú¹ïªº¸ê®Æ
¦ý¤§«á¦A¶}±Ò¥L¤S¬O§ì¨ì§OSHEETªº¸ê®Æ¤F...

TOP

        ÀR«ä¦Û¦b : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD