使用Excel插件：以公式方式使用

安装Excel插件后，就可以在Excel工作表中直接以公式的方式使用插件中的函数。例如，在工作表中选择A1:D4单元格区域，在公示栏输入公式“=mymagic(4)”，同时按下Ctrl+Shift+Enter键，显示4阶魔方矩阵如图4-5所示。

Document Image

图4-5 以公式方式使用Excel插件中的函数

如果没有生成插件，使用编译器生成的VBA模块也能实现相同的效果。对于本例，编译器自动生成的VBA模块代码如下所示：

code.excel vba 
Dim MCLUtil As Object
Dim bModuleInitialized As Boolean
Dim magicclass As Object
Private Sub InitModule()
    If Not bModuleInitialized Then
        On Error GoTo Handle_Error
        If MCLUtil Is Nothing Then
            Set MCLUtil=text-blue-400">CreateObject("MWComUtil.MWUtil23.2")
        End If
        Call MCLUtil.MWInitApplication(text-blue-400">Application)

        bModuleInitialized=True
        Exit Sub
Handle_Error:
        bModuleInitialized=False
    End If
End Sub
Function mymagic(Optional x As Variant) As Variant
    Dim y As Variant
    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)
    mymagic=y
    Exit Function
Handle_Error:
    mymagic="Error in " & Err.Source & ": " & Err.Description
End Function

打开Excel，先把原来加载的插件取消掉，然后在“开发工具”功能区单击“Visual Basic”按钮，打开VBA脚本编辑器。新建一个模块，将上面的VBA代码复制进去。在工作表中选择A1:D4单元格区域，在公示栏输入公式“=mymagic(4)”，同时按下Ctrl+Shift+Enter键，显示如图4-5所示的4阶魔方矩阵。