如何运行VBA代码(如何运行VBA代码)

【分享成果,随喜正能量】重复,而得专注,心无旁骛,乃成其大,成其精。人这一生,最幸福的事,就是投入百分百的热爱,做自己喜欢的事,并不断努力,才不枉此生。。

《VBA之EXCEL应用》是非常经典的,是我推出的第七套教程,定位于初级。这套教程从简单的录制宏开始讲解,一直到窗体的搭建,内容丰富,实例众多。大家可以非常容易的掌握相关的知识,这套教程共三册,十七章,都是我们在利用EXCEL工作过程中需要掌握的知识点,希望大家能掌握利用。今日讲解的内容是“VBA之EXCEL应用”: 如何运行VBA代码

如何运行VBA代码(如何运行VBA代码)(1)

第三节 利用运行按钮,从模块(Module)运行代码

作为Excelvba的初学者,您可能会发现很难决定将VBA代码放在哪里。“创建宏”一节说明了如何通过单击命令按钮来运行代码,同时我们也提到利用一个自选图形作为运行按钮的实例,这章将讲解一个实例代码,放在标准模块中,然后讲解从模块中运行代码。

1 打开Visual Basic编辑器

我们在上面的章节中已经知道了如何打开一个Visual Basic编辑器了,这个编译器我们俗称为VBE窗口。我们打开它:

如何运行VBA代码(如何运行VBA代码)(2)

2 建立新的模块(Module)

在主界面上点击“插入”,弹出的对话框中我们选择“模块”,点击。这些动作将表示我们将在后台插入一个模块,这个模块是标准模块,这个模块中我们将利用VBA的代码来驱动一些对象,达到我们的一些目的,这种目的是以提高工作效率,提高自动化操作为目的的。如下面的操作界面:

如何运行VBA代码(如何运行VBA代码)(3)

3 创建一个名为Mynz的过程(宏)

我们先看一下上面操作后的界面,如下:

如何运行VBA代码(如何运行VBA代码)(4)

此时,我们添加了一个标准模块“模块1”,在录入代码区域,我们录入下面的代码:

Sub mynz()

End Sub

此时我们将创建一个mynz过程:

如何运行VBA代码(如何运行VBA代码)(5)

  • 注意:过程可以是SUB过程,也可以是FOUNTION函数。
4 在过程中添加我们的代码

我们在模块中添加下面的代码:

Sub mynz()

Sheets("Sheet3").Select

Cells.Interior.ColorIndex = 28

End Sub

代码截图:

如何运行VBA代码(如何运行VBA代码)(6)

代码解读:上面的MYNZ过程将工作表的背景色更改为青色。

  • 注意:ColorIndex编号为28表示青色,当然,你可以使用其他的代码表示不同的颜色。
5 执行编译好的代码

要运行该过程,一般可以用以下两种方法:

方法一:在如下的界面,单击“宏”,弹出的对话框中选择宏名“mynz”,最后点击“执行”。

如何运行VBA代码(如何运行VBA代码)(7)

这样就可以执行我们刚才编写的代码了。

方法二:

这种方法是利用我们在第一讲中讲的利用自定义图形作为我们的运行按钮,关于如何建立运行按钮,这里不再多讲,大家可以回过头再看看前面第一章的内容,下面我们讲解如何将这个运行按钮关联到我们的代码。

如下图:选中“运行”按钮,右键,在弹出的对话框中点击“指定宏”,弹出下面的对话框:

如何运行VBA代码(如何运行VBA代码)(8)

在弹出的对话框中,我们选择已经建立的过程“mynz”,点击确定。

如何运行VBA代码(如何运行VBA代码)(9)

最后我们回到工作表界面,当鼠标移动到“运行”按钮时会变成手型,点击一下,看看代码的执行效果:

如何运行VBA代码(如何运行VBA代码)(10)

这个时候,整个工作表的界面变成了青色。

今日内容回向:

1)如何实现运行模块中的代码?

2)如何改变工作表的颜色?

3) Cells.Interior.ColorIndex = 28代表什么意思?

本讲内容参考程序文件:工作簿01.xlsm

如何运行VBA代码(如何运行VBA代码)(11)

我20多年的VBA成果全在下面的资料中:

如何运行VBA代码(如何运行VBA代码)(12)

如何运行VBA代码(如何运行VBA代码)(13)

如何运行VBA代码(如何运行VBA代码)(14)

【分享成果,随喜正能量】只要有结缘,就会有无限的未来。结缘,使我们的人生更宽阔,命运更平坦;积德结缘,才是人生幸福的根源。。

,

免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com

    分享
    投诉
    首页