VBA实例601例

joyark

01 Excel基础操作

---

401  修改Excel的标题.xlsm
402  切换Excel引用模式.xlsm
403  快速填充编号.xlsm
404  显示Excel内置对话框.xlsm
405  获取Excel库文件夹的路径.xlsm
406  获取Excel模板保存路径.xlsm
407  获取Excel窗口状态.xlsm
408  获取Excel路径.xlsm
409  获取当前工作表的用户名.xlsm
410  获取窗口高度和宽度.xlsm
411  设置最近使用的文件清单数.xlsm
412  隐藏正在使用的Excel工作簿.xlsm   　  

joyark

02 单元格基础操作
413 复制单元格的批注.xlsm
414 复制单元格的有效性设置.xlsm
415 复制单元格边框.xlsm
416 快速输入指定日期.xlsm
417 批量设置单元格格式.xlsm
418 指定单元格区域内包含常量的单元格地址.xlsm
419 显示所选单元格的地址.xlsm
420 更改指定字符串的格式.xlsm
421 查找含有公式的单元格.xlsm
422 获取指定单元格的数字格式.xlsm
423 获取指定字符串的单元格地址.xlsm
424 获取单元格区域中最后一个单元格地址.xlsm
425 获取指定单元格区域的起始和终止行号.xlsm
426 获取指定单元格填充图案.xlsm
427 获取指定单元格字体格式.xlsm
428 获取指定单元格边框格式.xlsm
429 转置复制单元格区域.xlsm
430 选择不连续的行.xlsm

joyark

03 工作簿基础操作

431 保存并关闭工作簿.xlsm
432 创建多个新窗口且并排显示.xlsm
433 创建新窗口且并排显示.xlsm
434 判断工作簿中是否有加载.xlsm
435 判断工作簿是否发生更改.xlsm
436 判断工作簿是否打开，如果打开就激活该工作簿.xlsm
437 判断指定的工作簿是否保存过.xlsm
438 判断指定的工作簿是否打开.xlsm
439 判断窗口冻结的位置.xlsm
440 当前宏代码运行的工作簿路径.xlsm
441 指定名称新建工作簿.xlsm
442 查询指定工作簿.xlsm
443 获取工作簿的基本名称.xlsm
444 获取工作簿打开的方式.xlsm
445 获取工作簿的所有信息.xlsm
446 设定工作簿为加载宏工作簿.xlsm
447 设置工作簿文档属性信息.xlsm
448 设置窗口选项不显示.xlsm
449 设置网格线的格式.xlsm

joyark

04 工作表基础操作

450 列举出工作表名称.xlsm
451 判断工作表中是否设置了筛选.xlsm
452 获取以名称来指定的多个工作表.xlsm
453 获取以名称来指定的工作表.xlsm
454 获取工作表保护状态.xlsm
455 获取工作表可操作状态.xlsm
456 获取工作表名称.xlsm
457 获取工作表的显示状态.xlsm
458 获取所选择的工作表名.xlsm
459 获取新增工作表名.xlsm
460 获取最前面的工作表名.xlsm
461 获取最右侧的工作表名.xlsm
462 获取最左侧的工作表名.xlsm
463 获取有特定单元格存在的工作表.xlsm
464 获取索引所指定的工作表名.xlsm

joyark

05 调用外部数据数据库
465  从工作表中将数据写入到mdb中(ADO).xlsm
466  以SQL叙述从mdb文档中将资料导入到表中(ADO).xlsm
467  以SQL叙述从mdb文档中将资料导入到表中(DAO).xlsm
468  以即将保存的数据为基础重新生成查询条件(ADO).xlsm
469  以即将保存的数据为基础重新生成查询条件(DAO).xlsm
470  以指定文件名输出mdb文档(ADO).xlsm
471  以指定文件名输出mdb文档(DAO).xlsm
472  删除mdb文档的表、数据和查询(DAO).xlsm
473  将.xlsx文档导入到表中(Query Table ODBC).xlsm
474  将CSV以工作表形式打开.xlsm
475  将CSV文档导入到工作表中(ADO).xlsm
476  在数据库中提取字段名称的类型和大小.xlsm
477  将工作表中的数据写入MDB档案表单中(DAO).xlsm
478  readme.txt    478  将mdb文档中指定的数据导入到表中(ADO).xlsm
479  readme.txt    479  将mdb文档中指定的数据导入到表中(DAO).xlsm
480  查询字段是否更改.xlsm
481  在“职工管理”数据库中添加“工资”和“备注”字段.xlsm
482  将mdb文档的表上的数据导入到表中(ADO).xlsm
483  将mdb文档的表上的数据导入到表中(DAO).xlsm
484  将mdb文档的表上的数据导入到表中(Query Table ODBC).xlsm
485  将寄存数据导入到CSV文档中.xlsm
486  将寄存表导入到CSV文档中.xlsm
487  将目标单元格区域中的数据导入到CSV文档中.xlsm
488  快速导入CSV文档(FSO).xlsm
489  快速将表数据写入到CSV文档.xlsm
490  在客户资料中查询字段“客户名称”是否存在.xlsm
491  查询数据表中“客户信息”是否存在.xlsm
492  指定URl将网页导入到Excel中.xlsm
493  指定格式打开CSV文档.xlsm
494  readme.txt    494  数据类型参数转换函数(ADO).xlsm
495  readme.txt   
495  数据类型参数转换函数(DAO).xlsm
496  readme.txt    496  查询类型常数转换函数(DAO).xlsm
497  由表中的表单定义在mdb中制作表格(ADO).xlsm
498  由表中的表单定义在mdb中制作表格(DAO).xlsm
499  获取mdb文档的Schema信息数据.xlsm   
500  创建数据库.xlsm
501  从“成绩管理”数据库中获取数学成绩最高和最低分.xlsm
502  获取mdb文档的查询属性(ADO).xlsm
503  获取mdb文档的查询属性(DAO).xlsm
504  获取mdb文档的表单名册列表(ADO).xlsm
505  获取mdb文档的表单名册列表(DAO).xlsm
506  获取mdb文档的表单定义(ADO).xlsm
F_Book1.csv
F_Book1.xls
F_Book2.csv
F_Book3.csv
F_Data.accdb
F_Data.csv
F_Data.mdb
F_Data.xls
F_Data.xlsx
NewDb.mdb
客户管理.mdb
成绩管理.mdb  

joyark

06 使用控件和窗体
507  一键添加控件并重命名.xlsm
508  从可进行多个选择的清单中获取选择项目.xlsm
509  从外部直接将值导入窗体中.xlsm
510  从数据清单删除个别数据.xlsm
511  以Modeless来显示自定义窗体.xlsm
512  以ON和Off显示按钮状态(Caption).xlsm
513  列举Frame内的控件.xlsm
514  列举出工作表中的ActiveX控件.xlsm
515  列举工作表上的Excel控件.xlsm
516  初始化窗体控件.xlsm
517  删除窗体中显示出来的数据.xlsm
518  制作原创事件以获取所需的动态信息.xlsm
519  单击命令按钮后显示执行状态.xlsm
520  在ActiveX控件上设置数据.xlsm
521  在RichText文本框中拖曳lcon以获取路径.xlsm
522  在SyClick中进行多重页面的页面移动.xlsm
523  在TabStrip中设定数据.xlsm
524  在TabStrip中设定资料.xlsm
525  在列表框和下拉列表中添加指定的文本.xlsm
526  在列表框或者下拉列表中选择数据并显示在指定的单元格中.xlsm
527  在多个Excel控制项中使用共享宏.xlsm
528  在对话框中设置字符串格式.xlsm
529  在对话框中设置数据(addItem).xlsm
530  在对话框中设置数据(RowSource).xlsm
531  在数据清单中进行拖曳操作.xlsm
532  在窗体内部实现排序.xlsm
533  在组合对话框中设置数据.xlsm
534  在组合框中以阵列来设置数据(Column).xlsm
535  在组合框中以阵列来设置数据(List).xlsm
536  在组合框中设置数据(addItem).xlsm
537  在组合框中设置数据(RowSource).xlsm
538  将对话框中的字符串用来计算.xlsm
539  将工作表中指定的单元格区域中的数据添加到列表框和下拉列表中.xlsm
540  将控件设置为不显示(Top Left).xlsm
541  将数据导入到窗体中的下拉列表中.xlsm
542  将文字框类别化以进行输入限制.xlsm
543  将文本字符串保存在剪贴板.xlsm
544  将窗体中的图像保存为文档.xlsm
545  将窗体显示在上一次显示的位置.xlsm
546  将窗体表制作为多个表.xlsm
547  将窗体设置为无模式显示.xlsm
548  将选项按钮的Click事件类别化.xlsm
549  指定自定义表的显示位置并显示出来.xlsm
550  指定范围显示数据表.xlsm
551  按钮控件随时间变化.xlsm
552  排序窗体中组合方块的项目.xlsm
553  插入对象按钮并重命名.xlsm
554  插入窗体控件.xlsm
555  显示其他工作簿的自定义窗体.xlsm
556  显示对话框的输入值.xlsm
557  显示窗体中的数据清单被选中的姓名.xlsm
558  显示窗体并通过窗体计算数据.xlsm
559  查询滚动条的当前值.xlsm
560  每单击一次就更改Excel控件的字体颜色.xlsm
561  由ActiveX控制项获取数据.xlsm
562  由Excel控制项获取数据.xlsm
563  由代码来指定数据清单的选择项目.xlsm
564  由代码来指定组合框的选择项目.xlsm
565  由剪贴版中获取文本字符串.xlsm
566  由数据清单来阵列获取数据.xlsm
567  由数据清单获取数据(List、Column).xlsm
568  由数据清单获取数据(Value).xlsm
569  通过组合框以阵列方式获取数据.xlsm
570  由组合框来删除数据.xlsm
571  由组合框来获取数据(List、Column).xlsm
572  由组合框来获取数据(Value).xlsm    573  由阵列将数据写到数据清单表中(Column).xlsm
574  由阵列将数据写到数据清单表中(List).xlsm
575  禁止使用“关闭”按钮关闭工作簿.xlsm
576  获取ActiveX控件.xlsm
577  获取Excel中所有的控件.xlsm
578  获取工作表中控件的名称和种类.xlsm
579  获取工作表中控件的选取状态.xlsm
580  获取操作控件的起始时间.xlsm
581  获取数据调节按钮的当前设置值.xlsm
582  获取窗体中最后被载入的控件名称.xlsm
583  获取窗体中最后被选中的控件名称.xlsm
584  获取窗体中被选中的复选框名称.xlsm
585  获取窗体中被选中的控件名称.xlsm
586  获取窗体名称.xlsm
587  让对话框为必须输入状态.xlsm
588  让对话框的字符串在任意数值后换行.xlsm
589  让微调按钮与文字框连动.xlsm
590  让微调按钮变化为SyClick.xlsm
591  让控件不显示(Visible).xlsm
592  让控件无法使用.xlsm
593  让窗体中的数据清单取消选中状态.xlsm
594  让组合框只能够从清单中来选择.xlsm
595  让组合框成为必须选中状态.xlsm
596  让组合框成为未选择状态.xlsm
597  设置控件边框和填充颜色.xlsm
598  设置窗体大小.xlsm
599  选中指定的复选框和单选按钮.xlsm
600  通过窗体中的下拉列表框来实现工作表的滑动.xlsm
601  重命名控件并设置名称文本格式.xlsm
602  重新设置控件位置.xlsm
603  重新设置控件大小.xlsm
604  随机在影像控件中显示图像信息.xlsm
605  随机新增控件并设置宏.xlsm
L_Test.xls
L_Test.xlsm
read me.txt
test.JPG
UserForm1.txt  

joyark

07 利用事件执行代码

606 为成绩管理自定义菜单栏添加菜单.xlsm
607 从标准模式中来设定工作簿事件(On系的性质).xlsm
608 从标准模式中来设定工作簿事件(自动宏).xlsm
609 使用NewWorkbook事件创建工作簿(类模块事件).xlsm
610 关闭Excel重新计算工作表中的公式.xlsm
611 制作“选择照片”窗体.xlsm
612 单击按钮时显示模块.xlsm
613 单击鼠标左键时执行代码.xlsm
614 双击鼠标时执行代码.xlsm
615 在使用鼠标进行选择时执行代码.xlsm
616 在单元格值被改变时执行代码.xlsm
617 在单击即可输入文本时执行代码.xlsm
618 在单击微调按钮上面的按钮时执行代码.xlsm
619 在单击微调按钮下面的按钮时执行代码.xlsm
620 在双击单元格之前执行代码.xlsm
621 在双击工作簿之前执行代码.xlsm
622 在双击的时候显示前后对象的值.xlsm
623 在图表上单击鼠标的时候执行代码.xlsm
624 在图表上放开鼠标时执行代码.xlsm
625 在图表上移动光标时执行代码.xlsm
626 在图表为启用状态时执行代码.xlsm
627 在图表为未启用状态时执行代码.xlsm
628 在失去焦点且数据改变时执行代码.xlsm
629 在工作簿中创建新工作表时执行代码.xlsm
630 工作簿中的窗口未启动时执行代码.xlsm
631 工作簿中的窗口被启用时执行代码.xlsm
632 表中的单元格值被更改时执行代码.xlsm
633 表中的单元格选取范围改变时执行代码.xlsm
634 表中的超链接启用时执行代码.xlsm
635 在表中进行计算之前执行代码.xlsm
636 表为未启动状态时执行代码.xlsm
637 表为启用状态时执行代码.xlsm
638 打印或者打印预览之前执行代码.xlsm
639 工作簿未被启用之前执行代码.xlsm
640 工作簿本身关闭了Addin的内置时执行代码.xlsm
641 工作簿本身处于未启用状态时执行代码.xlsm
642 工作簿本身被内置为Addin时执行代码.xlsm
643 工作簿窗口大小被改变时执行代码.xlsm
644 工作簿被保存之前执行代码.xlsm
645 工作簿被保存时，保存之前执行代码.xlsm
646 工作簿被关闭时，关闭之前执行代码.xlsm
647 工作簿被打开时执行代码.xlsm
648 工作表为启用状态时执行代码.xlsm
649 在双击单元格前执行代码.xlsm
650 在双击对象前执行代码.xlsm
651 在右击单元格前执行代码.xlsm
652 在右击对象前执行代码.xlsm
653 微调按钮的值发生变化后执行代码.xlsm
654 拖动水平滚动条时执行代码.xlsm
655 改变图表数据系列的值时执行代码.xlsm
656 改变图表的大小时执行代码.xlsm
657 在数据因使用者的操作变化时执行代码.xlsm
658 创建新增工作簿时执行代码.xlsm
659 在更改控制项之前(Value值)执行代码.xlsm
660 在更改格式后执行代码.xlsm
661 在焦点移动之前执行代码.xlsm
662 在表上进行计算时执行代码.xlsm
663 在表不处于使用状态时执行代码.xlsm
664 在表本身中进行计算时执行代码.xlsm
665 在表本身成为启用表时运行代码.xlsm
666 在表本身的单元格值被更改时执行代码.xlsm
667 选择窗体中选项时执行代码.xlsm
668 选择图表对象时改变数据源的单元格颜色.xlsm
669 选择图表对象时执行代码.xlsm
670 光标移动时执行代码.xlsm
671 将单元格范围拖到图表上时执行代码(Chart_DragOver).xlsm
672 将单元格范围拖到图表上时执行代码(Chart_DragPlot).xlsm
673 当任何单元格的值变更时执行程序（SheetChange事件）.xlsm
674 当任意工作簿窗口被激活时执行程序（WindowActivate事件）.xlsm
675 当创建新工作表时执行代码.xlsm
676 当单元格选取范围被改变时执行代码.xlsm
677 当双击工作表时执行程序（SheetBeforeDoubleClick事件）.xlsm
678 当右击工作表时执行程序（SheetActivate事件）.xlsm
679 当对工作表进行计算时执行程序（SheetCalculate事件）.xlsm
680 当工作簿窗口不是活动窗口时执行程序（WindowDeactivate事件）.xlsm
681 当工作簿被保存时执行程序（WorkbookBeforeSave事件.xlsm
682 当工作簿被打印时执行程序（WorkbookBeforePrint事件）.xlsm
683 当工作簿不是启用状态时执行代码.xlsm
684 当工作簿为启用状态时执行代码.xlsm
685 在关闭工作簿之前执行代码.xlsm
686 当工作薄的Addin内置被删除时执行代码.xlsm
687 当工作薄的被新内置为Addin时执行代码.xlsm
688 工作簿被打开时执行代码.xlsm
689 当工作表中的控制项失去焦点时执行代码.xlsm
690 当控制项取得了焦点时执行代码.xlsm
691 当某工作簿成为活动工作簿时执行程序（WorkbookActivate事件.xlsm
692 当某工作簿成为非活动工作簿时执行程序（WorkbookDeactivate事件）.xlsm
693 当活动工作簿窗口被变更时执行程序（WindowResize事件）.xlsm
694 当激活工作表时执行程序（SheetActivate事件）.xlsm
695 当窗口关闭时执行代码.xlsm
696 当窗口大小被更改时执行代码.xlsm
697 当窗口打开时执行代码.xlsm
698 当表上的超链接被激活时执行代码.xlsm
699 当表在开启的状态下执行代码.xlsm
700 当表本身执行超链接时执行代码.xlsm
701 当表的单元格选取范围被改变时执行代码.xlsm
702 执行宏后在右击单元格之前执行代码.xlsm
703 执行宏后在右击工作薄之前执行代码.xlsm
704 显示工作表中的窗体.xlsm
705 显示或者隐藏窗体中的下拉列表中时执行代码.xlsm
706 添加“工具栏命令”组.xlsm
707 添加“自定义”工具栏组.xlsm
708 由标准模式来设置表事件.xlsm
709 确定工作簿事件.xlsm
710 确定应用程序事件.xlsm
711 确定自定义表单控制的事项.xlsm
712 确认工作表上的控制项事件.xlsm
713 确认表事件.xlsm
714 移动列的值且发生变化后执行代码.xlsm
715 获取焦点前执行代码.xlsm

joyark

08 控制程序代码流程

716 以Select Case使用Like运算.xlsm
717 以多个条件进行分歧处理.xlsm
718 以是否为阵列进行判断.xlsm
719 使用不连续的函数进行运行.xlsm
720 使用字符串变量作为要执行的程序的名称(Run和OnTime).xlsm
721 使用新的返回进行运行.xlsm
722 判断在变量中是否有存储的对象.xlsm
723 判断字母大小写.xlsm
724 判断字符串长度.xlsm
725 判断文本的完整.xlsm
726 判断是否为对象.xlsm
727 判断是否为数值.xlsm
728 判断是否为有效日期.xlsm
729 判断是否有错误发生以进行分歧处理.xlsm
730 在指定时间执行程序.xlsm
731 在程序与程序之间进行调用.xlsm
732 在调用方式下执行代码.xlsm
733 对阵列的所有对象进行运行.xlsm
734 对阵列的所有成员进行调用.xlsm
735 将没有规则的对象进行运行.xlsm
736 执行其他工作簿中的宏.xlsm
737 执行其他工作簿中的程序.xlsm
738 执行工作簿自身程序.xlsm
739 指定引数来执行程序(通常).xlsm
740 指定类型来执行程序(Run和OnTime).xlsm
741 指定运行的时间.xlsm
742 省去引数的写法.xlsm
743 终止运行的程序(Exit Do).xlsm
744 终止运行的程序(Exit For).xlsm
745 让宏执行对话框中不显示程序名称.xlsm
746 转换Variant类型的引数.xlsm
747 进行多重运行.xlsm
748 进行指定次数的运行.xlsm
N_Test.xls
N_Test.xlsm

joyark

09 模块操作

749 关闭代码窗口和设计窗口.xlsm
750 打开“立即窗口”并删除模板中的代码段”.xlsm
751 列举对象的属性.xlsm
752 列出被设置应用的参数设定的公式库.xlsm
753 制作程序名称的列表.xlsm
754 在VBE的命令行中使用宏.xlsm
755 提取包含所指定的字符串的行.xlsm
756 提取批注.xlsm
757 自动创建自定义表单.xlsm
758 自动导入或导出模块.xlsm
759 获取被设置的变量.xlsm
760 设置工作簿模块的对象名称.xlsm
761 设置工作表模块的对象名称.xlsm
762 随机删除应用对象设置.xlsm
763 随机新增引用对象设置.xlsm
9 模块操作 readme.txt

joyark

10 文档系统操作

764 列举指定磁盘的信息.xlsm
765 列举指定的文件夹中的文档(Dir函数).xlsm
766 列举指定的文件夹中的文档(FileSearch).xlsm
767 列举指定的文件夹中的文档(更改型FileSearch).xlsm
768 列举所有磁盘.xlsm
769 列举文件夹内的子文件夹名称.xlsm
770 列举文件夹内的文档名称.xlsm
771 创建文件夹(FileSystemObject).xlsm
772 创建文件夹.xlsm
773 删除相同路径下的文档(FileSystemObject).xlsm
774 删除相同路径下的文档.xlsm
775 删除相同路径下的文件夹(FileSystemObject).xlsm
776 删除相同路径下的文件夹.xlsm
777 复制文件夹(FileSystemObject).xlsm
778 复制文档(FileSystemObject).xlsm
779 复制文档.xlsm
780 更改当前文件夹.xlsm
781 更改当前磁盘.xlsm
782 更改文档和文件夹名称.xlsm
783 生成随机字符串.xlsm
784 确定所指定的文件夹和文档存在.xlsm
785 确定文档存在(FileSystemObject).xlsm
786 确认文件夹存在(FileSystemObject).xlsm
787 确认目标磁盘存在.xlsm
788 移动文件夹(FileSystemObject).xlsm
789 移动文档(FileSystemObject).xlsm
790 移动文档和文件夹.xlsm
791 获取上一级文件夹的路径.xlsm
792 获取删除了后缀名的文档名称.xlsm
793 获取当前文件夹.xlsm
794 获取当前磁盘.xlsm
795 获取所指定的文件是否被打开.xlsm
796 获取文件夹的信息.xlsm
797 获取文件夹的属性.xlsm
798 获取文档的信息.xlsm
799 获取文档的属性.xlsm
800 获取系统文件夹的路径.xlsm
801 获取路径字符串的磁盘盘符.xlsm
802 通过路径字符串的最下方来获取文档的后缀名.xlsm
803 通过路径字符串获取文档名.xlsm
P_Test1.txt
P_Test2.csv