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

[µo°Ý] ¤£¦PÀɮ׶¡³sÄòÀx¦s®æ­È¦p¦ó§ì¨ú

[µo°Ý] ¤£¦PÀɮ׶¡³sÄòÀx¦s®æ­È¦p¦ó§ì¨ú

¦b¦P¤@¸ê®Æ§¨¤º¦³A.xls©MB.xls¨â­ÓÀɮסA¦bA.xls¶}±Ò¦ÓB.xls¤£¶}±Òªºª¬ºA¤U
­n¨ÏA.xlsªºSheetA¤u§@ªí¤WÀx¦s®æA1­È=B.xlsªºSheetB¤u§@ªí¤WÀx¦s®æA1­È
§Ú¥Î¦p¤U¼gªk

Range("a1").Formula = "='[B.xls]SheetB'!$A$1"

½Ð°Ý¦pªG¦b¬Û¦P±¡§Î¤U(A.xls¶}±Ò¦ÓB.xls¤£¶}±Ò)
¦p¦ó±NB.xlsªºSheetB¤u§@ªí¦bA¡BBÄæ¦ì¤W¦³¸ê®ÆªºÀx¦s®æ­È¼g¤JA.xlsªºSheetA¤u§@ªí¤WA¡BBÄæ¬Û¹ïÀ³Àx¦s®æ

¦^´_ 1# oao
  1. Option Explicit
  2. Sub Ex()
  3.     '¦b¦P¤@¸ê®Æ§¨¤º¦³A.xls©MB.xls¨â­ÓÀÉ®×
  4.     With Workbooks("A.xls").Sheets("A").[A:B]
  5.         .FormulaR1C1 = "=[B.xls]B!RC"
  6.         .Value = .Value
  7.         .Replace "0", "", xlWhole   '¥h±¼¨S¸ê®Æ: ¨S¸ê®Æ ->FormulaR1C1 = 0
  8.     End With
  9. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-11-21 17:15 ½s¿è

¦^´_ 2# GBKEE
°£¤F·P®¦...ÁÙ¬O·P®¦....ÁÂÁÂGBKEE¡A§x´b¸Ñ¶}¤F§Æ±æ¦³´Â¤@¤é¥i¥H¦³¯à¤O¹³ª©¤j¤@¼Ë¹ïµ{¦¡½s¼g»Ý­nÀ°§Uªº¤H°e¤W¤ä´©¡AÁöµM¸ôÁÙ«Ü»»»·......

TOP

¦^´_  GBKEE
¹ïµ{¦¡½s¼g»Ý­nÀ°§Uªº¤H°e¤W¤ä´©oao µoªí©ó 2013/11/21 16:59

´Á±æ¦³¤ß¤H¼ö¤ßªº¤ä´©
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE

½Ð°ÝGBKEE¤j

2# ¬O A.xls¶}±Ò¦ÓB.xls¤£¶}±Ò¡A±NB.xlsªº¸ê®Æ¼g¤JA.xlsªºÀx¦s®æ¤¤

¥t½Ð±Ð¡A­Y¤£¥ý¼g¤JA.xlsÀx¦s®æ¡A¥i¥Hª½±µÅª¨ìÅܼư}¦C¤¤¶Ü
¨Ò¦p B.xls¤£¶}±Ò¡Aª½±µ±N¨äAÄæ©Ò¦³ªº­ÈŪ¨ì Arr °}¦CÅܼƤ¤
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 5# ML089
ª½±µ¸m¤J°}¦C,¦³Ãø«×.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD