Access 2013 编程ADO编程 accessvba编程代码大全

VBA编程常用过程代码方案，供大家写代码参考，陆续发表：

VBA过程代码6：返回当前单元格的位移

Sub MyNZ()

on error resume next

ActiveCell.Offset(0, 1).Select '当前单元格向左移动一格

ActiveCell.Offset(0, -1).Select '当前单元格向右移动一格

ActiveCell.Offset(1 , 0).Select '当前单元格向下移动一格

ActiveCell.Offset(-1 , 0).Select '当前单元格向上移动一格

end sub

代码的解析及说明：上述代码过程将将产生当前活动单元格的移动，on error resume next 是为了避免上述程序产生错误，因为有时单元格是不能移动的，为了解除上述错误，加错误处理代码。

VBA过程代码7：给当前或某个单元格赋值

Sub MyNZ()
ActiveCell.Value = "你好！！！" ’给活动单元格赋值
Range("a1").value="hello" ’给指定单元格a1赋值
sheets("sheet2").select
range("a1").value="hello" ’给sheet2的Ａ１单元格中插入" hello "
Sheets("sheet1").Range("a1").Value = "hello" ’给sheet2的Ａ１单元格中插入" hello "
End sub

代码的解析及说明：上述代码第一行是给活动的单元格赋值；第二行是给活动的工作表的A1单元格赋值；第三四行先将sheet2选中，然后在将“HELLO"赋到A1单元格中；第5行sheet2不必被选中，即可“HELLO"赋到sheet2 的A1单元格中。

VBA过程代码8：隐藏及显示工作表

Sub MyNZ()
sheets("sheet1").Visible=False '隐藏SHEET1这张工作表
sheets("sheet1").Visible=True '显示SHEET1这张工作表
End sub

代码的解析及说明：上述代码过程第一行利用了对象的Visible属性为False隐藏工作表；第二行利用对象的Visible属性为True显示工作表

VBA过程代码9：对于工作表遍历打印预览

Sub MyNZ()
Dim myEX As Worksheet
For Each myEX In Worksheets
myEX.PrintPreview
Next myEX
End sub

代码的解析说明：有时候我们想把所有的EXCEL中的SHEET都打印预览，请使用该段代码，它将在你现有的工作簿中循环，直到最后一个工作簿结束循环预览。这里的for each next 是一个遍历的循环，在工作表集合中遍历，myEX是一个工作表对象，是集合中的元素。PrintPreview是预览打印。

VBA过程代码10：得到当前单元格的地址

Sub MyNZ()
msgbox ActiveCell.Address
End sub

代码的解析说明：上述代码过程将返回当前活动单元格的地址，这个地址是绝对地址，也就是说是前面有$符号的地址，关于这个Address函数的详细说明及提取地址的使用在我的VBA解决方案中丛书中有非常详细的案例使用。

留言板：面向初学朋友的视频正在录制中，已经完成约三分之一。这套视频是以《VBA代码解决方案》为蓝本的视频讲解，让初学者更易学习，看视频可以了解到更多VBA的知识，以及代码的写法，程序的调试等等,现在推出“每天20分钟，半年精进VBA的活动”。