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

[µo°Ý] ¦p¦ó°µ³sµ²¤ÁÂ_Åý¨C¦¸§ó·sªº¸ê®Æ¯à¤@ª½¬ö¿ý¤U¨Ó

[µo°Ý] ¦p¦ó°µ³sµ²¤ÁÂ_Åý¨C¦¸§ó·sªº¸ê®Æ¯à¤@ª½¬ö¿ý¤U¨Ó

A1 §ó·s¸ê®Æ¦ì§}
A2 ¥Î©w¸q¦WºÙ±NA1²Ä¤@¦¸§ó·s¸ê®Æ¬ö¿ý¤U¨Ó
A3 ¥Î©w¸q¦WºÙ±NA1²Ä¤G¦¸§ó·s¸ê®Æ¬ö¿ý¤U¨Ó
¦ý¨ì³o¸Ì«á¨C¦¸§ó·s¸ê®Æ³£¬ö¿ý¦bA3
µLªk¦V¤U¬ö¿ý¨ìA4.A5.A6-------
·q½Ð¤j¤j«ü±Ð¡I

Åwªï·s¦P¾Ç¡I½Ð¥Î¤ß«ä¦Ò¦p¦ó´£°Ý¡A¥Øªº­n²M·¡©ú½T¤~·|¦³¤H¦^µª¡I

TOP

·PÁ¤j¤j«ü±Ð
±¡§Î¬O³o¼Ëªº¡A§Ú¦bexcel¸Ì°µweb¬d¸ß¡A
§Æ±æ¯à±N¨C¦¸§ó·sªº¸ê®Æ¬ö¿ý¤U¨Ó¡A
¦ý¥Ø«e±¡§Î¬O¥u­n§ó·s¸ê®Æ´N¤£¨£¤F¡A
©Ò¥H¨C¦¸¦b§ó·s«á­n¤â°Ê±N¸ê®Æ½Æ»s¤U¨Ó¡A¦³®É­Ô§Ñ¤F¸ê®Æ´N¤£¨£¤F¡C
¦]¦¹½Ð±Ð¤j¤j¬O§_¥i¥H°µ­Ó§ó·s«á¦Û°Ê½Æ»sªº¥\¯à¡A±N¨Cµ§·s¸ê®Æ¦Û°Ê¬ö¿ý¤U¨Ó¡C
½Ð¤j¤j«ü±Ð¡I

TOP

¦^´_ 3# good


    ½Ð°Ý¦p¦ó¥ÎVBA¶}±ÒÀÉ®×Á`ºÞµøµ¡Åª¨úFolder©ÎFilesªº¸ô®|orÀɦW

http://forum.twbts.com/viewthrea ... %DB%B0%CA%BD%C6%BBs
¾Ç¦p°f¤ô¦æ¦à ¤£¶i«h°h

TOP

¤£¦n·N«ä§Ú¬Ý¤£À´¤j¤jªº¦^´_¡A
¤£ª¾¬O§Ú¨S§â°ÝÃD»¡²M·¡ÁÙ¬O¡H¡H¡H¡H¡H
½Ð¤j¤j¦A»¡²M·¡¨Ç¦n¶Ü¡H
§Úªº°ÝÃD¬O³o¼Ë¡A§Ú±qºô¯¸¤W³sµ²¸ê®Æ¨ìexcel
¨C¤é¥²¶·§ó·s¡A§Ú§Æ±æ¯à±N§ó·sªº¸ê®Æ½Æ»s¬ö¿ý¤U¨Ó¡A
§O¦]¬°¨C¦¸§ó·s«á¸ê®Æ´N³QÂл\±¼¤F¡A
§Ú·Q³o¦]¸Ó¦³¿ìªk§a¡I¥u¬O§Ú¤£·|¡A©Ò¥H·Q½Ð¦U¦ì°ª¤â¤j¤j­ÌÀ°¦£¡I
¤£ª¾¹D³o¼Ë»¡²M·¡¶Ü¡H

TOP

¥»©«³Ì«á¥Ñ PD961A ©ó 2010-11-11 03:56 ½s¿è

¦^´_ 5# good

±z­nªº»Ý¨D
    °µ­Ó§ó·s«á¦Û°Ê½Æ»sªº¥\¯à¡A±N¨Cµ§·s¸ê®Æ¦Û°Ê¬ö¿ý¤U¨Ó
½Ð°Ý¦p¦ó¥ÎVBA¶}±ÒÀÉ®×Á`ºÞµøµ¡Åª¨úFolder©ÎFilesªº¸ô®|orÀɦW
http://forum.twbts.com/viewthrea ... %DB%B0%CA%BD%C6%BBs
¦¹½g³sµ²¼Ó¥D¼g¦n½d¨Ò
­Y±z¯à°µÂ²³æ½d¨Ò»Ý¨DÀɮפW¶Ç
¥u¬O²³æ¤å¦r±Ô­z·|¹³¶W¯Åª©¥D©Ò¨¥....
¥t¥~"¦bexcel¸Ì°µweb¬d¸ß"¥i¦h¥ÎÃöÁä¦r¦b½×¾Â·j¯Á
´M§ä¬ÛÃö»Ý¨D
­Y¬OÃö©óDDE°ÊºA³sµ²°ÝÃD
«h°Ñ¦ÒHSª©¥D¦¹½g
http://forum.twbts.com/thread-149-1-1.html
¾Ç¦p°f¤ô¦æ¦à ¤£¶i«h°h

TOP

PD961A¤j¤j
§ÚÀ´§Aªº·N«ä¤F¡A¥u¬O¹ï©óVBA«Ü­¯¥Í¡A©Ò¥H¤~»~·|§Aªº·N«ä¡A¯u¹ï¤£°_¡I
¥J²Ó¬Ý«á¥H¤F¸Ñ¡A¦ý¥Ñ©ó¤£¼ô±xVBA©Ò¥HµLªk§¹¦¨¡C·PÁ§A¤F¡I

TOP

¦^´_ 7# good

Web¬d¸ß°ò¥»¤W·|IJµoworksheet_change¨Æ¥ó
§A­n§â©pªº¬d¸ß©Ò­nªº¸ê®Æ¦b­þ­ÓÀx¦s®æ?
¨Ò¦p:³o­Ó¬d¸ßªºªí®æ½d³ò¬OA1:C7
¦ý§A©Ò»Ýªº¸ê®Æ¥u¦³C7
§A·Q±N¨C¦¸§ó·sªº¸ê®Æ³£¼g¨ìDÄæ¤@ª½©µÄò¤U¨Ó
¨º»ò¦b¸Ó¤u§@ªí¼Ò²Õworksheet_change¨Æ¥ó¼g¤Jµ{¦¡½X
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Target.Address <> "$A$1:$C$7" Then Exit Sub
  3. [D65536].End(xlUp).Offset(1, 0) = [C7]
  4. End Sub
½Æ»s¥N½X
WEB¬d¸ß.zip (9.19 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

·PÁª©¤jªº«ü±Ð
¥¿¦b¬ã¨s¾Ç²ß
¦³°ÝÃD¦A½Ð±Ð

TOP

µLªk¤U¸üªþ¥ó

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD