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

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

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

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

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

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

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

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

           时间 : 2014-12-22| 栏目 : 案例专题| 浏览 : 3,270 次| 评论关闭 [阅读全文]

        逐字查询

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

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

          自定义窗体右键

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

               时间 : 2014-12-12| 栏目 : 案例专题| 浏览 : 1,671 次| 评论关闭 [阅读全文]

            自定义范围筛选

            在对数量进行筛选的时候经常要设定一个范围,然后需要筛选出该范围内的所有值,在excel2007及2010版本中这个功能很容易实现,在筛选中找数字筛选,选择介于选项,在弹出的对话框中填写范围即可。当时有的网友还会觉得这样操作起来还是有些麻烦,那我们可以通过录制宏来将该过程录制下来,看下能不能通过宏来自动执行筛选。 现在我们要实...

                 时间 : 2014-12-10| 栏目 : 案例专题| 浏览 : 1,866 次| 评论关闭 [阅读全文]

              如何利用VBA判断系统和Excel版本号

              这节分享个小知识点,利用VBA代码获得电脑系统的版本号和Excel的版本号,这个功能在提高程序兼容性方面作用比较大。 判断系统版本号用的语句是 Application.OperatingSystem 在我电脑上返回的结果是Windows (32-bit) NT 6.01,可以看出我的电脑系统是win7。判断系统就看后面那个数字,...

                   时间 : 2014-12-09| 栏目 : 基本操作| 浏览 : 3,225 次| 评论关闭 [阅读全文]

                只对可见行进行粘贴

                在群里讨论的一个问题,要将一些内容复制到筛选过的区域内,如果直接复制粘贴的话其效果和没有筛选是一样的,如下图 虽然我们想要将数据粘贴到张三的右边单元格,但实际效果却不是这样,没有想出好办法那我们就用VBA来自己做一个程序。思路很简单,挨行判断行是否隐藏,不是隐藏的话就粘贴一行数据,依次循环就可以了。看代码 Sub 粘贴()...

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