IF的VBA

李步兰

请问有什么错？
Sub 李步兰的()
    If Range("EO5").Value <= 3500 Then
        Range("EO5") = "EO5*0"
    ElseIf Range("EO5<=(3500+1500)") Then
        Range("EO5") = " 3%*(EO5-3500)-0"
    End If
End Sub

play9091

1. Sub iftest()
   
2.      If Range("EO5").Value <= 3500 Then
   
3.          Range("EO6") = "EO5*0"
   
4.      ElseIf Range("EO5") <= (3500 + 1500) Then
   
5.          Range("EO5") = " 3%*(EO5-3500)-0"
   
6.      End If
   
7. End Sub
   

复制代码

第四行，寫錯了，要把判斷寫在Range() 的外面！

另外，如果你是要填入 "值" 的話寫法要改成下面這樣子……上面的寫法的填入 "文字"

1. Sub iftest()
   
2.      If Range("EO5").Value <= 3500 Then
   
3.          Range("EO6") =
   
4. Range("EO5").Value
   
5. *0
   
6.      ElseIf Range("EO5") <= (3500 + 1500) Then
   
7.          Range("EO5") =  3%*(
   
8. Range("EO5").Value
   
9. -3500)-0
   
10.      End If
    
11. End Sub

复制代码

ws278106483

Sub 李步兰的()
    If Range("EO5").Value <= 3500 Then   
        Range("EO5") = "EO5*0"   '你这写的意思，eo5单元格为EO5*0
    ElseIf Range("EO5<=(3500+1500)") Then  ‘这句表达式有问题，Range("EO5").value <= (3500 + 1500) Then
        Range("EO5") = " 3%*(EO5-3500)-0"   '这句又写错了，你这句的意思，EO5单元格输入3%*(EO5-3500)-0
    End If
End Sub

李步兰

正确的：
Sub lbl()
If Range("A1") <= 3500 Then
Range("B1") = 0
ElseIf Range("A1") <= 5000 Then
Range("B1") = 0.03 * (Range("A1") - 3500)
End If
  

End Sub

李步兰

ws278106483 发表于 2012-5-19 16:00
Sub 李步兰的()
    If Range("EO5").Value

是表达的方法错了吗？那怎么表达呢？

ws278106483

李步兰 发表于 2012-5-22 15:12
是表达的方法错了吗？那怎么表达呢？

这个表达是正确的啊！

李步兰

ws278106483 发表于 2012-5-22 16:15
这个表达是正确的啊！

谢谢拉，刚开始学着做，这是我第一个编的复杂一点的宏，还请人帮忙了。谢谢！！！！！！！！！！

李步兰

play9091 发表于 2012-5-19 15:34
第四行，寫錯了，要把判斷寫在Range() 的外面！

另外，如果你是要填入 "值" 的話寫法要改成下面這樣子… ...

谢谢拉，第一次编这个东东，呵呵！！