各位大神帮小弟看下问题所在

胜哥010

大神们具体看我的附件，   
Sub CommandButton1_Click()
        Dim i, l, m
        Dim a, b, c, d, e
        i = TextBox1.Value '商城价格
        l = TextBox2.Value '胶带数量
        m = TextBox3.Value '色带数量
       If OptionButton1.Value = True And TextBox1 <> "" And TextBox2 <> "" And TextBox3 <> "" Then
         a = i * 0.17 '平台费
         If i > a + 800 Then
          b = (i - a - 800) * 0.25 '企业所得税
          c = (i - a - b - 525) * 0.16 * l '胶带增值税
          d = (i - a - b - 490) * 0.16 * m '色带增值税
          e = (i - a - b - 525) * 0.84 * l + (i - a - b - 490) * 0.84 * m '纯利润
         Else
          b = 0 '当商城价格小于等于平台费+800的时候，企业所得税是0，但是各位大神我输入800的时候返回的b的值是-34，不知道怎么了
          c = (i - a - 525) * 0.16 * l '胶带增值税
          d = (i - a - 490) * 0.16 * m '色带增值税
          e = (i - a - 525) * 0.84 * l + (i - a - 490) * 0.84 * m  '纯利润
        End If
         MsgBox ("商城平台费：" & a & Chr(13) & "企业所得税：" & b & Chr(13) & "业务员提成：" & e)
       Else
    MsgBox "请输入正确的内容"
       End If
       Range("A3").Value = i
       Range("b3").Value = l
        Range("C3").Value = m
         Range("D3").Value = a
          Range("E3").Value = b
           Range("F3").Value = c + d
            Range("G3").Value = e
        End Sub
        Sub CommandButton2_Click()
        UserForm1.Hide
        End Sub
   

胜哥010

各位老师帮忙看下问题所在，

胜哥010

老师们帮忙看下问题所在，不胜感激。

vbee

1.     Sub CommandButton1_Click()
   
2.         Dim i, l, m
   
3.         Dim a, b, c, d, e
   
4.         i = Val(TextBox1.Value) '商城价格
   
5.         l = Val(TextBox2.Value) '胶带数量
   
6.         m = Val(TextBox3.Value) '色带数量
   
7.         If l * m = 0 Then II = i * (l + m) Else MsgBox "请确认数量！": Exit Sub
   
8.        If (OptionButton1.Value = True Or OptionButton1.Value = True) And TextBox1 <> "" And (TextBox2 <> "" Or TextBox3 <> "") Then
   
9.          a = II * 0.17 '平台费
   
10.          If II > a + 800 Then
    
11.           b = (II - a - 800) * 0.25 '企业所得税
    
12.           c = (II - a - b - 525) * 0.16  '胶带增值税
    
13.           d = (II - a - b - 490) * 0.16  '色带增值税
    
14.           e = (II - a - b - 525) * 0.84 + (II - a - b - 490) * 0.84  '纯利润
    
15.          Else
    
16.           b = 0 '当商城价格小于等于平台费+800的时候，企业所得税是0，但是各位大神我输入800的时候返回的b的值是-34，不知道怎么了
    
17.           c = (II - a - 525) * 0.16  '胶带增值税
    
18.           d = (II - a - 490) * 0.16  '色带增值税
    
19.           e = (II - a - 525) * 0.84 + (i - a - 490) * 0.84  '纯利润
    
20.         End If
    
21.          MsgBox ("商城平台费：" & a & Chr(13) & "企业所得税：" & b & Chr(13) & "业务员提成：" & e)
    
22.        Else
    
23.     MsgBox "请输入正确的内容"
    
24.        End If
    
25.        Range("A3").Value = i
    
26.        Range("b3").Value = l
    
27.         Range("C3").Value = m
    
28.          Range("D3").Value = a
    
29.           Range("E3").Value = b
    
30.            Range("F3").Value = c + d
    
31.             Range("G3").Value = e
    
32.         End Sub

复制代码

胜哥010

vbee 发表于 2018-10-13 14:56

非常感谢老师的帮助，我之前的代码测试后就是少了val这个函数。

胜哥010

vbee 发表于 2018-10-13 14:56

老师如果我想把i ,l,m等这些变量的值逐行插入到excel表格中怎么写代码呢。