Question

我有一个带有以下select case语句的函数。如果条件部分中有Excel，则该功能不起作用。

赞：Case Is >= Sheets("list").Range("M50")

如果我输入条件的值，该函数有效，例如：Case Is >= 5

选择如下所示。使用公式是不允许的？有工作吗？

Select Case distance


Case Is >= Sheets("list").Range("M50")
RightPlace = Sheets("list").Range("n50").Value

Case Is >= Sheets("list").Range("M51").Value
RightPlace = Sheets("list").Range("n51").Value

Case Is >= Sheets("list").Range("M52").Value
RightPlace = Sheets("list").Range("n52").Value

Case Is >= Sheets("list").Range("M53").Value
RightPlace = Sheets("list").Range("n53").Value

Case Is >= Sheets("list").Range("M54").Value
RightPlace = Sheets("list").Range("n54").Value

Case Is >= Sheets("list").Range("M55").Value
RightPlace = Sheets("list").Range("n55").Value

Case Is >= Sheets("list").Range("M56").Value
RightPlace = Sheets("list").Range("n56").Value

Case Is >= Sheets("list").Range("M57").Value
RightPlace = Sheets("list").Range("n57").Value

Case Is >= Sheets("list").Range("M58").Value
RightPlace = Sheets("list").Range("n58").Value



End Select

Answer 1

为什么要使用Case语句？您正在查找电子表格单元格中的数据，因此您也可以使用

RightPlace = Application.WorksheetFunction.VLookup(distance, Sheets("list").Range("M50:N58"), 2, False)

我可以在特定情况下使用公式

1 个答案: