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

[µo°Ý] ¦p¦ó¦b³]¦³¤½¦¡ªºÀx¦s®æ¶ñ¤J¼Æ¦r

[µo°Ý] ¦p¦ó¦b³]¦³¤½¦¡ªºÀx¦s®æ¶ñ¤J¼Æ¦r

½Ð±Ð¦U¦ì¤j®v,¦p¦ó¦b³]¦³¤½¦¡ªºÀx¦s®æ¶ñ¤J¼Æ¦r,

¦pªþ¥ó
Kai_QA.rar (7.16 KB)

½Ð±Ð¦U¦ì¤j®v,¦p¦ó¦b³]¦³¤½¦¡ªºÀx¦s®æ¶ñ¤J¼Æ¦r,

¦pªþ¥ó
kai6929 µoªí©ó 2010-5-6 17:20



    ½Ö¬ÝªºÀ´»Ý¨Dªº³Â·Ð¶}¥Ü¤@¤U
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

½Ö¬ÝªºÀ´»Ý¨Dªº³Â·Ð¶}¥Ü¤@¤U
Hsieh µoªí©ó 2010-5-6 18:04



    ¼Ó¥Dªº»Ý¨D¦bB4Ä檺Åçµý°T®§¤º,¤º®e¦p¤U:
·í²£«~Ãþ§O¬OA®É B7,C7,D7,E7,F7,³£¬O¤â°Ê¶ñ¤Jªº
·í²£«~Ãþ§O¬OB,C,D,E®É B7,C7,D7,E7,F7,³£¬O¹w¥ý³]©w¦nªº¼Æ¦r¦Û°Ê¶ñ¤Jªº
----
¤£¹L¤p§Ì(§Y¥»¤H,¦b¤U,§Ú..)¤£·|¸Ñ^^

TOP

³oºØ°ÝÃD¬OÆ[©À°ÝÃD
¸Õ·Q¤½¦¡¬O­ì¥ý«Ø¦nªº¤º®e
§A­n¯à¤¹³\¦Û¦æ¿é¤J¼Æ­È«á¦A«ì´_¤½¦¡
³o¥u¦³¤@­Ó¥i¯à
§â¤½¦¡¿é¤J¦b¬Y­Ó¦ì¸m
µ¥­n¥Î®É¦A½Æ»s¦^¨Ó
¦pªG¯u¬O¦p¦¹
°£¤F¥ÎVBA¨Ó°µ³o°Ê§@¥~
®£©È¦A¤]·Q¤£¨ì¨ä¥L¤èªk¤F
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

·PÁ¦U¦ì¤j®v,ªº«ü±Ð§Ú,¦ý¦pªG¬O¥ÎVBA¸Ó¦p¦óµÛ¤â

TOP

¦^´_ 7# kai6929


    vba±`¬O¶q¨­­q°µ
§A­n¶ñ¤Jªº¤½¦¡¬O¦p¦ó?
§A¥i¥ý¥Î¿ý»s¥¨¶°ªº¤èªk¶}©lÁA¸Ñvba
³o°ÝÃD¿ý»s¦n«á¦A¥hµ{¦¡°Ïµo°Ý
´M¨D¦p¦ó¦Û°Ê¤Æ§ó§ïÀx¦s®æ¤º®e
´N·|¦³µª®×ªº
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¤F¸Ñ,·PÁ¦U¤j®vªº¶}¥Ü.

TOP

¼Ó¥Dªº·N«ä¤£ª¾¬O§_¦p¦¹
°²³]§â³W®æªí©ñ¦bM1:R8
B7=VLOOKUP($A$7,$M$1:$R$10,COLUMN(),0)
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Target.Count > 1 Then Exit Sub
  3. If Target.Address <> "$B$4" Then Exit Sub
  4. If Target = "A" Then [B7:F7] = "" Else [B7:F7].FormulaR1C1 = "=VLOOKUP(R7C1,R1C13:R10C18,COLUMN(),0)"
  5. End Sub
½Æ»s¥N½X
Kai.rar (12.27 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 1# kai6929

½Ð°Ý
§Ú¨S¿ìªk¥´¶}³o­Óµ{¦¡?
¥¦¤£¬ORARÀɶÜ?
¤U¸ü¤U¨ÓÅܦ¨"Kai Q&amp"
½Ð°Ý¬O¤°»ò¤å¥ó?­n¥Î­þºØµ{¦¡¶}±Ò?
ÁÂÁÂ!!

TOP

ÀɦW¤£¯à¦³¯S®í²Å¸¹&
§ï¦¨kai.rar§Y¥i
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¨C¤ÑµL©Ò¨Æ¨Æ¡A¬O¤H¥Íªº®ø¶OªÌ¡A¿n·¥¡B¦³¥Î¤~¬O¤H¥Íªº³Ð³yªÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD