ªð¦^¦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®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD