excel VBA if语句的使用
答案:2 悬赏:40 手机版
解决时间 2021-02-07 15:20
- 提问者网友:疯孩纸
- 2021-02-07 10:41
满足包含条件,如下图,我要在B列生成IF=(COUNTIF(A1,"*市*,")>0,1,IF=(COUNTIF(A1,"*省*,")>0,2,0),也就是频判断三种情况,包含市的返回1,包含省的返回2,其余返回0.用if循环语句怎么写?B1一直到A列空单元格为止满足VOOLKUP条件
最佳答案
- 五星知识达人网友:污到你湿
- 2021-02-07 11:04
Function Bonus(performance, salary)
If performance = 1 Then
Bonus = salary * 0.1
ElseIf performance = 2 Then
Bonus = salary * 0.09
ElseIf performance = 3 Then
Bonus = salary * 0.07
Else
Bonus = 0
End If
End Function请参考,if和then之前是条件,Bonus = salary * 0.1为符合条件下的操作
If performance = 1 Then
Bonus = salary * 0.1
ElseIf performance = 2 Then
Bonus = salary * 0.09
ElseIf performance = 3 Then
Bonus = salary * 0.07
Else
Bonus = 0
End If
End Function请参考,if和then之前是条件,Bonus = salary * 0.1为符合条件下的操作
全部回答
- 1楼网友:夜风逐马
- 2021-02-07 12:44
我怀疑你a列最后一格的右下方(比如b、c等列)还有数据,导致activecell.currentregion.rows.count比a列最后一格的行数大。
将
sheets("订单总表").range("a1").select
'获取订单总表已有数据行数
introw = activecell.currentregion.rows.count
strbh = cells(introw, 1) '取得最后编号 改为 range("a9555").end(xlup).select '获取订单总表已有数据行数 introw = activecell.row strbh = cells(introw, 1) '取得最后编号 应该就可以了。
'获取订单总表已有数据行数
introw = activecell.currentregion.rows.count
strbh = cells(introw, 1) '取得最后编号 改为 range("a9555").end(xlup).select '获取订单总表已有数据行数 introw = activecell.row strbh = cells(introw, 1) '取得最后编号 应该就可以了。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯