Excel做宏

jan9951

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

yawentai

宏的代码：  
Function Getpp(pp)
        p = pp
/ [3 B5 R; W# n/ O        If (p <= 1000) Then
7 C7 H0 z+ P' w        P1 = 1000 - p
; V9 X( v9 r' Q* R  e1 W        Getpp = p * 0.1 + P1 * 0.1 * 0.8
        Else
% S2 i8 M: f+ E$ ]. a        P2 = p - 1000
3 d) W! P" p4 q& T! `( q        Getpp = p * 0.1 + P2 * (0.1 + 0.1 * 0.2)
& S' R2 z& j0 o, _: P1 U( ]       End If
, |. l. A* F, ?2 l: B* i6 K; w! x      End Function
- ?1 C! R) ]  n9 l& ]' p! W) X步骤：

建立宏！
/ M8 g  j" \" e# Q1 m& }8 H
& d7 A' E) c+ M6 B. U! O: ]1 P宏中建立模块！
' I  K& E/ H. F; M
5 {4 @( P  E  |3 t! N输入VB代码！

+ g8 [8 |+ _) v/ a0 U调用函数！

tiger1860

谢谢啊
# Y% i9 n7 o' t! M我会了
* k5 n7 ^/ ^' ?' F  ~顶一下

jan9951

谢谢了,终于有人会了

sure16949

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

jan9951

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

china_jxp

可以将楼上的宏改为：
Function Getpp(pp)
p = pp
If (p < 1000) Then
/ h+ [5 Y& D, C- }4 }8 s+ _    Getpp = p * 0.1 * 0.8
3 u( E, s0 @+ _! N0 D0 M2 I Else
, \/ c& {* c* u) `7 V6 u3 U5 Q) g    Getpp = p * 0.1 + (p - 1000) * 0.1 * 0.2
  O  p3 z+ T  {7 W/ i6 Q: E: N8 a End If
/ e9 M. D) n# D* l7 J' s2 \. d6 uEnd Function


或者：
3 k8 Z/ q$ U$ u% |+ r若图方便的话，可以直接输入公式：
4 a+ p9 |6 W8 Q=IF(A2>=1000,0.1*1000+(A2-1000)*0.1*(1+0.2),A2*0.1*(1-0.2))

[ 本帖最后由 china_jxp 于 2007-11-28 09:34 编辑 ]