Access_VBA编程(使用技巧大全)

ACCESS-VBA编程

ACCESS－VBA编程.

控件： 常量 控件

acBoundObjectFrame 绑定对象框 acCheckBox 复选框 acComboBox 组合框

acCommandButton 命令按钮

acCustomControl ActiveX（自定义）控件 acImage 图像 acLabel 标签 acLine 线条

acListBox 列表框

acObjectFrame 未绑定对象框或图表 acOptionButton 选项按钮 acOptionGroup 选项组 acPage 页

acPageBreak 分页符 acRectangle 矩形

acSubform 子窗体/子报表 acTabCtl 选项卡 acTextBox 文本框

acToggleButton 切换按钮

在VB中对窗体控件的引用

键入包含控件的窗体或报表的标识符，后面紧接 ! 运算符和控件的名称。例如，下列标识符将引用“订单”窗体上“订单ID”控件值： Forms![订单]![订单ID]

引用子窗体或子报表上的控件，不必使用“窗体”或“报表

VBA使用技巧(代码可能不完全正确)

1、Application.CommandBars(\

2、cells(activecell.row,\ '活动单元格所在行B列单元格中的值

3、Sub CheckSheet()'如果当前工作薄中没有名为kk的工作表的话，就增加一张名为kk的工作表，并将其排在工作表从左至右顺序排列的最左边的位置，即排在第一的位置 Dim shtSheet As Worksheet For Each shtSheet In Sheets

If shtSheet.Name = \ Next shtSheet

Set shtSheet = Sheets.Add(Before:=Sheets(1)) shtSheet.Name = \End Sub

4、Sheet1.ListBox1.List = Array(\一月\二月\三月\四月\一次性增加项目

5、Sheet2.Rows(1).Value = Sheet1.Rows(1).Value'将一个表中的一行全部拷贝到另一个表中

6、Sub pro_cell()'将此代码放入sheet1,则me=sheet1,主要是认识me Me

VBA编程技巧 之 字典对象使用经验谈（更新至四之一） 字典对象使用经验谈 目录

前言_______________________________________01 楼 一、字典的基本功能___________________________01 楼 二、The Hardcore of Dictionary__________________02 楼 二之一、多层字典对象应用案例分析 1 _____________16 楼 二之二、多层字典对象应用案例分析 2 _____________30 楼 三之一、动态的树形数据结构的构建________________35 楼 三之二、动态树形结构的遍历____________________54 楼 三之三、送你把漂亮的解牛小刀___________________64 楼 三之四、上帝的归上帝，凯撒的归凯撒______________66 楼 四之一、利用字典动态的构建自定义数据类型___________68 楼 前言

相信大家对字典对象已经是耳熟能详了。现在帮人写个代码如果不来个字典，出门都不好意思和人打招呼。EH里也有大量的帖子详尽的介绍了字典对象的功能和各种使用方法，我大致翻过这些帖子

VBA常用技巧代码解析 yuanzhuping

VBA常用技巧

目录

VBA常用技巧 ------------------------------------------------------------------------------------------------------- 1

第1章 Range（单元格）对象 -------------------------------------------------------------------- 10

技巧1 单元格的引用方法 ---------------------------------------------------------------------- 10

1-1 使用Range属性 ----------------------------------------------------------------------- 10 1-2 使用Cells属性 -----------------------------------------------------------------------

技巧大全

Word使用技巧大全 85 例

更多技巧请进 >>

1、 即时取消Word的后台打印

当我们刚刚编辑完一篇文档按了打印命令后，后来又不想打印当前的文档了，那么怎样才能即时取消后台打印任务呢？一般来说，大家在发出打印任务后，程序会自动将打印任务设置为后台打印，同时在状态栏上出现打印机图标，打印机图标旁边的数字显示的是正在打印的页的页码。要想即时取消后台打印任务的话，大家只要用鼠标双击打印机图标就可以了。

2、 Word 2003让文字随文本框大小变化

当我们在用Word进行文档编辑时，经常需要用文本框来实现一些特殊的应用，比如在文本框中输入文字来达到特殊效果，但有个问题是，当我们在文本框中输入文字并调整了文本框的大小后文字并不会跟着变化。其实我们可让文本框里的文字大小随文本框大小“同步”变化；单击选中该文本框，然后选择“剪切”，再执行菜单“[编辑]—[选择性粘贴]”，在粘贴形式中选择“图片（增强型图元文件）”，现在再拖动文本框看看，是不是可以随意改变文字大小了。

3、 Word 2003/2007快速切换英文大小写

在Word中输入英文句子时，一般每个单词的第一个字母都是大写，通常的输入方法就是输入第一个字母时就要进行一次大小写切换。这样

01、如何在已有的单元格中批量加入一段固定字符?

例如:在单位的人事资料，在excel中输入后，由于上级要求在原来的职称证书的号码全部再加两位，即要在每个人的证书号码前再添上两位数13，如果一个一个改的话实在太麻烦了，那么我们可以用下面的办法，省时又省力:

1)假设证书号在A列，在A列后点击鼠标右键，插入一列，为B列;

2)在B2单元格写入: ="13" & A2 后回车;

3)看到结果为 13xxxxxxxxxxxxx 了吗?鼠标放到B2位置，单元格的下方不是有一个小方点吗，按着鼠标左键往下拖动直到结束。当你放开鼠标左键时就全部都改好了。若是在原证书号后面加13 则在B2单元格中写入:=A2 & “13” 后回车。

02、如何设置文件下拉窗口的最下面的最近运行的文件名个数?

打开“工具”，选“选项”，再选“常规”，在“最近使用的文件清单”下面的文件个数输入框中改变文件数目即可。若不在菜单中显示最近使用的文件名，则将“最近使用的文件清单”前的复选框去掉即可。

03、在EXCEL中输入如“1-1”、“1-2”之类的格式后它即变成1月1日，1月2日等日期形式，怎么办?

这是由于EXCEL自动识别为日期格式所造成，你只要点击主菜单的“格式”菜单，选“单元格”，再在

1.批量修改文件名

1. 首先，启动ACDSee到浏览方式，找到照片所在文件夹，同时选中所有要更改文件名的图片，可使用“Edit”菜单中的“Select All”命令，或使用“Shift + 鼠标左键”选中连续的多个文件、使用“Ctrl+ 鼠标左

键”选中不连续的多个文件。

2. 从“Edit”菜单中选择“Batch Rename…”命令，或直接使用快捷键“Alt+R”，在弹出的对话框中的“Template（模板）”项输入“20J07##”，在“Start at”中输入“1”（开始于1），单击[OK]按钮后，所有选中的图片都被重新命名为20j0701、20j0702、20j0703……通过这个操作我们很快就把所有照片文件的名称按照“级别 + 班号 + 学号”的形式

改正过来。

其实ACDSee不仅可以更改图片的文件名，对所有类型的文件都可

进行批量改名，改名的方法与修改图片文件的方法相同。

2.批量转换图像方向

1. 启动ACDSee到浏览方式，找到照片所在文件夹，同时用上面提

到的选中方法选取所有需要转换方向的图片文件。 2. 从“Tool”菜单中选中“Rotate/Flip……”命令，弹出对话框。

3. 单击[Options]按钮弹出如图2所示对

希望大家能学好用好!!

office使用技巧大全

尊重原著，本帖搜集与鸭绿江医药论坛

WORD

问：WORD里边怎样设置每页不同的页眉？如何使不同的章节显示的页眉不同？ 答：分节，每节可以设置不同的页眉。文件——页面设置——版式——页眉和页脚——首页不同

问：请问word中怎样让每一章用不同的页眉？怎么我现在只能用一个页眉，一改就全部改了？

答：在插入分隔符里，选插入分节符，可以选连续的那个，然后下一页改页眉前，按一下“同前”钮，再做的改动就不影响前面的了。简言之，分节符使得它们独立了。这个工具栏上的“同前”按钮就显示在工具栏上，不过是图标的形式，把光标移到上面就显示出”同前“两个字来了

问：如何合并两个WORD文档，不同的页眉需要先写两个文件，然后合并，如何做？

答：页眉设置中，选择奇偶页不同/与前不同等选项

问：WORD编辑页眉设置，如何实现奇偶页不同? 比如：单页 浙江大学学位论文，这一个容易设；双页：（每章标题），这一个有什么技巧啊 ？

答：插入节分隔符，与前节设置相同去掉，再设置奇偶页不同

问：怎样使WORD文档只有第一页没有页眉，页脚？

答：页面设置－页眉和页脚，选首页不同，然后选中首页页眉中的小箭头，格式－边框和底纹，选择无，这个只要在“视图”——“页

1、 将excel汇总好的表，按字段拆分为多sheet的情况：如下图：

代码如下：Sub cfs()

Dim GSArr() As String '公司名称清单 Dim Rca As Integer 'A列数据行数 Dim i As Integer Dim Sn As String

Sn = ActiveSheet.Name

Rca = Columns(\ ‘按第A列数据拆分，且第一行无合并单元格

ReDim GSArr(1 To 1) GSArr(1) = Cells(2, 1) For i = 3 To Rca

If IsError(Application.Match(Cells(i, 1), GSArr, 0)) Then ReDim Preserve GSArr(1 To UBound(GSArr) + 1) GSArr(UBound(GSArr)) = Cells(i, 1) End If Next

If ActiveSheet.AutoFilterMode = False Then Rows(\Else

If ActiveSheet.FilterMode = Tr

Excel 使用技巧集锦——163种技巧

目 录

一、 基本方法 7

1. 快速选中全部工作表 7

2. 快速启动EXCEL 7

3. 快速删除选定区域数据 7

4. 给单元格重新命名 7

5. 在EXCEL中选择整个单元格范围 8

6. 快速移动/复制单元格 8

. 快速修改单元格式次序 8

. 彻底清除单元格内容 8

. 选择单元格 8

. 为工作表命名 9

. 一次性打开多个工作簿 9

. 快速切换工作簿 10

. 选定超级链接文本（微软OFFICE技巧大赛获奖作品）

. 快速查找 10

15. 修改默认文件保存路径 10

16. 指定打开的文件夹 10

1. 在多个EXCEL工作簿间快速切换 11

1. 快速获取帮助 11

1. 创建帮助文件的快捷方式 11

20. 双击单元格某边移动选定单元格 11

21. 双击单元格某边选取单元格区域 12

22. 快速选定不连续单元格 12

23. 根据条件选择单元格 12

24. 复制或移动单元格 12

25. 完全删除EXCEL中的单元格 12 10

26. 快速删除空行 13

2. 回车键的粘贴功能 13

2. 快速关闭多个文件 13

2. 选定多个工作表 13

30. 对多个工作表快速编辑 13

31. 移动和复制工作表 14

32. 工作表的删除