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

¨ç¼ÆÅçÃҨþã¦X¸ê®Æ

§â¤£¦PÀɮפWªºÄæ¦ì¤º®e¾ã¦X

·Q½Ð°Ý¤j¤j
¦pªG§Ú²{¦b¦³A¡BB¡BC¤T­Ó¥H¤W¤£¦PÀÉ®×
·Q­n¦bDÀɮפW¾ã¦X³o¤T¥÷ÀɮפW¬Û¦PªºÄæ¦ì
¥Ø«e§Ú³o¸Ì¥u¯à±N¸ê®Æ¾ã¦X
¦ý¬O¤£¯à§PÂ_¦³­«ÂЪº¸ê®Æ

§Ú¨ç¼Æªº¤è¦¡¬O¼g
  1. =IF('D:\´ú¸Õ\[¤u§@¸ê®Æ_A.xls]Á`ªí2'!F3 &'D:\´ú¸Õ\[¤u§@¸ê®Æ_B.xls]Á`ªí2'!F3&&'D:\´ú¸Õ\[¤u§@¸ê®Æ_C.xls]Á`ªí2'!F3="","",'D:\´ú¸Õ\[¤u§@¸ê®Æ_A.xls]Á`ªí2'!F3 &'D:\´ú¸Õ\[¤u§@¸ê®Æ_B.xls]Á`ªí2'!F3&&'D:\´ú¸Õ\[¤u§@¸ê®Æ_C.xls]Á`ªí2'!F3)
½Æ»s¥N½X
³o¼Ë¦pªG¦³­«ÂЪº¸ê®Æ³£·|¤@¦¸¤W¥h
ÁÙ¬O»¡¦³¿ìªk¥ÎVBA¥h§ó·s¥Ø«eÄæ¦ì¤W·sªº¸ê®Æ?

ÀYµh¤¤>¤f<~
§Æ±æ¦³¤j¤jªº«Øij~·P¿E¤£ºÉ!!
Jared

TOP

¦^´_ 1# Jared


    ³o¦ìª©¤Í±z¦n¡A
°Q½×°Ï¤¤«Ü¦h°ª¤â·|À°¦£¸Ñ¨M°ÝÃD¡A
¦ý¬O§Ú·Q  ¦p¦ó³¯­z°ÝÃD¬O«Ü­«­nªº¤@Àô¡A
¦pªG§Aªºª«¥óÀɮׯà°÷¤W¶Ç¡AÅý¤j®a¬Ý¤@¤U°ÝÃD¦b­þ¸Ì¡A§Ú·Q¤j®a·|©¼¦¹¶i¨Bªº§ó§Ö¡C

TOP

¨ç¼ÆÅçÃҨþã¦X¸ê®Æ

¥»©«³Ì«á¥Ñ Jared ©ó 2013-7-23 12:17 ½s¿è

·Q½Ð°Ý¤j¤j
§Ú¼g¤F¤@­Ó²³æªº¨ç¼ÆÅçÃÒ§PÂ_
¥Ø«e¦³A¡BB¨â­ÓExcelªí
§Q¥Î¥t¥~¤@­ÓExcel¤Wªº¨ç¼Æ¥h§P§O¨â­Ó¤£¦PÀÉ®×Äæ¦ìªº¸ê®Æ
¨Ã¥B¾ã¦X°_¨Ó
  1. =IF('D:\¤u§@Á`ªí´ú¸Õ2\[A.xls]Sheet1'!A2="","",IF('D:\¤u§@Á`ªí´ú¸Õ2\[B.xls]Sheet1'!A2="","",IF('D:\¤u§@Á`ªí´ú¸Õ2\[A.xls]Sheet1'!A2<>"",'D:\¤u§@Á`ªí´ú¸Õ2\[A.xls]Sheet1'!A2,IF('D:\¤u§@Á`ªí´ú¸Õ2\[B.xls]Sheet1'!A2<>"",'D:\¤u§@Á`ªí´ú¸Õ2\[B.xls]Sheet1'!A2,IF('D:\¤u§@Á`ªí´ú¸Õ2\[A.xls]Sheet1'!A2='D:\¤u§@Á`ªí´ú¸Õ2\[B.xls]Sheet1'!A2,'D:\¤u§@Á`ªí´ú¸Õ2\[A.xls]Sheet1'!A2,IF('D:\¤u§@Á`ªí´ú¸Õ2\[A.xls]Sheet1'!A2<>'D:\¤u§@Á`ªí´ú¸Õ2\[B.xls]Sheet1'!A2,"¸ê®Æ¦³»~","Àˬd¤@¤U¸Óµ§Äæ¦ì¸ê®Æ!!"))))))
½Æ»s¥N½X
¦ý¬O³o¼Ëªº¼gªk
µ{¦¡¥u·|§PÂ_¨ä¤¤¤@­ÓÀÉ®×
¨Ã¤£·|¨â­ÓÀɮ׶i¦æÀˬd

ÁÙ¬O¦³¨ä¥L§ó¦nªº¤è¦¡¥h¶i¦æ¸ê®ÆÅçÃÒ&¾ã¦X©O?
·P¿E¤£ºÉ!! >//<
¤u§@Á`ªí´ú¸Õ2.zip (23.61 KB)
Jared

¦^´_ 3# Jared
¦p¦ó¾ã¦X°_¨Ó,¥i¦b»¡²M·¡¨Ç¶Ü?
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 4# GBKEE


©Ò¿×¾ã¦X¸ê®Æ´N¬O»¡
°²³]²{¦b¦³A¡BB¨â­ÓÀÉ®×
¤À§O¥Ñ¤H­û¥Ò(A)¡B¤H­û¤A(B)¨Ï¥Î
¦Ó¾ã¦X¸ê®Æ³o¥÷Excel¬O¥Ñµ¡¤f¨Ï¥Î

·íµ¡¤f±µ¦¬¨ì¤@µ§¸ê°T
·|±N°T®§¶ñ¼g¦bA±Æ½s¸¹1
½s¸¹1ªºB&C±Æ¨â­ÓÄæ¦ìªº¸ê®Æ¶ñ¼g¥i¯à´Nµ¹¥Ò¤H­û
µ¡¤f±µ¦¬¨ì²Ä¤Gµ§¸ê°T
·|±N½s¸¹¤GªºB&C±Æªº¸ê®Æ¥æµ¹¤A¤H­û¶ñ¼g

¦Óµ¡¤f´N¬O­nÀ˵ø¾ã¦X¸ê®Æ³o¥÷ÀÉ®×
§Q¥Î¨ç¼Æ¥hÂ^¨úA¡BB³o¨â¥÷¸ê®Æ¨Ã¾ã¦X°_¨Ó
¬°¤F©È¤H­û¶ñ¿ùÄæ¦ì
©Ò¥H¤~²K¥[ÅçÃÒ¨â¤è¸ê®Æªº¬Û¦P©Ê

¦ý¬O¥Ø«e¨ç¼ÆÅçÃÒªº³¡¤À
¨S¿ìªk¦P®ÉÅçÃÒ¨â­ÓÀÉ®×
¤£ª¾¹D¦³¨S¦³¨ä¥L¤è¦¡¥i¥H¸Ñ¨M??
Jared

TOP

¥»©«³Ì«á¥Ñ stillfish00 ©ó 2013-7-23 15:31 ½s¿è

¦^´_ 5# Jared
³o¼Ë»¡·|²M·¡ÂI¡A¬O³o¼Ë§a¡H

¨âÀÉ®×Àx¦s®æ­È         >>         ¾ã¦X«áªº­È
---------------------------------------------
¬Û¦P                               >>         ¥ô¤@­È
AÀɺ|¶ñ(ªÅ¥Õ)            >>         ¨úBÀÉ­È
BÀɺ|¶ñ(ªÅ¥Õ)            >>         ¨úAÀÉ­È
¤£¬Û¦P                          >>         Åã¥Ü "¸ê®Æ¦³»~"


¦A¨Ó´N¬O...ÀÉ®×½T©w¥u¦³¨â­Ó¶Ü?

TOP

¦^´_ 6# stillfish00


ÁÂÁ¤j¤jÀ°§Ú¾ã²z·Qªk
¬O§Úªí¹F±o¤£°÷²³æ¡A©êºp¡I

«á¨Ó§Ú§â·Qªk¦Aºë²¤Æ
Åýµ{¦¡§PÂ_¤Ö¤@¨Ç

¤j¤jÀ°§Ú¾ã²z«áªº·Qªk
§ÚÀÉ®×µy·L°µ¤F¤@ÂI­×§ï
ÀÉ®×¾ã¦X¤À¢Ï¡]µ¡¤f¡Ä¸ê®Æ¢Ï¡^¡B¢Ð¡]³B²z¤H­û¥Ò¡^¡B¢Ñ¡]³B²z¤H­û¤A¡^
³B²z¤H­û¥Ò&¤A±µ¦¬¨ì¸ê®ÆA
·|¨Ì·Ó¸ê®ÆA

¤TÀÉ®×Àx¦s®æ­È         >>         ¾ã¦X«áªº­È
---------------------------------------------
¬Û¦P                               >>         ¥ô¤@­È
BÀɺ|¶ñ(ªÅ¥Õ)            >>         ¨úCÀÉ­È
CÀɺ|¶ñ(ªÅ¥Õ)            >>         ¨úBÀÉ­È
¤£¬Û¦P                          >>         Åã¥Ü "¸ê®Æ¦³»~"
===========================

·íªì·|°µ§P§Oµ{¦¡
¥D­n¬O¦]¬°¦pªG¥Ò¤H­û¶ñ¿ù¸ê®ÆAªº¹ïÀ³Äæ¦ì(¸ê®ÆB¡BC)
¦ý¬O¨ç¼Æ¦pªG¬O§P§O¸ê®Æ¦³»~
ªÅ¥Õ¥¦¤]·|§PÂ_¸ê®Æ¦³¥X¤J
©Ò¥Hµ{¦¡¶]°_¨Ó©Ç©Çªº
Àɮ׭קï¦pªþÀÉ
¤u§@Á`ªí´ú¸Õ2.zip (23.52 KB)
¦pªG­nÅܦ¨VBA¼gªk¡A­n«ç»ò­×§ï¡HÁÂÁÂ!!
Jared

TOP

¦^´_ 7# Jared
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng As String, Ar(1 To 3), A(), i As Integer, ii As Integer, X As Integer
  4.     Rng = "A1:C10"                                          '¨î©w©Ò¦³Àɮצb¬Û¦Pªº½d³ò
  5.     Ar(1) = Workbooks("A.XLS").Sheets(1).Range(Rng).Value   'Àɮ׬O¶}±Òªº
  6.     Ar(2) = Workbooks("B.XLS").Sheets(1).Range(Rng).Value
  7.     Ar(3) = Workbooks("C.XLS").Sheets(1).Range(Rng).Value
  8.     ReDim A(1 To UBound(Ar(1), 1), 1 To UBound(Ar(1), 2))
  9.     For X = 1 To UBound(Ar(1), 2)
  10.         For i = 1 To UBound(Ar(1), 2)
  11.             For ii = 1 To UBound(Ar(1), 1)
  12.                 If ii = 1 Then
  13.                     A(ii, i) = Ar(X)(ii, i)
  14.                 Else
  15.                     A(ii, i) = IIf(A(ii, i) <> "" And Ar(X)(ii, i) <> "", "¸ê®Æ¦³»~", A(ii, i) & Ar(X)(ii, i))
  16.                 End If
  17.             Next
  18.         Next
  19.     Next
  20.     Workbooks("Á`ªí·J¾ã.xls").Sheets(1).Range(Rng) = A
  21. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-7-25 10:59 ½s¿è

¦^´_ 8# GBKEE


·PÁ¤j¤j!!
§Ú°¨¤W¸Õ¬Ý¬Ý(^^)
Jared

TOP

¦^´_ 8# GBKEE

ÁÂÁÂGBKEE
µ{¦¡³¡¤À§Ú´ú¸Õ¹L
¬Æ¦ÜÅçÃÒ¾÷¨î³£¦³¤F¡A¯uªºÆZ¤è«Kªº :)

¦ý¬OVBAªº¤è¦¡»Ý­n±N§ó·sªºÀɮ׳£¥´¶}¤~¯à¶i¦æŪ¨úªº°Ê§@
¦pªGÀɦW³£¥²¶·¦b¤@¼Ëªº±¡ªp¤U
´N¨S¿ìªk³o¼Ë°µ¤F

§Ú³o¸ÌªºÀɮ׸ê®Æ¶q¤ñ¸û¤j
¬O§Q¥Î¦P¼ËÀɦW¤£¦P¸ê®Æ§¨
µ{¦¡¬O±Ä¥Î¨ç¼Æªº¤è¦¡
¦ý¬O¨C¦¸¸ê®Æ§ó·s³£»Ý­n¦A­«·s³sµ²¤@¦¸¦ì¸m
¨Ï¥Î¤W´N¤£¬O¨º»ò¤è«K

§Ú¦A¸Õ¬Ý¬Ý¦³¨S¦³¨ä¥Lªº¿ìªk¦n¤F
¦A¦¸·PÁÂGBKEE ªº¨ó§U   :)
Jared

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD