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

Àx¦s®æ¸Ìªº¨ç¼Æ¤½¦¡¥i§_¥Î¥¨¶°«ö¶s¨Ó°õ¦æ

Àx¦s®æ¸Ìªº¨ç¼Æ¤½¦¡¥i§_¥Î¥¨¶°«ö¶s¨Ó°õ¦æ

Dear ¦U¦ì°ª¤â¤j¤j­Ì¦n

·Q½Ð°Ý¤@¤U¬O§_¥iÅýªþ¥óÀɮפ¤ªºAÄæ¡u¤½¥q¦WºÙ¡v¤ÎBÄæ¡u­q³f°Ó«~¡v¦b¤£¬°ªÅªºª¬ºA¤U¡A
«ö¤U§ó·s³ø»ùªº«ö¶s«á¤~Åã¥Ü°õ¦æ¥H¤U³o´XÄ檺¤½¦¡?
¤W¤ë®É»ù(¤½¦¡¬°=VLOOKUP(B5,°Ó«~¸ê°T!A:C,2,0))
³Ì·s®É»ù(¤½¦¡¬°=VLOOKUP(B5,°Ó«~¸ê°T!A:C,3,0))
­qÁʪ÷ÃB(¤½¦¡¬°D5*E5)

ÁÂÁÂ^^

§ó·s³ø»ù.rar (6.32 KB)

Sub §ó·s³ø»ù()
Dim R&
R = [B65536].End(xlUp).Row
If R < 5 Then Exit Sub
Range("C5:D" & R) = "=VLOOKUP($B5,°Ó«~¸ê°T!$A:$C,COLUMN(B$1),0)"
Range("F5:F" & R) = "=D5*E5"
End Sub

TOP

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD