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

Åý§Ú¦n´X¤Ñ³£¤£¯àºÎıªº°ÝÃD ¦p¦óÀx¦s¦b¦P¤@Àx¦s®æ¥X²{ªº¦hµ§¸ê®Æ?

Åý§Ú¦n´X¤Ñ³£¤£¯àºÎıªº°ÝÃD ¦p¦óÀx¦s¦b¦P¤@Àx¦s®æ¥X²{ªº¦hµ§¸ê®Æ?

½Ð°Ý¦U¦ì ¥ý¶i ¥ýª¾ ¦³´¼¼zªº¤j¦Ñ­Ì  ½Ð±Ï±Ï¤p§Ì§a ¤@­ÓÅý§Ú¤T¤Ñ¤T©]³£¨S¿ìªk¦Y¶ºªº°ÝÃD

§Ú¦b a1 Àx¦s®æ ¦¬¨ì ¿}ªº»ù¿ú  a2 Àx¦s®æ ¦¬¨ì¥©§J¤O»ù¿ú  , ¨C¤Ñ§Ú³£·|¦ba2¦Û°Ê(dde)¦¬¨ì¦n¦hµ§¦UºØ¤£¦P¥©§J¤Oªº»ù¿ú(¨Ò¦p 50 ¤¸ 62 ¤¸ 64¤¸µ¥µ¥....)(¥Ñ¥~³¡¤Þ¶iªº¸ê®Ædde)¨C¤@µ§¥©§J¤Oªº»ù¿ú ³£·|¦ba1¦¬¨ì¬Û¹ïªº¤@­Ó¿}ªº»ù¿ú(¤]¬O¤Þ¶i¥~³¡¸ê®ÆDDE) ¹³¬O·í¥©§J¤O ¦¬¨ì50 ¤¸¤Q  ¿}»ù·|¦¬¨ì3¤¸ªº³ø»ù  ;·í¥©§J¤O 62 ¤¸¤Q  ¿}»ù·|¦¬¨ì7¤¸ªº³ø»ù ; §Ú§Æ±æ¯à·í¤@¾ã¤Ñ¤U¨Ó«á §â·í¤Ñ©Ò¦³¥X²{ªº¥©§J¤O³ø»ù¸ò¬Û¹ïÀ³ªº¿}»ù³£°O¿ý¤U¨Ó ,­«´_ªº¤£­n, µM«á¨Ì¥©§J¤Oªº»ù¿ú¤j¤p,¥Ñ¤p¨ì¤jªº±Æ§Ç.

¨Ò¦p·í¤Ña1 ¥X²{¤F¤Q¤KºØ¤£¦Pªº¥©§J¤O³ø»ù ,§Ú§Æ±æ¦bc1:c18 ¦C¥X©Ò¦³¥©§J¤O³ø»ù ¨Ã¥B¦bd1:d18¯à¦C¥X¿}ªº³ø»ù
§Æ±æ¯à§ä¨ì°ª¤â À°§Ú¸Ñ¨M³o¦U°Ý´£ Åý§Ú¯à¦n¦nºÎı    «D±`·PÁÂ

ps : §Ú¦³¸ÕµÛ¥Îvlookup , ¦ý¤£¯à¥Î  ,§Ú¤]¦³ª¦¤F¦n¦h¤å ¸ÕµÛ¥Îvba .¦ýºô¸ô¤W¤j¦hªº»Ý¨D³£¬O¨C¹j¤@¬q®É¶¡¨Ò¦p¤@¤ÀÄÁ¨Ó°O¿ý¸ê®Æªº........ ¸ò§Ú­nªº¤£¦P .......§Ú¨Ã¤£ª¾¹D¥©§J¤O¹j¦h¤Ö®É¶¡·|³ø·s»ù¤@¦¸ ¦³®É«Ü§Ö ¤Q´X¬í  ¦³®É«ÜºC ¦n¦h¤ÀÄÁ ,©Ò¥H¥Î®É¶¡°Ï¹j¨Ó°O¿ý¾ú¥v¸ê®Æªº ¦ü¥G¸ò§Ú­nªº¤£¦P
§Ú¬O¤@¦U¦³¼ö¦å ªÖ¤W¶iªº¶§¥ú«C¦~

¦^´_ 1# kiwimenmate
¤W¶Ç§Aªº½d¨ÒÀɮ׸ոլÝ

TOP

¦^´_ 1# kiwimenmate
DDE¥u·|IJµo Worksheet_Calculate
©Ò¥H¡A§Q¥ÎA1¬O§_­«½Æ°µ§PÂ_§Y¥i
  1. Private Sub Worksheet_Calculate()
  2. If IsError(Application.Match([A1], [C:C], 0)) Then
  3. [C65536].End(xlUp).Offset(1, 0).Resize(, 2) = Application.Transpose([A1:A2].Value)
  4. Range("C1").CurrentRegion.Offset(1).Sort key1:=[C2], header:=xlNo
  5. End If
  6. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD