VBA实例601例----使用控件和窗体2007版=01=19

joyark

11 调用外部程序       

804 API函数与常数的写法.xlsm
805 以API函数设置鼠标的信息.xlsm
806 以CreateObject制作工作表.xlsm
807 以Shell函数启动bat文件并执行Dir命令.xlsm
808 以Shell函数启动邮件软件并发送电子邮件.xlsm
809 以文本单位导入文本文档.xlsm
810 以正规方式确定任意字符串存在.xlsm
811 以毫秒为单位设置程序暂停.xlsm
812 以行单位写入文本文档.xlsm
813 以非同步方式启动外部程序.xlsm
814 列举所有打印机的名称.xlsm
815 利用翻译网站来翻译英文.xlsm
816 利用翻译网站来翻译英文网站.xlsm
817 制作Web网页的路径.xlsm
818 制作含有FORM标签的Html文档并可让用户输入搜索关键字.xlsm
819 制作文档的快捷路径.xlsm
820 取得KEY值为阵列.xlsm
821 启动IE浏览器以显示指定的URL网站.xlsm
822 在Dictionary对象中新建文档.xlsm
823 在窗体上添加最大化和最小化按钮.xlsm
824 在立即窗口中显示右键快捷菜单命令并打印文档.xlsm
825 将“我的最爱”文件夹中的文件以清单形式列举出来.xlsm
826 将以Shell函数所启动的程序的窗口显示在最前面.xlsm
827 将位于网上的某个文件夹设置为当前文件夹.xlsm
828 将整个文本文档导入.xlsm
829 打开CD-ROM光驱.xlsm
830 打开“文件夹选择”对话框.xlsm
831 打开“运行”对话框.xlsm
832 把窗体中的“关闭”按钮删除.xlsm
833 指定Key以改变项目.xlsm
834 指定Key以获取项目.xlsm
835 指定Key并确定其存在，然后将其改变.xlsm
836 指定文件夹路径以开启浏览器.xlsm
837 提取样式相同的字符串.xlsm
838 操作已开启的窗口.xlsm
839 操作控制台.xlsm
840 新建文本文档.xlsm
841 显示出会自动关闭的信息对话框.xlsm
842 替换样式相同的字符串.xlsm
843 由Excel启动Access并打印.xlsm
844 由Excel启动Outlook并向表中的地址发送电子邮件.xlsm
845 由Excel启动PowerPoint并将表中的图表粘贴到幻灯片上.xlsm
846 由Excel启动Word并以表数据进行合并打印.xlsm
847 由指定行来导入文本文档.xlsm
848 由标题(Caption)来获取Windows Handle.xlsm
849 由标题来获取窗口类别.xlsm
850 由窗口类别来获取标题.xlsm
851 由类别名称来获取Windows Handle.xlsm
852 编辑文本文档.xlsm
853 获取已设置的打印机的名称.xlsm
854 获取文件信息.xlsm
855 获取特殊文件夹路径.xlsm
856 获取网络中磁盘的信息.xlsm
857 获取网络信息.xlsm
858 获取项目为阵列.xlsm
859 获取光标所在位置的坐标.xlsm
860 让窗体中的“关闭”按钮失效.xlsm
861 readme.txt
861 设置预设打印机.xlsm
862 运行外部程序并等待其结束(Exce方法).xlsm
863 运行外部程序并等待其结束(Run方法).xlsm
864 运行带引数的Excel并执行宏.xlsm
865 运行程序并在指定时间后将其强制结束.xlsm
866 通过Dictionary对象删除文档.xlsm
867 通过指定的Web页面取得所有超链接.xlsm
868 通过指定的Web页面获取图像并粘贴到工作表中.xlsm
google.html
Q_Book1.xlsx
Q_Data.accdb
Q_Data.mdb
Q_test.txt
Test.txt
wshtest.vbs

joyark

12 文件和文件夹操作

869 不更改文件名并将其移动到另外一个文件夹.xlsm
870 以分隔符确定磁盘路径.xlsm
871 使用FolderExists方法返回指定文件是否存在于当前文件夹中.xlsm
872 使用Open方法确定当前打开文件的路径.xlsm
873 列举当前文件夹中Excel的名称并显示出数量.xlsm
874 删除指定文件夹中的text文档.xlsm
875 删除指定文件夹中的文件.xlsm
876 删除指定的系统文件.xlsm
877 删除目标文件的同时删除的另外指定文件.xlsm
878 判断当前文档所在的文件夹的属性.xlsm
879 判断文件夹是否存在，如果不存在就创建新文件夹.xlsm
880 判断文件夹是否存在，如果存在就移动至指定文件夹.xlsm
881 在工作表中列举出当前计算机所有的磁盘启动器的盘符.xlsm
882 复制指定路径下的text文档.xlsm
883 复制目标文件的同时复制另外的指定文件.xlsm
884 将指定文件复制到指定的系统文件夹中.xlsm
885 将指定路径中的指定文件夹重新命名.xlsm
886 搜索指定文件夹中子文件的数量.xlsm
887 显示当前文件大小.xlsm
888 显示指定文件的最后修改时间.xlsm
889 更改文件名并保存到另一个文件夹中.xlsm
890 查询指定的磁盘驱动器是否存在.xlsm
891 确定带完整目录的文件夹中是否有指定文件.xlsm
892 确定当前工作簿的状态属性.xlsm
893 确定指定文件夹中工作薄的数量.xlsm
894 确定指定文件夹的路径并显示指定文件是否存在.xlsm
895 确定指定路径中的指定文件夹是否存在.xlsm
896 确定文件是否存在，如果存在则移动至指定文件夹中.xlsm
897 readme.txt
897 将当前包含宏文件设置为只读.xlsm
898 移动指定的文件夹到指定的路径中.xlsm
899 获取System文件夹路径.xlsm
900 获取Widnows系统文件夹的路径.xlsm
901 获取当前工作表的全部名称.xlsm
902 获取当前文件和文件夹的名称.xlsm
903 获取当前文件夹中的子文件夹的名称和大小.xlsm
904 获取当前文件夹所在的磁盘盘符.xlsm
905 获取当前文件夹的DOS用短名称.xlsm
906 获取当前文件夹的状态.xlsm
907 获取当前文件所在的文件夹中的所有文件的全名.xlsm
908 获取当前文档的后缀名.xlsm
909 获取当前文档的基础名.xlsm
910 获取指定带完整路径的文件是否存在.xlsm
911 获取文档的保存信息.xlsm
912 获取计算机中临时文件夹的路径.xlsm
913 获取计算机中硬盘的信息.xlsm
test.txt

joyark

13 与Office其他组件的操作

914 创建新文档并退出.xlsm
915 将Excel中的图表复制到演示文稿中.xlsm
916 将Excel中的数据导入到演示文稿中.xlsm
917 将指定对象作为图片粘贴到Word文档中.xlsm
918 将指定文档中的内容输入到Excel中.xlsm
919 打开指定的Word文档.xlsm
920 打开指定的Word文档并退出.xlsm
921 打开指定的演示文稿.xlsm
922 指定工作簿发送邮件.xlsm
923 从数据库中直接计算班级平均成绩.xlsm
924 新建名为“Excel VBA实用操作技巧”的文档.xlsm
925 新建演示文稿.xlsm
Doc1.docx
Excel VBA实用操作技巧.doc
hhh.ppt
PowerPoint试验.ppt
成绩管理1.mdb
操作说明.doc

joyark

14 对话框和命令行操作        

926 修改单元格右键快捷菜单.xlsm
927 列举命名行.xlsm
928 列举命名行控制项的FaceID(命令行上).xlsm
929 列举命名行控制项的FaceID(工作表上).xlsm
930 删除命令行控制项.xlsm
931 在任意位置快速显示命令行.xlsm
932 在单元格中快速输入日期.xlsm
933 在命令行上删除组合对象命令.xlsm
934 在命令行按钮控制项上插入自定义图像.xlsm
935 在命令行的任意位置插入控制项的分隔线.xlsm
936 在自定义表单上显示快捷菜单.xlsm
937 显示Excel内置的对话框.xlsm
938 更改GetOpenFilaname方法的选项.xlsm
939 更改GetOpenFilaname方法的预设目录.xlsm
940 更改GetSaveFilaname方法的预设目录.xlsm
941 自定义快捷菜单命令.xlsm
942 设置GetOpenFilaname方法的取消错误.xlsm
943 设置GetSaveFilaname方法的取消错误.xlsm
944 运行命令行控制项.xlsm
945 限制输入对话框的限制值.xlsm
946 隐藏所有既存的命令.xlsm

joyark

15 图表操作

947 为XY散点图添加线性趋势线.xlsm
948 制作动态图表.xlsm
949 快速创建多个图表.xlsm
950 打开工作表即可创建饼图.xlsm
951 确定X轴和Y轴的数据源.xlsm
952 获取图表中趋势线的信息.xlsm
953 获取图表在工作表中的坐标.xlsm
954 获取图表工作表的名称.xlsm
955 重新设置图表在工作表中的位置.xlsm

joyark

16 宏操作

956 在指定的时间执行程序.xlsm
957 在程序中执行其他程序.xlsm
958 宏执行时不更新屏幕.xlsm
959 执行宏.xlsm
960 按下特定的键来执行程序.xlsm

joyark

17 阵列操作        

961 以字符串指定函数.xlsm
962 使用Bubble排序阵列.xlsm
963 使用LBound函数制作表头.xlsm
964 使用Merge排序阵列.xlsm
965 使用Switch函数查看今天的时间.xlsm
966 列举所输入的公式.xlsm
967 在内置函数中使用阵列(一维).xlsm
968 在内置函数中使用阵列(二维).xlsm
969 快速排序.xlsm
970 快速输入月份名称的自定义数组函数.xlsm
971 指定区域进行计算.xlsm
972 更改公式之外的连接目标.xlsm
973 模拟快速排序.xlsm
974 计算指定日期之间的天数.xlsm
975 在加载项添加组和命令按钮.xlsm
976 在加载项中添加命令按钮.xlsm
977 返回计算公式字符串.xlsm
978 进行单元格之间的结果重复检查.xlsm
979 随机排序所指定的阵列.xlsm

joyark

18 数据操作

980 删除表格中的整列空行.xlsm
981 判断工作表中是否有自动筛选,如果有则取消.xlsm
982 将没有出现在筛选结果中的所有行删.xlsm
983 将筛选结果粘贴到新工作表中.xlsm
984 快速删除表格中的空行.xlsm
985 快速复制指定单元格区域.xlsm
986 快速实现数据筛选.xlsm
987 快速实现高级筛选.xlsm
988 快速进行条件筛选.xlsm
989 快速隐藏工作表中相同的数据.xlsm
990 显示不同工作表中的重复数据.xlsm
991 对字符进行排序.xlsm
992 对数组的元素值进行排序.xlsm
993 查找姓“李”的学生成绩.xlsm
975 在加载项添加组和命令按钮.xlsm
976 在加载项中添加命令按钮.xlsm
977 返回计算公式字符串.xlsm
978 进行单元格之间的结果重复检查.xlsm
979 随机排序所指定的阵列.xlsm

joyark

19 VBA工程

1000 自动设置VBA工程信息.xlsm
1001 重命名模块.xlsm
994 在窗体中显示VBA工程信息.xlsm
995 将VBA工程信息导入到当前工作表中.xlsm
996 将模块导出到当前文件夹中.xlsm
997 插入模块并自动写入代码.xlsm
998 自动创建窗体和控件并显示窗体.xlsm
999 自动插入类模块.xlsm
UserForm1
UserForm1.frx

zhdoxin

分享了这么多，先说声您辛苦了