ªð¦^¦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¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD