[已解决]请高人看看哪里错了

228869831 · 发表于 2011-12-26 21:45

Sub 判断2()
  If Range("b3").Value > Range("b2").Value Then
   If range(“b6”) = “多” and Range("b4")> Range("b3")  then
      Range("b5") = Range("b3")  and Range("b7")=”多”
   Else if range(“b6”) = “多” and Range("b4")<Range("b3")  then
   Range("b5") = Range("b3")  and Range("b7")=”空”
Else if range(“b6”) = “空” and Range("b4")<Range("b3")  then
   Range("b5") = Range("b3")  and Range("b7")=”空”
Else if range(“b6”) = “空” and Range("b4")>Range("b3")  then
   Range("b5") = Range("b3")  and Range("b7")=”多”
End If
Else
Range("b4") > Range("b3")
  End If
End Sub

最佳答案

月排行榜 / 总排行榜

sunjing-zxl

2011-12-27 16:21

Sub 判断2()
If Range("b3").Value > Range("b2").Value Then
If Range("b6") = "多" And Range("b4") > Range("b3") Then
Range("b5") = Range("b3")
Range("b7") = "多"
ElseIf Range("b6") = "多" And Range("b4") < Range("b3") Then
Range("b5") = Range("b3")
Range("b7") = "空"
ElseIf Range("b6") = "空" And Range("b4") < Range("b3") Then
Range("b5") = Range("b3")
Range("b7") = "空"
ElseIf Range("b6") = "空" And Range("b4") > Range("b3") Then
Range("b5") = Range("b3")
Range("b7") = "多"
End If
Else
Range ("b4") > Range("b3") '这一句问题最大，但是不知道你什么意思，所以没办法改
End If
End Sub

复制代码

跳转到最佳答案楼层

mxg825 · 发表于 2011-12-26 21:53

你想表达什么条件。。。写法多处错误！

上清宫主 · 发表于 2011-12-26 22:21

错的倒是不多，只是肯定不是楼主希望的结果

epexiaocheng · 发表于 2011-12-27 08:36

学习............................

Dj_soo · 发表于 2011-12-27 09:08

Range("b4") > Range("b3")
倒数第三行的这一句你想表达什么?

Dj_soo · 发表于 2011-12-27 09:09

另外所有双引号应该是半角状态下输入"",而不是“”

leolee82 · 发表于 2011-12-27 12:16

else if 要连起来写

worm1 · 发表于 2011-12-27 13:32

为什么不用select case来做？做好的好复杂~

sunjing-zxl · 发表于 2011-12-27 16:21

这个最佳答案由 sunjing-zxl 给出，感谢 sunjing-zxl 的回答。

单击隐藏图章

Sub 判断2()
If Range("b3").Value > Range("b2").Value Then
If Range("b6") = "多" And Range("b4") > Range("b3") Then
Range("b5") = Range("b3")
Range("b7") = "多"
ElseIf Range("b6") = "多" And Range("b4") < Range("b3") Then
Range("b5") = Range("b3")
Range("b7") = "空"
ElseIf Range("b6") = "空" And Range("b4") < Range("b3") Then
Range("b5") = Range("b3")
Range("b7") = "空"
ElseIf Range("b6") = "空" And Range("b4") > Range("b3") Then
Range("b5") = Range("b3")
Range("b7") = "多"
End If
Else
Range ("b4") > Range("b3") '这一句问题最大，但是不知道你什么意思，所以没办法改
End If
End Sub

复制代码

228869831 · 发表于 2011-12-30 22:43

谢谢LS诸位

		自动登录	找回密码
密码			注册

[已解决]请高人看看哪里错了

点评