vba常用代码.xls

用下面的语句就可以操作单元格的边框 (xlDiagonalDown).LineStyle = xlNone Selection 是选中的区域,也可以直接用 Range 对象指定目标区域 Borders 是 Range 对象的属性,代表对象的四个边框 xlDiagonalDown 是 Borders 的参数,值可以从表 A里面选取,分别代表不同位置的边框 xlNone 是 LineStyle 的值,值可以从表 B里面选取,分别代表不同的线型 A 名称值描述 xlDiagonalDown 5从区域中每个单元格的左上角至右下角的边框。 xlDiagonalUp 6从区域中每个单元格的左下角至右上角的边框。 xlEdgeBottom 9区域底部的边框。 xlEdgeLeft 7区域左边的边框。 xlEdgeRight 10区域右边的边框。 xlEdgeTop 8区域顶部的边框。 xlInsideHorizontal 12区域中所有单元格的水平边框(区域以外的边框除外)。 xlInsideVertical 11区域中所有单元格的垂直边框(区域以外的边框除外)。 B 名称值描述 xlContinuous 1实线。 xlDash - 4115 虚线。 xlDashDot 4点划相间线。 xlDashDotDot 5划线后跟两个点。 xlDot - 4118 点式线。 xlDouble - 4119 双线。 xlLineStyleNone - 4142 无线条。 xlSlantDashDot 13倾斜的划线。 vba 常用代码( 转载) ************** * VBA 语句集**(第1辑)* ************** **************** *定制模块行为* **************** (1) Option Explicit '强制对模块内所有变量进行声明 Option Private Module '标记模块为私有,仅对同一工程中其它模块有用,在宏对话框中不显示 pare Text '字符串不区分大小写 Option Base 1'指定数组的第一个下标为 1 (2) On Error Resume Next '忽略错误继续执行 VBA 代码,避免出现错误消息(3) On Error GoTo ErrorHandler '当错误发生时跳转到过程中的某个位置(4) On Error GoTo 0'恢复正常的错误提示(5) =False '在程序执行过程中使出现的警告框不显示(6) =False '关闭屏幕刷新 =True '打开屏幕刷新(7) =xlDisabled '禁用 Ctrl+Break 中止宏运行的功能********** *工作簿* ********** (8) () '创建一个新的工作簿(9) Workbooks("").Activate '激活名为 book1 的工作簿(10) '保存工作簿(11) Th