Àx¦s®æ¸Ìªº¨ç¼Æ¤½¦¡¥i§_¥Î¥¨¶°«ö¶s¨Ó°õ¦æ
- ©«¤l
- 110
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 239
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2010-8-2
- ³Ì«áµn¿ý
- 2017-5-10
|
Àx¦s®æ¸Ìªº¨ç¼Æ¤½¦¡¥i§_¥Î¥¨¶°«ö¶s¨Ó°õ¦æ
Dear ¦U¦ì°ª¤â¤j¤j̦n
·Q½Ð°Ý¤@¤U¬O§_¥iÅýªþ¥óÀɮפ¤ªºAÄæ¡u¤½¥q¦WºÙ¡v¤ÎBÄæ¡uq³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)
ÁÂÁÂ^^ |
|
|
|
|
|
|
- ©«¤l
- 2827
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2883
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-10-27
|
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 |
|
|
|
|
|
|