Excel做宏

jan9951

核算工资,班产量1000件, 单价0.1元,超出班产量的部分单价加20%,没完成的单价则算80%,这个公式怎么做.

yawentai

宏的代码：  
! s4 [% Y3 k' q$ J9 K3 p7 U9 T Function Getpp(pp)
        p = pp
        If (p <= 1000) Then
& y+ I7 H8 F) t3 i+ j0 L        P1 = 1000 - p
        Getpp = p * 0.1 + P1 * 0.1 * 0.8
# J4 ?, L1 B, |) U* t3 y        Else
' E! ~9 U$ B- f5 l% U: j( i) D6 ~        P2 = p - 1000
        Getpp = p * 0.1 + P2 * (0.1 + 0.1 * 0.2)
       End If
' X' i, K! a  o  G1 o      End Function
步骤：

建立宏！

. l4 H- N- B- X宏中建立模块！
% r: C- o7 M3 T% u
输入VB代码！

, \( L7 s, K& q5 w0 G& }调用函数！

tiger1860

谢谢啊
% ~; z9 H+ j, ?5 g我会了
+ ]# Q* J9 r/ M$ f) i( m顶一下

jan9951

谢谢了,终于有人会了

sure16949

不太明白,按楼主的意思,1100件应为112元,900件应为72元,对吗?

jan9951

是的,我觉得公式有点问题,我还是不明白

china_jxp

可以将楼上的宏改为：
' m3 {# E2 d8 ^  ?; A+ z8 HFunction Getpp(pp)
p = pp
If (p < 1000) Then
6 I2 M7 {- M" F) A    Getpp = p * 0.1 * 0.8
Else
    Getpp = p * 0.1 + (p - 1000) * 0.1 * 0.2
End If
End Function


或者：
若图方便的话，可以直接输入公式：
=IF(A2>=1000,0.1*1000+(A2-1000)*0.1*(1+0.2),A2*0.1*(1-0.2))

% D& t# r0 ]9 C" ~4 G0 c$ n[ 本帖最后由 china_jxp 于 2007-11-28 09:34 编辑 ]