按格式查找工作表

在工作中我们可能会需要查找符合某些特定格式的单元格,这个功能手动实现的话就是用查找替换对话框中的“格式”选项,这次我们来看下怎么用VBA代码来实现按格式查找。 要按格式查找,首先要设置要查找的格式,例如字体为黑体则是Application.FindFormat.Font.Name="黑体"。 设置好格式之后就用Find命令进行...

       时间 : 2015-03-12| 栏目 : 案例专题| 浏览 : 5,814 次| 评论 : [阅读全文]

    订制个性化窗体自定义函数

    熟悉VBA窗体的朋友都知道窗体的样式很单调,要想设置一些个性化的属性要用到大量的API函数,今天在论坛上看到一个总结的很全面的自定义函数,拿出来分享一下。感谢前人做了嫁衣裳,我们就不客气的拿来用了,代码中保留了原作者的声明,感兴趣的可以直接联系原作者。 Public Declare Function GetWindowLong Lib ...

         时间 : 2015-03-02| 栏目 : 案例专题| 浏览 : 5,035 次| 评论关闭 [阅读全文]

      禁止打开Excel VBE窗口

      后来仔细想了想该方法并没有所谓的防止查看和修改代码的作用,因为只要限制了宏功能或者不信任对VBA工程对象模型的访问就可以限制该功能从而打开VBE窗口。 禁止打开VBE窗口,可以防止查看和修改代码。 运行机理:在打开事件中添加windows监视,一旦VBE打开,就运行VBEwindow过程,并调用CheckVBE_Event过程强制...

           时间 : 2015-02-20| 栏目 : 案例专题| 浏览 : 3,264 次| 评论关闭 [阅读全文]

        过日期后自动删除Excel

        打开Excel时自动运行程序,将当前时间与设置的时间进行比较,如果超时的话就将工作簿自动删除,可以起到设置使用期限的作用。 Private Sub Workbook_Open()If Now() >= #2/12/2015# ThenActiveWorkbook.ChangeFileAccess xlReadOnlyKill Ac...

             时间 : 2015-02-16| 栏目 : 案例专题| 浏览 : 4,546 次| 评论 : [阅读全文]

          利用高级筛选做查询

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

               时间 : 2015-02-12| 栏目 : 案例专题| 浏览 : 3,193 次| 评论 : [阅读全文]

            同一列中禁止输入重复值

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

                 时间 : 2015-02-11| 栏目 : 案例专题| 浏览 : 3,155 次| 评论 : 2 [阅读全文]

              简单的按权限登陆实例

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

                   时间 : 2015-02-10| 栏目 : 案例专题| 浏览 : 3,397 次| 评论 : [阅读全文]

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

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

                     时间 : 2014-12-29| 栏目 : 案例专题| 浏览 : 2,520 次| 评论 : [阅读全文]