Excel VBA-LCM-未定义子函数

Question

The following code:

Sub lcm_()

    If Selection.Areas.Count <> 1 Then Exit Sub

    Dim a As Range
    Set a = Selection.Areas(1)
    a.Item(1).Value = Lcm(a.Item(1).Value, a.Item(2).Value)

End Sub

produces the error: Compile error: Sub or Function not defined , and I cannot figure out why. I have looked at similar problems, and it seems like the issue is that Excel cannot find the builtin function LCM, but the documentation makes it seem like it doesn't require any special libraries. I am very new to VBA, so it is entirely possible that this is something very simple, but I cannot figure out what.

EDIT:

It is worth noting that if I simply click on a cell and type =LCM(A8,A9) , then it works fine.

Answer 1

Try this:

Sub lcm_()

    If Selection.Areas <> 1 Then Exit Sub

    Dim a As Range
    Set a = Selection.Areas(1)
    a.Item(1).Value = WorksheetFunction.Lcm(a.Item(1).Value, a.Item(2).Value)

End Sub