非文本怎样比较大小：Abs(A列 - B列 * 2) <= 1

love_soul

Sub test()

  For i = 2 To 10
      If Abs(Cells(i, "a") - Cells(i, "b") * 2) <= 1 Then

      Cells(i, "c") = "平分"
  End If
  Next
End Sub
以上弄了好久都没弄好，请大家帮一下忙。谢谢！

一把小刀闯天下

'没看懂，是这样子的吗
Option Explicit

Sub test()
  Dim i
  For i = 2 To 10
    If IsNumeric(Cells(i, "a")) And IsNumeric(Cells(i, "b")) Then
      If Abs(Cells(i, "a") - Cells(i, "b") * 2) <= 1 Then Cells(i, "c") = "平分"
    Else
      Cells(i, "c") = "避开"
    End If
  Next
End Sub

love_soul

一把小刀闯天下 发表于 2018-1-13 10:57
'没看懂，是这样子的吗
Option Explicit

就是判断B列是不是A列的一半，能不能只要一个if,C:\Users\NB-hua\Desktop\图片图纸\002.JPG

一把小刀闯天下

love_soul 发表于 2018-1-13 11:50
就是判断B列是不是A列的一半，能不能只要一个if,

这问题我不会用一个if来处理，因为不同类型的变量是不能作粗暴运算的
你也可以在你代码的最前面插入一行试试：on error resume next

love_soul

一把小刀闯天下 发表于 2018-1-13 12:20
这问题我不会用一个if来处理，因为不同类型的变量是不能作粗暴运算的
你也可以在你代码的最前面插入一行 ...

能不能写个正则表大式什么，把不是纯数字和空的值，转成数字0去比较呢？

love_soul

最终还是琢磨出来了
Sub test()
  Dim i
  For i = 2 To 10
  排除 = (InStr(Cells(i, "b"), "//") < 1) * (InStr(Cells(i, "b"), "+") < 1) * (InStr(Cells(i, "b"), "\") < 1) * (Cells(i, "b") > 0)
  
      If (Abs(Cells(i, "a") - Val(Cells(i, "b")) * 2) <= 1) * 排除 Then
         Cells(i, "c") = "平分"
      Else
         Cells(i, "c") = "避开"
      End If
  Next
End Sub