学习资源：《Excel VBA从入门到进阶》第79集 by兰色幻想
一、DLL文件简述
1. 什么是DLL文件
       DLL是Dynamic Link Library 的缩写形式，DLL是一个包含可由多个程序同时使用的代码和数据的库。
       DLL不是可执行文件。动态链接提供了一种方法，使进程可以调用不属于其可执行代码的函数。函数的可执行代码位于一个 DLL 中，该 DLL 包含一个或多个已被编译、链接并与使用它们的进程分开存储的函数。DLL 还有助于共享数据和资源。多个应用程序可同时访问内存中单个DLL 副本的内容。DLL 是一个包含可由多个程序同时使用的代码和数据的库。
2. DLL在VBA中有什么作用？
    ① 把核心代码封装在DLL里，用户无法查看到DLL文件中的代码，有利于保护自已的代码。
    ② 可以放在DLL文件中被大家共享。
3. 怎么把VBA代码封装到DLL文件中呢？
       常用的方法是使用VB6.0进行封装，所以大家要想学习本集封装，需要先安装VB6.0程序。具本的封装步骤详见下面的DLL封装示例模块。
 4. 怎么在VBA中调用这些代码呢？
       封装的代码是以类的形式存在，所以调用前需要先加载DLL文件，然后在模块中象调用类模块一样调用DLL中的函数，详见下面的"DLL代码的调用"模块内容。
二、DLL封装
在模块中编写试调正确
例：写一个求矩形面积的VBA自定义函数。
Function 面积(长 As Double, 宽 As Double)
  面积 = 长 * 宽
End Function
 2. 打开VB程序，在"新建工程'窗口中点"ActiveX DLL"图标。
3. 进入编辑界面后,进行如下设置
① 把编写的代码粘贴到工程代码窗口中
② 在右侧的属性窗口中修改工程名称和类模块名称为自已的名称，修改方法同VBA，在属性栏修改。
③ 添加对EXCEL和OFFICE的调用，以支持使用EXCEL对象。在菜单栏的工程-引用，找到下面两个引用：
Microsoft Office N.0 object library
Microsoft Excel N.0 object library
(N可能每个电脑的会不一样，看系统版本，我的电脑是16）
④ 文件菜单----工程另存为到指定的文件夹下
⑤ 文件菜单----生成....dll 保存在刚在的文件夹下
       进行以上步骤后，在文件夹内会生成很多文件，这些文件两为两大类，dll是最终封装好的代码文件，其他的是为了以后编辑代码用的。如果只是生成dll，以后需要修改代码时,而你又无法打开查看编辑，怎么办呢？所以要有一个备份可以编辑代码，就是vbp文件。
       需要修改时，打开vbp文件，修改之后也可以直接点击“生成…….dll”，那就直接更新了dll文件。
三、DLL调用
工具----引用---浏览---找到dll文件，完成后会在引用窗口中出现dll文件的名子的项目。
2. 在代码中使用
Sub test()
    Dim m As New 面积计算
    MsgBox m.面积(10, 20)
End Sub
      在VBA模块中使用DLL中的函数或方法，和使用VBA中类模块一样。
3. 删除引用窗口中引用项目的方法
      在开始运行中输入regedit打开注册表，在注册表中搜索“工程名称.dll"，把对应的项删掉便可。要小心，不要删除错了。
四、VBA代码的转换
为什么要转换
      在EXCEL的编程环境下可以直接用EXCEL里的对象，但封装VBA代码的环境是VB，在人家的地盘你想用EXCEL对象就得加上详细的对象了。
       比如在VBA模块中我们可以用selecttion表示正在选取的单元格，用sheets(1)表示第一个工作表，而在VB中你需要先引用EXCEL对象，然后才能利用EXCEL对象的属性引用工作簿和工作表等对象。
2. 怎么转换
       先引用和创建excel程序，然后利用 Excel对象.子对象.对象或方法的结构 来转换。
例：删除重复数据。
下面是在VBA中的代码写法：
Sub 删除重复数据()

    Dim x As Integer
    Dim arr, d As Object
    Dim el As Object
   
    Set d = CreateObject("scripting.dictionary")     '创建字典对象
    
    With ActiveSheet
        
        arr = Selection
        
        For x = 1 To UBound(arr)     '通过循环把数据装入字典，字典只能获取不重复值
            d(arr(x, 1)) = ""
        Next x
        
        Selection.Clear
        Selection.Cells(1, 1).Resize(d.Count) = Application.Transpose(d.Keys)
   
    End With
   
    Set el = Nothing
 
 End Sub
封装后的代码，涉及Excel中的方法和对象在VB中都要先加el。
Sub 删除重复数据2()
   
    Dim x As Integer
    Dim arr, d As Object
    Dim el As Object
    
    Set d = CreateObject("scripting.dictionary")
    Set el = GetObject(, "Excel.Application")     '创建excel对象
   
    With el.ActiveSheet       'excel程序的activesheet,下面遇到excel中的对象方法、函数都要加上el
        
        arr = el.Selection
        
        For x = 1 To UBound(arr)
            d(arr(x, 1)) = ""
        Next x
   
        el.Selection.Clear
        el.Selection.Cells(1, 1).Resize(d.Count) = el.Transpose(d.Keys)
    
    End With
   
    Set el = Nothing

End Sub
封装、调用后就能在VBA中使用，使用方面和类模块一样：
Sub 引用删除dll()
    Dim sc As New 删除重复模块
     sc.删除重复数据2
     Set sc = Nothing
End Sub
五、显示VB的窗体
想封装窗体代码，在VB工程资源管理器中右键插入窗体，和VBA的操作一样。
接上例，在窗体插入了一个按钮，功能是点击按钮，就能显示窗体。
Sub 显示VB6窗体()
    Dim vbf As VBform      '声明窗体
    Set vbf = New VBform
    Load vbf               '加载窗体
    vbf.Show vbModal       '显示窗体
    set vbf =Nothing       '释放对象
End Sub
调用后在VBA中使用：
Sub 显示VB6form()
    Dim vbclass As New 删除重复模块
    vbclass.显示VB6窗体
End Sub
一直安装不成功VB6，只好照着视频先写笔记了，没有太多插图。

%圆弧插补函数，输入三个坐标，以及插补点个数，得到一组坐标

function [trajx,trajy,trajz]=Cir_interpol(N,pos1,pos2,pos3)

x1=pos1(1);y1=pos1(2);z1=pos1(3);

x2=pos2(1);y2=pos2(2);z2=pos2(3);

x3=pos3(1);y3=pos3(2);z3=pos3(3);

A1 = y1z2 - y1z3 -z1y2 + z1y3 + y2z3 - y3z2;

B1 = -x1z2 + x1z3 + z1x2 - z1x3 - x2z3 + x3z2;

C1 = x1y2 - x1y3 - y1x2 + y1x3 + x2y3 - x3y2;

D1 = -x1y2z3 + x1y3z2 + x2y1z3 - x3y1z2 -x2y3z1 + x3y2z1;

% fplane = @(x,y,z) A1x + B1y +C1z +D1; %三点确定的面的方程

A2 = 2(x2-x1);

B2 = 2*(y2-y1);

C2 = 2*(z2-z1);

D2 = x12+y12+z1^2 - x22-y22-z2^2;

A3 = 2*(x3-x1);

B3 = 2*(y3-y1);

C3 = 2*(z3-z1);

D3 = x12+y12+z1^2 - x32-y32-z3^2;

T = [A1 B1 C1;A2 B2 C2;A3 B3 C3];

D = [D1 D2 D3]’;

r0 = -inv(T)D ;%圆心坐标向量

R = sqrt((pos1(1)-r0(1))2+(pos1(2)-r0(2))2+(pos1(3)-r0(3))^2);%半径

%step2:得到13两点间的间距d

d13=sqrt((pos1(1)-pos3(1))2+(pos1(2)-pos3(2))2+(pos1(3)-pos3(3))^2);

o13=(pos1+pos3)/2;%得到13两点的中点，当弧角180度时，圆心在该点，以该点为衡量，判定优劣弧

%step3:得到13中点与2点间距do2

do2=sqrt((o13(1)-pos2(1))2+(o13(2)-pos2(2))2+(o13(3)-pos2(3))^2);

%ste4:判断优弧还是劣弧

if(do2<d13/2)

theta=2asin(d13/2/R);

else

theta=2pi-2asin(d13/2/R);

end

%step5:寻找该平面的法向量n，并将其单位化，将n1向量绕其旋转得到ni向量，加上圆心坐标即为圆弧插补点坐标

n1=pos3-r0’;

n2=pos1-r0’;

n=cross(n1,n2);

len=sqrt(n(1)2+n(2)2+n(3)^2);

n=n/len;%得到单位法向量

u=n(1);

v=n(2);

w=n(3);

%插值个数为30个

xx(N)=0;

yy(N)=0;

zz(N)=0;

%计算每一个插值点坐标,向量绕旋转轴n的旋转矩阵T

for c=1:N

tmp=transT((c-1)/(N-1)*theta,u,v,w)*n2’;

xx©=tmp(1);

yy©=tmp(2);

zz©=tmp(3);

end

trajx(N)=0;

trajy(N)=0;

trajz(N)=0;

for t=1:1:N;

trajx(t)=xx(t)+r0(1);

trajy(t)=yy(t)+r0(2);

trajz(t)=zz(t)+r0(3);

end

end

从2016a开始到现在的2017，从MATLAB中创建出一个独立的应用程序有多种方法，可以用MATLAB提供的现有函数或者现有App。 

本文介绍的是利用MATLAB的Application Compiler工具创建一个独立的应用程序,以下这个例子显示了如何从MATLAB中生成独立的应用程序。



编写代码文件

在MATLAB中，编写你想独立成为应用程序的MATLAB代码，保存为.m文件，此处以简单的magicsquare.m为例子，该例子是用来生成幻方。

代码如下：



function [a,b]=example(x1,x2)
a=x1
b=x1+x2

在MATLAB命令提示符下，输入example(1,2)，输出显示如下： 




打开应用程序编译器

在命令行窗口输入deploytool，选择Application Compiler，或者直接在命令行窗口输入applicationCompiler或者deploytool。 





指定要部署MATLAB应用程序的主文件

a.     在工具条的部分，点击加号按钮。 

b.     在打开的文件浏览，找到并选择magicsquare.m文件。



单击PACKING OPTIONS的选项部分

确认Runtime download from web复选框被选中。 

当然，下一个也是可以的。 

但是如果是上一个的话，要在有MATLAB环境下才能运行。 




MATLAB编译器项目窗口的主体部分简介

该项目窗口分为以下几个区域： 


ApplicationInformation -部署的应用程序的可编辑信息。
AdditionalInstaller Options -为生成的安装程序默认安装路径。
Files requiredfor your application -生成的应用程序所需的其他文件。这些文件将被包括在生成的应用程序的安装程序当中。
Files installedwith your application -和您的应用程序一起安装的文件。这些文件包括： 

    产生的readme.txt 

   目标平台的生成的可执行文件
AdditionalRuntime Settings-控制生成的可执行文件的特定选项。
点击 Package



正在生成应用程序包





生成的输出文件应该包含



for_redistribution包含用于安装应用程序和MATLAB Runtime的文件。
for_testing文件夹包含创建的所有由MCC创建的文件，像二进制文件和jar，头和源文件，使用这些文件来测试安装。
for_redistribution_files_only文件夹包含应用程序的重新发布所需的文件。这些文件可以分发到那些有MATLAB或者有 MATLAB Runtime 的用户的电脑上。
PackagingLog.txt是由编译器生成的日志文件。
安装MATLAB生成的独立应用程序



a.     在for_redistribution文件夹中找到MyAppInstaller_web后双击运行 

b.     如果你使用代理服务器连接到互联网，输入服务器的设置。 

c.     点击Connection Settings。 

d.     在提供的窗口​​中输入代理服务器设置。 

e.     点击OK。 

f.      根据提示进行操作，在此过程中选择应用程序的安装路径，如果MATLABRuntime 未安装，需要选择相应的安装路径，选择License Agreement的安装路径，跟着提示一步步进行就可以将应用程序安装完成了。





运行独立应用程序

打开一个终端窗口。 

浏览到您安装该应用程序的文件夹。 

如果接受默认设置，你可以找到在以下位置的一个文件夹，运行使用以下命令的一个应用程序。

1、何为函数句柄？
函数句柄也是MATLAB中的一种常见的数据类型，
它的地位类似于其它计算机语言里的函数对象(Javascript,Python)，函数指针(C++)，或者函数引用(Perl)。
它的作用是将一个函数封装成一个变量，使其能够像其它变量一样在程序的不同部分传递。。引入函数句柄可使函数调用变得更加灵活方便，极大地提高了函数调用的速度和效率。MATLAB中函数句柄的使用使得函数也可以成为输入变量，并且能很方便地调用，提高函数的可用性和独立性。
2、函数句柄的创建：
方式①：直接加@
语法：@函数名fun1 = @sin;
方式②：str2func函数
语法：str2fun(‘函数名’)
fun2 = str2func(‘cos’);
方式③：str2func函数
语法：@(参数列表)单行表达式
 　　　　fun3 = @(x, y)x.^2 + y.^2;
3、函数句柄的调用：
假定一个函数的调用格式为：[y1,y2,…,yn] = FunctionName(x1,x2,…,xm)
该函数通过以下方式构建函数句柄：Hfunction = @FunctionName
则通过函数句柄实现函数运算的调用格式是：直接调用 Hfunction (x1,x2,…,xm) 或者 [y1,y2,…,yn]=feval (Hfunction,x1,x2,…,xm)
例如：
句柄是matlab语言独有的参数，相当于C语言的指针。
 句柄分为多种，如函数柄，对象柄，图形柄等。
 图形句柄就指一个图形，在生成图形时同时得到一代号，如语句 h=plot(x,y),h 就是一个图形句柄，在后来的某一个地方就可用h代表这个图，如 set(h,…)，对这个图形进行再设置。1.函数句柄
 函数句柄简介：函数句柄(function  handle)是MATLAB中的一类特殊的数据结构，它的地位类似于其它计算机语言里的函数对象(Javascript,Python)，函数指针(C++)，或者函数引用(Perl)。作用是将一个函数封装成一个变量，使其能够像其它变量一样在程序的不同部分传递。
 句柄创建：
 （1）fun1=@sin;
 (2)fun2=str2fun(‘cos’);
 (3)匿名函数：fun3=@(x,y)x2+y2;
 函数句柄应用：函数句柄作为函数参数；利用函数句柄绘图；利用函数句柄滤波等
比如定义f(x)=x^2写
 f=@(x)(x.^2)
 其@(x)(x.^2)匿名函数第括号面自变量第二括号面表达式@函数指针
 f=@(x)(x.2)表示匿名函数@(x)(x.2)赋值给f于f表示该函数
 于f(2)=2.2=4；f(1:3)=[1:3].2=[1 4 9]等等
定义匿名函数调用别匿名函数比
 f1=@(x,y)(x.2+y.2)
 定义函数x2+y2
 f2=@(t)(f1(t,2))
 定义函数t^2+4
 f3=@(x)(f1(x(1),x(2)))
 定义函数x(1)2+x(2)2
 使用匿名函数定要注意函数本身参数形式
 f1(2,3)
 表示22+32
 f2(3)=3
 表示3^2+4
 f3([1,2])
 表示12+22
 说白函数指针
handle=@functionname
 返指向制定MATLAB函数句柄
 函数句柄指指向函数量句柄函数获函数句柄存
图形句柄和图形之间是一种一一对应关系，简单的说图形句柄就是指向了这个图形的一个变量，通过它可以设定该图形的各种属性。
matlab其实还有很多新颖奇妙的函数用法，给我们带来了很多便利，需要的时候多去查查就好了