ªð¦^¦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¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD