Excel做宏

jan9951

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

yawentai

宏的代码：  
! L9 t( |: M: F: c9 W( s2 g Function Getpp(pp)
        p = pp
        If (p <= 1000) Then
        P1 = 1000 - p
        Getpp = p * 0.1 + P1 * 0.1 * 0.8
' G5 G7 }  H1 [5 I        Else
4 i- b- k$ {  M. X0 A) n        P2 = p - 1000
        Getpp = p * 0.1 + P2 * (0.1 + 0.1 * 0.2)
       End If
" K6 n! P7 e/ f" L; A+ p# ~      End Function
& b) x6 q3 l( t! y3 M步骤：

建立宏！

7 n) J0 X3 m2 f4 B宏中建立模块！
9 f+ B1 ?% Y) w! u
输入VB代码！
$ T' }& S' \# [1 \1 v/ S4 S1 h# m% e
调用函数！

tiger1860

谢谢啊
我会了
4 w' d( F' W" {. b: a8 g' b顶一下

jan9951

谢谢了,终于有人会了

sure16949

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

jan9951

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

china_jxp

可以将楼上的宏改为：
Function Getpp(pp)
p = pp
If (p < 1000) Then
    Getpp = p * 0.1 * 0.8
Else
$ Y' Y0 p- ~$ G* J$ z    Getpp = p * 0.1 + (p - 1000) * 0.1 * 0.2
End If
* {" V. q  Z' E: z) v  F5 JEnd Function

; R$ R( Z+ b3 r3 |: a
或者：
. l( x3 y5 a- x" S& b# @) K  x. E0 k7 n若图方便的话，可以直接输入公式：
=IF(A2>=1000,0.1*1000+(A2-1000)*0.1*(1+0.2),A2*0.1*(1-0.2))
- r- y, A0 [0 K& D$ \- A
[ 本帖最后由 china_jxp 于 2007-11-28 09:34 编辑 ]