使用Excel插件：以宏的方式使用

Excel插件还可以以宏的方式进行使用。对于上一小节的VBA代码，将mymagic函数改成过程，确定生成一个4阶魔方矩阵，并输出到工作表的A1:D4单元格区域。代码如下所示。

code.excel vba 
Public Sub mymagic()
    Dim x As Variant
    Dim y As Variant
    x=4
    On Error GoTo Handle_Error
    Call InitModule
    If magicclass Is Nothing Then
        Set magicclass=text-blue-400">CreateObject("magic.magicclass.1_0")
    End If
    Call magicclass.mymagic(1, y, x)
    text-blue-400">Range("A1:D4")=y
    Exit Sub
Handle_Error:
    text-blue-400">MsgBox "Error in " & Err.Source & ": " & Err.Description
End Sub

在工作表中插入一个按钮，给它关联宏mymagic。单击按钮，在工作表的A1:D4单元格区域中输出4阶魔方矩阵，如图4-6所示。

Document Image

图4-6 用宏的方式运行