vba编程教程 电子书(VBA编程中常用过程代码6-10)

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的A1单元格中插入" hello "

Sheets("sheet1").Range("a1").Value = "hello" '给sheet2的A1单元格中插入" 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的活动"。

天美教程网 - 最新副业教程 分享 vba编程教程 电子书(VBA编程中常用过程代码6-10) https://www.91atm.com/25258.html

常见问题
  • 项目课程来源网络,本站非以上项目实际运营商,不提供任何收益保障,有任何疑问可以在平台会员中心-提交售后反馈工单,我们将会配合处理!
查看详情
  • 由于虚拟商品具有可复制,可传播性,一旦购买,不接受任何形式的退款、换货要求,请您在购买获取之前确认是否是您所需要的资源!
查看详情
官方客服团队

为您解决烦忧 - 24小时在线 专业服务