Excel VBA实例教程

?

利用高级筛选做查询 

这节讲下用VBA自动实现高级筛选功能。利用高级筛选就可以做出一个简单的查询功能，在对应的表头下输入要查询的内容就可以得到相应的结果。 Sub Search() Range("A4").CurrentRegion.ClearContents Sheets("Sheet1").Range("A1:D9").AdvancedFilter ...

时间 : 2015-02-12| 栏目 : 案例专题| 浏览 : 18 次| 暂无评论

[阅读全文]

同一列中禁止输入重复值 

在工作中有时需要保证输入数据的唯一性，这节来讲下该功能的实现方法。 第一种方法是可以通过设置数据有效性来实现，选中A列，数据-数据有效性-设置-自定义，输入公式"=COUNTIF(A:A,A1)=1"，确定。其原理就是在输入一个数据时统计该列该数据的个数，只有个数为1的时候才说明这是该列的唯一值。但这个方法有个问题是只支持手动输入数...

时间 : 2015-02-11| 栏目 : 案例专题| 浏览 : 28 次| 评论 : 2

[阅读全文]

简单的按权限登陆实例 

在多个人对同一个工作簿进行操作的时候可能需要给不同的用户设置不同的权限，同过VBA可以初步实现这一功能，不过VBA的密码只能提供一个初步的保护，有点基础的人可以很容易的破解，所以通过VBA来编写的登陆权限可以说是防君子不防小人，平时自己用用就可以了，这里主要给大家提供思路。 实现不同权限登陆是利用了Excel本身的保护功能和工作表的...

时间 : 2015-02-10| 栏目 : 案例专题| 浏览 : 37 次| 暂无评论

[阅读全文]

查找某行第一个或最后一个红色的单元格 

前几天在群里有朋友问怎么查找某行最后一个红色的单元格，当时说的是用循环的方法挨着个判断单元格的interior.colorindex属性，这种方法可行，但是循环起来会比较慢。今天翻看以前的代码，发现其实很早之前就写过类似的程序，时间太久忘了，说来这也是”温故而知新“的一个佐证，没事的时候多回去看看以前学的东西，说不定就会有新的惊喜。 ...

时间 : 2014-12-29| 栏目 : 案例专题| 浏览 : 603 次| 评论 :

[阅读全文]

鼠标经过图片时放大效果的制作 

之前在课程中我们讲过一个点击放大图片的例子，最近又看到一个更高大上的程序，实现的效果是鼠标放到图片上时图片会放大，鼠标移开时图片又会恢复原样。程序来自罗刚君的《Excel 2010 VBA编程与实践》。 先把代码贴出来，然后再做简单的解释。 Declare Function GetCursorPos Lib "user32" (l...

时间 : 2014-12-24| 栏目 : 案例专题| 浏览 : 2,758 次| 评论 :

[阅读全文]

Sendkeys方法设置对VBA工程对象模型的信任 

Sendkeys方法可以模拟键盘按键，其效果和直接在键盘上操作是相同的，有一些不好直接用程序实现的功能可以考虑用Sendkeys模拟按键的方法来实现，用法很简单，我们直接以例子来说明。 在用代码操作VBE对象时首先要设置对VBA工程对象模型访问的信任，手工操作就是在Excel选项中找信任中心-信任中心设置-宏设置里面勾选“信任对VB...

时间 : 2014-12-22| 栏目 : 案例专题| 浏览 : 209 次| 暂无评论

[阅读全文]

逐字查询 

今天分享一个逐字查询，结果显示到ListView中的例子，代码来自罗刚君的《Excel 2010 VBA编程与实践》。要实现的效果是通过窗体查询，要求在文本框中输入时可以实现逐字的查询，即每输入一个字都会显示相应的查询结果，用到的是窗体的keyup事件。直接看代码 Private Sub UserForm_Initialize() '控...

时间 : 2014-12-17| 栏目 : 案例专题| 浏览 : 241 次| 暂无评论

[阅读全文]

自定义窗体右键 

在设计窗体系统中，如果能为窗体加个右键快捷菜单的话会方便很多。这节就来看个自定义窗体右键的例子。 以设计Listview窗体为例，窗体中有许多条数据，现在要求设计一个右键快捷菜单，可以将选中的数据直接删除。ListView控件的初始化就不再讲了，不明白的搜下前面的文章。建立窗体的自定义右键菜单分为两步，首先要先建立一个自定义的菜单栏...

时间 : 2014-12-12| 栏目 : 案例专题| 浏览 : 174 次| 暂无评论

[阅读全文]