vba - 在 If 语句中使用单元格结果中的动态 "<"或 ">"

Question

我正在使用单元格公式来确定 VBA IF 语句中是否需要使用“<”或“>”符号。

这是我正在创建的一个非常大的算法的一部分，该算法用于根据每一侧的直线方程绘制几何图案。

“<”或“>”部分确定插入的形状是否在绘图区域内，绘图区域可以是任何形状和大小。

我坚持的部分:

GreaterORLess = Sheets("shape").Range("L4").value '(可以是“<”或“">”结果在这个单元格中)LeftPos = LeftD + ((L + G) * CountL) '正在插入的矩形的左上角位置
LineEq = (Sty - B)/m ' 边界线角度，以确定 LeftPos 是否 < 或 >

If LeftPos ***[GreaterORLess]*** LineEq Then

    ActiveSheet.Shapes.AddShape(msoShapeRectangle, LeftD + ((l + g) * CountL), topd + (CountW * (W + g)), l, W).Select

End If

我想您可以像 VBA If 语句一样看待这个问题，需要在 If 语句中连接“<”或“>”，然后进行计算？

Answer 1

GreaterORLess = Sheets("shape").Range("L4").value '(will either be a "<" or ">" result in this cell) 

LeftPos = LeftD + ((L + G) * CountL) 'Top Left position of rectangle being inserted

LineEq = (Sty - B) / m ' angle of boundary line to determine if LeftPos is < or > than

If (GreaterORLess = ">" And LeftPos > LineEq) Or  
   (GreaterORLess = "<" And LeftPos < LineEq) Then

    ActiveSheet.Shapes.AddShape(msoShapeRectangle, _
                      LeftD + ((l + g) * CountL), _
                      topd + (CountW * (W + g)), l, W).Select

End If