access vba代码大全

前言

我们平时在工作表单元格的公式中常常使用函数，Excel自带的常用的函数多达300多个，功能强大，丰富多彩，但是在VBA中不能直接应用，必须在函数名前面加上对象，比如：Application.WorksheetFunction.Sum(arg1,arg2,arg3)。

而能在VBA中直接应用的函数也有几十个，下面将逐一详细介绍常用的40个VBA函数，以供大家学习参考。

第1.1例 ASC函数

一、题目：

要求编写一段代码，运行后得到字符串”Excel”的首字母和”e”的ASCII值。

二、代码：

Sub 示例_1_01()

Dim myNum1%, myNum2%

myNum1 = Asc("Excel") '返回69

myNum2 = Asc("e") '返回101

[a1] = "myNum1= ": [b1] = myNum1

[a2] = "myNum2= ": [b2] = myNum2

End Sub

三、代码详解

1、Sub 示例_1_01()：宏程序的开始语句。

2、Dim myNum1%, myNum2%：变量myNum1和myNum2声明为整型变量。

14

也可以写为 Dim myNum1 As Integer 。Integer 变量存储为 16位（

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常用技巧代码解析yuanzhuping

VBA常用技巧

目录

VBA常用技巧------------------------------------------------------------------------------------------------------- 1 第1章Range（单元格）对象 -------------------------------------------------------------------- 10 技巧1 单元格的引用方法---------------------------------------------------------------------- 10 1-1 使用Range属性----------------------------------------------------------------------- 10

1-2 使用Cells属性 ------------------------------------------------------------------------ 11

1-3 使用快捷记号 ------------------------

'''VBA_1基本入门代码集

''' by daode1212 2010-10-20

Sub Msg_01() '''消息框:

MsgBox \我们将成为VBA高手!\End Sub

Sub Msg_02() '''消息框,换行:

MsgBox \我们将成为:\高手!\高手!\高手!\End Sub

Sub Msg_03()

'''消息框,双引号:

MsgBox \我们将成为VBA高手!\专家级的高手!\End Sub

Sub Msg_04()

'''消息框,当前时间:

'MsgBox \新的长征起步于:\

'MsgBox \新的VBA高手诞生于:\'MsgBox \当前日期:\'MsgBox \当前时间:\

'MsgBox \当前时钟(秒):\

'MsgBox \星期(星期日:1,星期一:2):\

'MsgBox DateDiff(\距2010-01-10的天数 ''==================字母所表示的意义===================== '' yyyy 年 '' q 季度 '' n 月

'' y 一年的日数 '' d 日

'' w 一周

VBA代码封装过程

一、函数和子过程的封装过程 二、封装后函数和子过程的调用 三、窗体的封装和调用 四、com加载项的制作

五、利用com加载项制作功能区

如果你写VBA代码只是给自己使用或者不介意和别人共享代码，那么就用不到封装。

我们一般用VB6.0作为VBA代码的封装工具，VBA代码的封装在我理解就是将VBA代码修改成VB6.0能运行的代码，然后利用VB6.0可以制作dll文件的特点将所有代码封装在dll文件中，最后我们可以通过安装加载项或者引用的方式在工作表界面或VBA界面调用其中的函数、子过程和窗体。下面让我们具体看下VBA代码的封装过程（封装调用环境：xp系统，excel2007，VB6.0）：

一、函数和子过程的封装过程

函数和子过程也就是function过程和sub过程。封装的过程如下： 1、在vba编写代码，此次实验的代码如下,包含一个函数过程和一个子过程：

Function ceshi(a, b) ceshi = a + b End Function Sub ceshi1()

MsgBox Application.Name End Sub

2、打开VB6.0，新建工程，选择ActiveX dll，然后点打开。

3、点打开

1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13.

删除重复行 ....................................................................................................................................................... 1 ActiveX控件的相关操作 ................................................................................................................................. 2 单元格内容匹配 ............................................................................................................................................... 2 单元格填充公式 ................

初识VBA

既然题目是初识VBA，那么我想先给大家一个直观的感受——什么是VBA？，往往在一些EXCEL的教材中，都会讲：VBA是一种自动化语言,它可以使常用的程序自动化,可以创建自定义的解决方案。就我看书学习的经验来说，我感到这样的定义式的描述带有很典型的中国式教材的风格，然而却不能让人立即理解，那么这样的定义有什么用呢？我给VBA下的定义是：VBA是一些代码的组合。可能这个定义没有上面教材的定义那么严谨和准确，但我想你一看就应该能明白，原来VBA就是写代码，或者说就是写程序。（如果掌握了VBA，居然我也能写程序了~~惊喜吧？）

那么你用了这么久的EXCEL，可能从来没在EXCEL的XLS文件中看到过代码，难道就写在单元格里？那我就带你去找找，VBA的代码藏在哪里吧，这也正式我今天要谈的第二个问题。当你打开一个EXCEL文件，你只能看到由许多单元格组成的工作表，这时，你可以通过【视图】菜单的【工具栏】项目，打开一个工具栏，名字叫“控件工具箱”，从左往右属第三个按钮，名字叫“查看代码”，点一下，就可以打开VBA代码编辑窗口。更简单的方法是，通过【ALT】+【F11】的快捷键，打开VBA代码编辑窗口，看到了吧，

用过VB的人都应该知道如何声明变量，在VBA中声明变量和VB中是完全一样的！

使用Dim语句

Dim a as integer '声明a为整型变量 Dim a '声明a为变体变量

Dim a as string '声明a为字符串变量

Dim a as currency ,b as currency ,c as currency '声明a,b,c为货币变量 ......

声 明变量可以是：Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（当前不支持）、 Date、String（只限变长字符串）、String * length（定长字符串）、Object、Variant、用户定义类型或对象类型。

强制声明变量 Option Explicit

说明：该语句必在任何过程之前出现在模块中。

声明常数 用来代替文字值。 Const

' 常数的默认状态是 Private。 Const My = 456

' 声明 Public 常数。

Public Const MyString = \

' 声明 Private Integer 常数。 Private Const MyInt As Integer

,,,,

VBA连接中连接sql，access等数据的方法

Dim CNN As New ADODB.Connection 定义一个新的ADO对象连接

Dim RST As New ADODB.Recordset 定义一个ADO对象数据集

Dim Stpath, strSQL As String定义路径、查询变量

Stpath = ThisWorkbook.Path & Application.PathSeparator & "学生档案.mdb"定义路径及文件名

CNN.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & Stpath '& ";Jet OLEDB:Database Password=" & "123"打开链接：

provider=Microsoft.jet.OLEDB.4.0是软件提供者为Microsoft.jet.OLEDB.4.0 data source=" & Stpath 是链接数据源为Stpath

Jet OLEDB:Database P

1．完美显示图片表格的普通视图
　　2．完美显示图片表格的页面视图
　　3．彻底删除页眉页脚
　　4．切换纵横向页面
　　5．禁用“改写”模式
　　6．无格式粘贴
　　7．与设备无关的位图
　　8．全文编号转文本
　　9．将包含指定字符的段落设为标题1样式
　　10．全文全角字母和数字转为半角
　　11．以选定文本从文档首查找__弹出查找对话框
　　12．以选定文本从选区后发生一次查找__不出现查找对话框
　　13．全文段首加段号
　　14．全选当前页
　　15．删除指定文件夹下所有Word文档的前三段
　　16．复制指定文件夹下所有文档至同目录新文档


'1．-------------------------------------------------------------------------------------
Sub 完美显示图片表格的普通视图()
'此宏为雨雪霏霏特别奉献的小偏方，欢迎各位朋友测试。
'如果文档中的嵌入式图片、表格显示迟滞、错位，运行此宏，将在普通视图下完美显示它们。


ActiveDocument.PrintPreview
ActiveDocument.ClosePrintPreview
ActiveWindow.View.Type = wdNorm