来个高手帮我看看这段代码有啥问题

wzw575

If cb_ty_zspm1.Text = "工资薪金所得" And tb_ty_ysx1.Text <= "3000" Then
Sheets("通用申报表（税及附征税费）").[j6] = "3%"
Sheets("通用申报表（税及附征税费）").[l6] = "0"
Else
If cb_ty_zspm1.Text = "工资薪金所得" And (tb_ty_ysx1.Text > "3000" and tb_ty_ysx1.Text <= "12000") Then
Sheets("通用申报表（税及附征税费）").[j6] = "10%"
Sheets("通用申报表（税及附征税费）").[l6] = "210"
Else
If cb_ty_zspm1.Text = "工资薪金所得" And (tb_ty_ysx1.Text > "12000" and  tb_ty_ysx1.Text <= "25000") Then
Sheets("通用申报表（税及附征税费）").[j6] = "20%"
Sheets("通用申报表（税及附征税费）").[l6] = "1410"


运行后，只有第一个有效，输入大于3000值时
Sheets("通用申报表（税及附征税费）").[j6] = "3%"
Sheets("通用申报表（税及附征税费）").[l6] = "0"
这两个的内容不会变，这是哪里的错误，求解答

wzw575

我是想在窗体施行
=IF(S8<=3000,"3%",IF(AND(S8>3000,S8<=12000),"10%",IF(AND(S8>12000,S8<=25000),"20%",IF(AND(S8>25000,S8<=35000),"25%",IF(AND(S8>35000,S8<=55000),"30%",IF(AND(S8>55000,S8<=80000),"35%",IF(AND(S8>80000),"45%")))))))
的效果

donghui2363

把else去掉，三个条件单独判断

wzw575

没有解决问题。。。

39660519

If cb_ty_zspm1.Text = "工资薪金所得" And --(tb_ty_ysx1.Text) <= 3000 Then
Sheets("通用申报表（税及附征税费）").[j6] = "3%"
Sheets("通用申报表（税及附征税费）").[l6] = "0"
ElseIf cb_ty_zspm1.Text = "工资薪金所得" And --(tb_ty_ysx1.Text) > 3000 And --(tb_ty_ysx1.Text) <= 12000 Then
Sheets("通用申报表（税及附征税费）").[j6] = "10%"
Sheets("通用申报表（税及附征税费）").[l6] = "210"
ElseIf cb_ty_zspm1.Text = "工资薪金所得" And --(tb_ty_ysx1.Text) > 12000 And --(tb_ty_ysx1.Text) <= 25000 Then
Sheets("通用申报表（税及附征税费）").[j6] = "20%"
Sheets("通用申报表（税及附征税费）").[l6] = "1410"
End If

wzw575

还是不行啊

wzw575

39660519 发表于 2020-3-16 16:45
If cb_ty_zspm1.Text = "工资薪金所得" And --(tb_ty_ysx1.Text)  3000 And --(tb_ty_ysx1.Text)  12000 An ...

--(tb_ty_ysx1.Text) <= 3000 前边加上--是什么意思，运行提示类型不匹配

northwolves

字符串大小判断改为数字大小判断，如：

val(tb_ty_ysx1.Text） >3000

39660519

wzw575 发表于 2020-3-16 17:17
--(tb_ty_ysx1.Text)

tb_ty_ysx1.Text的值是文本类型，如"300"，前面加上--就是相当于转换成数字类型，--"300"=300
你要确保tb_ty_ysx1.Text的值是"300"这种类型的，像--"ajg"这种就会出错，你自己试一下你自己试一下下面这段代码中A值的变化，在本地窗口观察
Sub mmmmm()
    A = "300"
    A = --A
    A = "ABC"
    A = --A
End Sub

lsdongjh

1. If cb_ty_zspm1.Text = "工资薪金所得" Then
   
2.     Select Case Val(tb_ty_ysx1.Text)
   
3.         Case Is <= 3000
   
4.             Sheets("通用申报表（税及附征税费）").[j6] = "3%"
   
5.             Sheets("通用申报表（税及附征税费）").[l6] = "0"
   
6.         Case Is <= 12000
   
7.             Sheets("通用申报表（税及附征税费）").[j6] = "10%"
   
8.             Sheets("通用申报表（税及附征税费）").[l6] = "210"
   
9.         Case Is <= 25000
   
10.             Sheets("通用申报表（税及附征税费）").[j6] = "20%"
    
11.             Sheets("通用申报表（税及附征税费）").[l6] = "1410"
    
12.     End Select
    
13. End If

复制代码