非常好的Excel VBA编程问答.docVIP

非常好的VBA编程问答 别人整理的VBA，在这里借花献佛了！在这里感谢原创者 在学习ExcelVBA编程的过程中，经常会遇到一些问题，有些可能是新碰到的，有些则是以前已遇到过但暂时忘掉了解决办法的，VBA编程问答将把我所收集到的问题和自已所遇到的问题及解决办法进行归纳整理，以方便查阅和参考。 在下面的内容中，有大量的程序代码，并附有简单的说明，您可以将它们输入或复制到VBE编辑器中进行调试，也可以将它们进行适当的调整和修改后应用到自已的程序中。有些问答提供了参考示例，您可以直接下载后处理。 目 录 问题1：如何传递参数到OnTime方法和OnAction属性所调用的宏程序中？ 问题2：如何禁用用户窗体的关闭按钮？ 问题3：可以撤销宏所执行的操作吗？ 问题4：如何将同一文件夹中的多个文本文件读入到工作簿中？ 问题5：如何使用VBA删除所有的空工作表？ 问题6：如何获取计算机上可供使用的打印机列表？ 问题7：如何基于某个单元格更新其它单元格的日期？ 问题8：如何编写一个宏程序运行另一个宏程序特定的次数？ 问题9：如何在一个组合框中列出所有工作表中单元格D3中的值？ 问题10：如何使工作表中的文本闪烁？ 问题11：如何将工作簿中其它工作表名导入到指定的工作表中？ 问题12：如何在单元格中快速输入带秒的时间？ 问题14：如何确定一列中带有数据的最后一个单元格？ 问题15：如何将一个组合框中的项目筛选至另一个组合框中？(不使用组合框) 问题16：如何将一个组合框中的项目筛选至另一个组合框中？(使用组合框) 问题17：如何允许用户去选择一个文件夹或者目录？ 问题18：如何查找应用工作表公式后出现错误的单元格？ 问题19：如何查找工作表中的最后一行？ 问题20：如何定位某个特定的单元格为屏幕左上角的单元格？ 问题21：如何添加自定义工具条？ 问题22：在执行Application.Quit命令后，如何避免出现保存警告信息框？ 问题23：如何确定单元格背景颜色的名称或者索引号？ 问题24：如何查找两个值之间的值？ 问题25：如何在一个单元格区域获取两个给定数值之间的最大数值？ 问题26：如何实现单元格在指定区域内自动跳转? 问题27：如何将多个工作簿中的工作表一次性合到一个工作簿里面？ 问题28：关于Excel单元格填充颜色......？ 问题29：如何实现在Sheet1中输入后，在Sheet2中相应的单元格中显示？ 问题30：如何实现当某一单元格满足非空条件时，输入的数据不能修改？ 问题31：如何用Vba方法导出Xls文件至Txt文件？ 问题32：如何删除工作簿中的所有链接？ 问题33：如何实现工程不可查看？ 问题34：如何判断并根据条件删除行？ 问题35：如何在不同的工作表之间进行复制？ 问题36：如何在打开工作簿时自动运行宏? 问题37：如何在指定的时间或指定的间隔运行宏? 问题38：如何从Excel中发送E-Mail? 问题39：如何删除重复值? 问题40：如何获取命名单元格区域的地址？ 问题1：当OnTime方法或OnAction属性中设置的所要运行的宏带有参数时，如何传递参数到这些宏程序中？即传递参数到OnTime方法和OnAction属性所调用的宏程序中。 解答： 因为运用Application.OnTime或Object.OnAction调用宏程序的语法基本相似，因此，下面介绍的OnTime方法所使用的语法同样适用于OnAction属性。 为了便于理解，以下介绍均使用一段相似的代码，只不过传递给所调用宏程序MyProcedure的参数不同而已，以此来讲解传递给宏程序不同参数的方法。例如，下面的代码将使MyProcedure宏程序在从现在起的2秒后运行： Application.OnTime Now + TimeValue(00:00:02), MyProcedure 子问题1：假设MyProcedure宏程序接受参数，如何传递参数到该宏程序中？有下面几种情形： (1)所调用的宏程序接受一个参数 如果是在正常代码过程中传递参数给宏程序，可以使用 MyProcedure (42)，其中“42”为传递给MyProcedure程序的参数。但如果这样的传递参数方法用在OnTime方法中，该程序将不会运行。 正确的语法是外层为双引号，内层再加上一组单引号，里面是程序名和程序所接受的参数。如下所示： MyProcedure宏程序接受一个数值参数 Application.OnTime Now + TimeValue(00:00:02), MyProcedure 42 (2)所调用的宏程序接受多个参数 如果所调用的宏程序接受几个参数，那么在这些参数之间应该用逗号分隔。如下所示： MyProcedure宏程序接受两个数值参数 Applic