Excel做宏

jan9951

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

yawentai

宏的代码：  
Function Getpp(pp)
; `5 F5 p/ S' H0 V. \        p = pp
* \5 z' W; p6 t' y+ }# C        If (p <= 1000) Then
        P1 = 1000 - p
        Getpp = p * 0.1 + P1 * 0.1 * 0.8
" \: {+ n( e$ c' H4 [- _0 ?' T( V        Else
* G* M- Z. E0 y        P2 = p - 1000
        Getpp = p * 0.1 + P2 * (0.1 + 0.1 * 0.2)
+ X* f$ t6 q5 l3 L" D) E1 U$ _       End If
. ^/ n' ^( v5 L+ G: l2 e      End Function
1 h+ M- z9 U: S6 f+ S4 l8 e5 A' I步骤：
/ K5 B# G( c' p
4 |( I' f/ \0 i# j" `建立宏！
' I9 [2 M  }3 A+ V! u1 ?
# V* A5 z/ ^! [) s+ @" v宏中建立模块！
: {/ @0 k1 Q- M. y' X
输入VB代码！

调用函数！

tiger1860

谢谢啊
$ r1 _0 P1 o1 k我会了
顶一下

jan9951

谢谢了,终于有人会了

sure16949

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

jan9951

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

china_jxp

可以将楼上的宏改为：
3 _: |) C8 ~' y* t: r8 n2 A# \Function Getpp(pp)
p = pp
If (p < 1000) Then
    Getpp = p * 0.1 * 0.8
Else
    Getpp = p * 0.1 + (p - 1000) * 0.1 * 0.2
End If
4 s( ^( p; j9 d! B% |End Function
& d  ~" ~" n9 B$ T- @
: z, x) O2 o! u# s0 Y2 b
: V/ i$ a+ k! R+ y8 K7 ~& E或者：
9 ~# B8 v* K* T( I若图方便的话，可以直接输入公式：
=IF(A2>=1000,0.1*1000+(A2-1000)*0.1*(1+0.2),A2*0.1*(1-0.2))
, ^* V+ G, p4 d/ I$ g* [& s) ~4 q4 K
[ 本帖最后由 china_jxp 于 2007-11-28 09:34 编辑 ]