| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
买学问 - 大牛一对一辅导,有问必答买学问 - 专业的付费知识问答平台
共有 534 人关注过本帖
标题:【提问】这个工资怎么用函数计算???
只看楼主 加入收藏
matt0415
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2018-11-30
结帖率:0
  已结贴   问题点数:5  回复次数:3   
【提问】这个工资怎么用函数计算???


附件: 您没有浏览附件的权限,请 登录注册
2018-11-30 22:36
xyxcc177
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:23
帖 子:167
专家分:1105
注 册:2017-7-8
  得分:5 
做好了
附件: 您没有浏览附件的权限,请 登录注册
2018-12-01 18:15
wengjl
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:76
帖 子:1626
专家分:2915
注 册:2007-4-27
  得分:0 
会不会出现第4种情况呢?  就是 助手为无,后勤有人参与。

只求每天有一丁点儿的进步就可以了
2018-12-14 11:00
xs591222
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:24
帖 子:632
专家分:1199
注 册:2009-3-1
  得分:0 
以下是引用xyxcc177在2018-12-1 18:15:50的发言:

做好了

Function SetMoneyToWorker(ByVal rng As Range, ByVal Target As Range) As Double
Dim dValue As Double
Dim sName As String
Dim i, s As Integer
sName = rng.Value
Dim strNoThing As String
Dim rowCount As Integer
rowCount = Target.Rows.Count
dValue = 0
strNoThing = "无"
   For i = 1 To rowCount
         
          If Target.Cells(i, 1) = sName Then
             If Target.Cells(i, 2) = strNoThing And Target.Cells(i, 3) = strNoThing Then
                dValue = dValue + Target.Cells(i, 4)
             ElseIf Target.Cells(i, 2) <> strNoThing And Target.Cells(i, 3) = strNoThing Then
                dValue = dValue + Target.Cells(i, 4) * 0.55
             ElseIf Target.Cells(i, 2) <> strNoThing And Target.Cells(i, 3) <> strNoThing Then
                dValue = dValue + Target.Cells(i, 4) * 0.5
             End If
          End If
          If Target.Cells(i, 2) = sName Then
             If Target.Cells(i, 3) = strNoThing Then
                dValue = dValue + Target.Cells(i, 4) * 0.45
             Else
                 dValue = dValue + Target.Cells(i, 4) * 0.3
             End If
          End If
          If Target.Cells(i, 3) = sName Then
              dValue = dValue + Target.Cells(i, 4) * 0.2
          End If
     
   Next
  SetMoneyToWorker = Format(dValue, "0.00")
End Function
@xyxcc177 能用中文注释每一个语句的中文意思吗?

[此贴子已经被作者于2018-12-20 18:59编辑过]

2018-12-15 12:46







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.029164 second(s), 8 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved