ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

   
EH云课堂-专业的职场技能充电站 限时送,魔方网表将Excel变在线系统 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 高效办公必会的Office实战技巧 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
楼主: yuanzhuping

VBA常用技巧代码解析

    [复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-2-10 16:52 | 显示全部楼层

第1部分Range(单元格)对象

本帖已被收录到知识树中,索引项:开发帮助和教程
技巧9         单元格自动进入编辑状态
       当光标选择单元格时无需双击,自动进入编辑状态,如下面的代码所示。
  1. #001  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2. #002      If Target.Column = 3 And Target.Count = 1 Then
  3. #003          If Target <> "" Then
  4. #004              Application.SendKeys "{F2}"
  5. #005          End If
  6. #006      End If
  7. #007  End Sub
复制代码
代码解析:
       工作表的SelectionChange事件过程,当选择工作表C列有数据单元格时自动进入编辑状态。
       第2、3行代码设置SelectionChange事件的触发条件,利用Target参数的Column属性和Count属性将事件的触发条件限制在C列并且只有在选择一个单元格时才发生。
       第4行代码使用SendKeys方法发送一个F2键到应用程序,等同于选择单元格后按F2键,使单元格进入编辑状态。

[ 本帖最后由 yuanzhuping 于 2009-2-16 22:12 编辑 ]

技巧9 单元格自动进入编辑状态.rar

5.42 KB, 下载次数: 3204

评分

参与人数 2鲜花 +4 收起 理由
征婚启事 + 2 すごい
0372nhyz + 2 优秀作品

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-2-10 16:58 | 显示全部楼层

第1部分Range(单元格)对象

技巧10         禁用单元格拖放功能
       在工作表中可以拖放单元格右下角的小十字对单元格内容进行复制等操作,如果不希望用户进行此操作可以禁用单元格拖放功能,如下面的代码所示。
  1. #001  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2. #002      If Not Application.Intersect(Target, Range("A1:A15")) Is Nothing Then
  3. #003          Application.CellDragAndDrop = False
  4. #004      Else
  5. #005          Application.CellDragAndDrop = True
  6. #006      End If
  7. #007  End Sub
复制代码
代码解析:
       工作表的SelectionChange事件过程,在指定的单元格区域禁用单元格的拖放功能。
       CellDragAndDrop 属性设置单元格的拖放功能,如果允许使用单元格拖放功能,则该值为True。
       为了不影响其他工作表,应在工作表的Deactivate事件中恢复单元格的拖放功能,如下面的代码所示。
  1. #001  Private Sub Worksheet_Deactivate()
  2. #002      Application.CellDragAndDrop = True
  3. #003  End Sub
复制代码
代码解析:
       工作表的Deactivate事件过程,恢复单元格的拖放功能。
       工作表的Deactivate事件当工作表从活动状态转为非活动状态时产生,语法如下:
Private Sub object_Deactivate()
       参数object代表Worksheet对象。
       当选择工作表“Sheet1”的A1:A15单元格时将禁用单元格的拖放功能,如图所示。
禁用单元格的拖放功能.jpg

[ 本帖最后由 yuanzhuping 于 2009-2-16 23:01 编辑 ]

技巧10 禁用单元格拖放功能.rar

5.88 KB, 下载次数: 2569

TA的精华主题

TA的得分主题

发表于 2009-2-10 18:48 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2009-2-10 19:40 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-2-10 20:02 | 显示全部楼层

第1部分Range(单元格)对象

技巧11         单元格格式操作
11-1        单元格字体格式设置
       在VBA中可以对单元格的字体格式进行各种设置,如下面的代码所示。
  1. #001  Public Sub RngFont()
  2. #002      With Range("A1").Font
  3. #003          .Name = "华文彩云"
  4. #004          .FontStyle = "Bold"
  5. #005          .Size = 18
  6. #006          .ColorIndex = 3
  7. #007          .Underline = 2
  8. #008      End With
  9. #009  End Sub
复制代码
代码解析:
       RngFont过程对单元格A1的字体格式进行设置。
       其中第3行代码设置字体为“华文彩云”,应用于Font对象的Name属性返回或设置对象的名称。
       第4行代码设置字体为加粗,FontStyle属性返回或设置字体样式。设置为“Bold” 加粗字体,设置为“Italic”倾斜字体,也可以设置成“Bold Italic”。
       第5行代码设置字体的大小为18磅,Size属性返回或设置字体大小。
       第6行代码设置字体的颜色为红色,应用于Font对象的ColorIndex属性返回或设置字体的颜色,该颜色可指定为当前调色板中颜色的编号,如图所示。
调色板中颜色的编号.jpg
       第7行代码设置字体为单下划线类型,Underline属性返回或设置应用于字体的下划线类型,可为表格所列的XlUnderlineStyle常量之一。
XlUnderlineStyle常量.jpg
       运行RngFont过程结果如图所示。
单元格字体设置.jpg

[ 本帖最后由 yuanzhuping 于 2009-2-16 22:13 编辑 ]

11-1单元格字体格式设置.rar

5.7 KB, 下载次数: 2741

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-2-10 20:14 | 显示全部楼层

第1部分Range(单元格)对象

技巧11         单元格格式操作
11-2        设置单元格内部格式
       设置单元格的Interior属性可以对单元格的内部格式进行设置,如下面的代码所示。
  1. #001  Sub RngInterior()
  2. #002      With Range("A1").Interior
  3. #003          .ColorIndex = 3
  4. #004          .Pattern = xlPatternCrissCross
  5. #005          .PatternColorIndex = 6
  6. #006      End With
  7. #007  End Sub
复制代码
代码解析:
       RngInterior过程对A1单元格的内部格式进行设置。
       第2行代码使用Interior属性返回单元格对象的内部。
       第3行代码设置单元格边框内部的颜色为红色。应用于Interior对象的ColorIndex属性返回或设置边框内部的颜色,可指定为如技巧11-1所示的当前调色板中颜色的编号或为XlColorIndex 常量之一:xlColorIndexAutomatic (自动填充)、xlColorIndexNone (无内部填充)。
       第4行代码设置单元格设置内部图案为十字图案。应用于Interior对象的Pattern属性返回或者设置内部图案。
       第5行代码设置单元格设置内部图案的颜色为黄色。应用于Interior对象的PatternColorIndex属性返回或设置内部图案的颜色,可指定为如技巧11-1中所示的当前调色板中颜色的编号或为XlColorIndex常量之一:xlColorIndexAutomatic (自动填充)、xlColorIndexNone (无内部填充)。
运行RngInterior过程结果如图所示。
设置单元格内部格式.jpg

[ 本帖最后由 yuanzhuping 于 2009-2-16 22:14 编辑 ]

11-2 设置单元格内部格式.rar

5.5 KB, 下载次数: 2415

TA的精华主题

TA的得分主题

发表于 2009-2-10 20:32 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-2-10 20:32 | 显示全部楼层

第1部分Range(单元格)对象

技巧11         单元格格式操作
11-3        为单元格区域添加边框
       我们为单元格区域添加边框时往往通过录制宏获取代码,但宏录制器生成的代码分别设置单元格区域的每个边框,因此代码多且效率低。使用Range对象的Borders集合可以快速的对单元格区域的每个边框应用相同的格式,而Range对象的BorderAround方法则可以快速地为单元格区域添加一个外边框,如下面的代码所示。
  1. #001  Sub AddBorders()
  2. #002       Dim rng As Range
  3. #003       Set rng = Range("B4:G10")
  4. #004       With rng.Borders
  5. #005           .LineStyle = xlContinuous
  6. #006           .Weight = xlThin
  7. #007           .ColorIndex = 5
  8. #008       End With
  9. #009       rng.BorderAround xlContinuous, xlMedium, 5
  10. #010       Set rng = Nothing
  11. #011  End Sub
复制代码
代码解析:
       AddBorders过程为单元格区域B4:G10设置内部统一边框并添加一个加粗外边框。
       第4行到第8行代码使用Borders属性引用单元格区域的Borders集合,其中第5行代码设置其边框样式线条的样式,第6行代码设置边框线条的粗细,第7行代码设置边框的颜色。
       应用于Range对象的Borders集合代表Range对象的4个边框(左边框、右边框、顶部边框和底部边框)的4个Border对象组成的集合,这4个边框既可单独返回,也可作为一个组同时返回。
       第9行代码使用BorderAround方法为单元格区域添加一个加粗外边框。
       应用于Range对象的BorderAround方法向单元格区域添加整个区域的外边框,并设置该边框的相关属性,其语法如下:
BorderAround(LineStyle, Weight, ColorIndex, Color)
       其中LineStyle参数设置边框线条的样式,Weight参数设置边框线条的粗细,ColorIndex参数设置边框颜色,Color参数以RGB值指定边框的颜色。
       注意 指定Color参数可以设置颜色为当前调色板之处的其它颜色,不能同时指定ColorIndex参数和Color参数。
       运行AddBorders过程,效果如图所示。
设置单元格区域边框.jpg
       如果需要在单元格区域中应用多种边框格式,则需分别设置各边框格式,如下面的代码所示。
  1. #001  Sub BordersDemo()
  2. #002       Dim rng As Range
  3. #003       Set rng = Sheet2.Range("B4:G10")
  4. #004       With rng.Borders(xlInsideHorizontal)
  5. #005           .LineStyle = xlDot
  6. #006           .Weight = xlThin
  7. #007           .ColorIndex = 5
  8. #008       End With
  9. #009       With rng.Borders(xlInsideVertical)
  10. #010           .LineStyle = xlContinuous
  11. #011           .Weight = xlThin
  12. #012           .ColorIndex = 5
  13. #013       End With
  14. #014       rng.BorderAround xlContinuous, xlMedium, 5
  15. #015       Set rng = Nothing
  16. #016  End Sub
复制代码
代码解析:
       BordersDemo过程代码为单元格区域内部边框在水平和垂直方向上应用不同格式,并为区域添加一个加粗外边框。
       Borders(index)属性返回单个Border对象,其Index参数取值可为表格所列的XlBordersIndex常量之一:
XlBordersIndex常量.jpg
       运行BordersDemo过程效果如图所示。
应用不同格式内部边框.jpg

[ 本帖最后由 yuanzhuping 于 2009-2-16 22:16 编辑 ]

11-3 为单元格区域添加边框.rar

7.11 KB, 下载次数: 2476

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-2-10 20:42 | 显示全部楼层

第1部分Range(单元格)对象

技巧11         单元格格式操作
11-4        灵活设置单元格的行高列宽
       一般情况下单元格的行高列宽都是以磅为单位进行设置的,也可以使用英寸和厘米计量单位设置单元格的行高列宽,如下面的代码所示。
  1. #001  Sub RngToPoints()
  2. #002      With Range("A1")
  3. #003          .RowHeight = Application.CentimetersToPoints(2)
  4. #004          .ColumnWidth = Application.CentimetersToPoints(1.5)
  5. #005      End With
  6. #006      With Range("A2")
  7. #007          .RowHeight = Application.InchesToPoints(1.2)
  8. #008          .ColumnWidth = Application.InchesToPoints(0.3)
  9. #009      End With
  10. #010  End Sub
复制代码
代码解析:
       RngToPoints过程以英寸和厘米计量单位设置单元格的行高列宽。
       第3、4行代码使用CentimetersToPoints方法以厘米为计量单位设置A1单元格的行高列宽。CentimetersToPoints方法将计量单位从厘米转换为磅(一磅等于 0.035 厘米),语法如下:
expression.CentimetersToPoints(Centimeters)
参数expression是必需的,返回一个Application对象。
       参数Centimeters是必需的,指定要转换为磅值的厘米值。
       第5、6行代码使用InchesToPoints方法以英寸为计量单位设置B2单元格的行高列宽。InchesToPoints方法将计量单位从英寸转换为磅,语法如下:
expression.InchesToPoints(Inches)
       参数expression是必需的,返回一个Application对象。
       参数Inches是必需的,指定要转换为磅值的英寸值。
       运行RngToPoints过程结果如图所示。
灵活设置单元格的行高列宽.jpg

[ 本帖最后由 yuanzhuping 于 2009-2-16 22:17 编辑 ]

11-4 灵活设置单元格的行高列宽.rar

5.64 KB, 下载次数: 2275

点评

版主,你这条的应用有误。EXCEL中,列宽、行高的计量单位是不同的:行高的计量单位是“磅”,列宽计量单位却是“标准字符个数”。从贴中的图就明显看出:“列宽1.5厘米”反倒比"行高2厘米”还要大许多,显然不对。   发表于 2013-10-20 23:29

评分

参与人数 1鲜花 +1 收起 理由
yixiao886 + 1 优秀作品

查看全部评分

TA的精华主题

TA的得分主题

发表于 2009-2-10 21:51 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2019-3-20 11:09 , Processed in 0.101480 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表