Excel做好了一个模块,怎么在建一个一样的模块

将模块从一个工作簿复制到另一个工作簿的方法：

1.打开包含要复制的宏的工作簿，以及要复制宏的工作簿。

2.在开发工具选项卡上，VisualBasic打开VisualBasic编辑器。

3.在VisualBasic编辑器的视图菜单上，单击资源管理器Project“项目资源管理器”按钮图像，或按Ctrl+R。

4.在Project资源管理器窗格中，拖动包含要复制到目标工作簿的宏的模块。在这种情况下，我们要将Module1从Book2.xlsm复制到Book1.xlsm。

1、启动Excel并打开Visual Basic编辑器，在工程资源管理器中插入一个模块，在模块的“代码”窗口中输入程序代码，如图1所示。具体的程序代码如下所示：

Sub DrawTr()

Dim triArray(1 To 4,1 To 2)As Single

triArray(1,1)=25

triArray(1,2)=100

triArray(2,1)=100

triArray(2,2)=150

triArray(3,1)=150

triArray(3,2)=50

triArray(4,1)=25

triArray(4,2)=100

Worksheets(1).Shapes.AddPolyline triArray

Worksheets(1).Shapes(1).Fill.ForeColor.RGB=RGB(15,100,255)

End Sub

　

图1　创建模块并输入程序代码

提示

在VBA中，使用Shapes对象的AddPolyline方法能够创建一个不封闭或封闭的多边形，该方法将能够返回一个代表新的连续线段或多边形的Shape对象。该方法的语法格式如下所示：

表达式AddPolyline(SafeArrayOfPoints)

这里，表达式是一个代表Shapes对象的变量，该方法的SafeArrayOfPoints参数是一个必选参数，其是用于指定多边形顶点的.坐标对所组成的数组，坐标对指的是一对数值，该数值表示点的X和Y坐标。

2、按F5键运行该段程序代码，在Excel工作表中将插入一个蓝色的三角形，如图2所示。

图2　在工作表中插入三角形

---