VBA应用实例.docVIP

ExcelVba编程实例 这是本人近来学习VBA的笔记，有很多方法已经在工作中运用，大大提高了工作效率，希望我的笔记对一些初学者有所帮助。? ?? ???下面有很些实例摘自Excel2003高级vba编程范例文件，本人按照自己的思维做了适当的修改，有不妥之处，还望指正！第九章 工作表排序本章只有一个范例文件，主要功能对活动工作簿中所有工作表进行排序。算法说明：1、统计活动工作簿中工作表的数量 WsCount=Activeworkbook.worksheets.count2、定义一个一维数组a(1 to wscount)主要用来存放活动工作簿中所有工作表名称字符串3、利用for each ws in activeworkbook.worksheets 循环将活动工作簿中所有数量赋值给一维数组4、利用冒泡法对数组进行排序（源文件对排序单独写了一个过程）5、利用worksheets的move方法以及sheets(i)(他代表工作簿中从左到右第i张工作表)移动工作表代码：Sub SortSheet()Dim WsCount As IntegerDim WsArray() As StringDim Ws As WorksheetOn Error Resume NextWsCount = ActiveWorkbook.Worksheets.CountReDim WsArray(1 To WsCount)If ActiveWorkbook.ProtectStructure Then? ?? ???MsgBox ActiveWorkbook.Name 被保护，不能进行排序，请解除保护后排序, _? ?? ?? ???vbCritical, 不能排序工作表? ?? ???Exit SubEnd IfFor Each Ws In ActiveWorkbook.Worksheets? ?t = t + 1? ?WsArray(t) = Ws.NameNext Ws对数组进行排序For i = 1 To UBound(WsArray) - 1? ?For j = i + 1 To UBound(WsArray)? ?? ?? ?If WsArray(i) WsArray(j) Then? ?? ?? ?? ???t = WsArray(i)? ?? ?? ?? ???WsArray(i) = WsArray(j)? ?? ?? ?? ???WsArray(j) = t? ?? ?? ?End If? ?Next jNext i利用Move方法以及Sheets(i)移动工作表，按指定的顺序排列For i = 1 To WsCount? ?Worksheets(WsArray(i)).Move before:=Sheets(i)Next iEnd Sub[ 本帖最后由 west_wolf 于 2006-11-21 09:39 编辑 ] 收藏 分享 用友论坛|用友软件专业论坛 west_wolf 发短消息 加为好友 west_wolf 当前离线 荣誉会员 UID 36122? 帖子 1826? 精华 3? 积分 4620? 水晶 2606 枚? 威望 8 点? 阅读权限 80? 性别 男? 注册时间 2005-6-21? 沙发 发表于 2006-10-20 07:54 | 只看该作者 Excel2003高级VBA编程--第七章 批注 第七章 批注1、Comment为Range对象的属性2、Comments返回指定工作表中所有的批注，可以利用For each对工作表中所有批注循环题目：(1)根据批注的作者，删除批注(2)隐藏工作表中所有批注(3)为区域中添加批注(4)测试Comments(index)返回指定工作表中第index个批注Sub 统计批注个数()Dim Flag As Comment1、Comments返回指定工作表中所有的批注2、用Comment属性返回一个Comment对象For Each Flag In ActiveSheet.Comments? ?t = t + 1Next FlagMsgBox 活动工作表中共有： t 个批注, vbOKOnly, 统计批注个数End SubSub CountComment()Dim Flag As Range利用err来判断是否发生错误For Each Flag In ActiveSheet.UsedRange? ?On Error Resume Next? ?t = Flag.Comment.Text? ?If Err = 0 Then