VBA301班第三讲义ppt.ppt

VBA初级入门更多精彩敬请访问第三讲 变量操作及Range对象 By乒乓27 来自完美团队 认识VBE窗口代码基础数据类型 第一部分变量操作 变量 1 命名原则及注意事项 1 变量名必须以字母开始 后能连接字母 下划线 数字等 不能包含运算符 空格 也不能包含字符 最大长度为255个字符 2 不能使用VBA中的关键字 如 if add等3 不区分大小写 如 PP27 Pp27和pp27是一样的4 命名时建议区分变量类型 如 intMax strName2 常见的错误举例 6xyy zpingpang27DimVal 3 变量的声名 Dim变量名 AS数据类型 这条语法中的变量名代表将要创建的变量名 这条语句中的数据类型部分可以是上表中的任何一种数据类型 如 DimintMaxasintegerDimflagasBoolean douSumasdoubleDimstrNameasstringDimpp27 4 变量的赋值 变量名 表达式对象名 属性名 表达式赋值号 左侧只能是变量名如 n 1str1 乒乓27 range A1 110flag 1 1 3 错误语句 cos x y5 yx 3 y 关于变量赋值的两个重要模型 n n 1 计数器s s x 累加器小练习 编写一个Sub过程 交换单元格A1 A2的值 上部分完 在VBA代码中 用得最多的单独的对象可能就要算Range对象了 Range对象是Excel的对象世界中真正的工作对象 作为Excel用户 将把大部分时间花在对Range对象的处理上 对象属性方法 第二部分range对象 一 选取单个单元格1 range 单元格地址 select2 range 列标 行数 select3 range 定义名称 select4 cells 行数 列数 select5 cells 行数 列标 select6 cells 单元格序号 select7 单元格地址 select 1 单元格地址必须用双引号括起来2 列标是用英文字母表示 行是变量3 定义的名称必须要用双引号括起来4 行数和列数不能用双引号括起来5行数不需要双引号 列标一定要双引号6 单元格序号的顺序是先从左到右 再从上到下7 单元格地址不能用双引号括起来练习 1 常量的输入与输出2 公式的输入与输出3 部分信息的清除 二 选取指定工作表的某个单元格 1 Sheets 工作表名称 单元格 select2 Sheets 工作表序号 单元格 select 1 Sheets的 s 千万不要漏了2 这里的序号是指工作簿中的顺序3 Worksheets Sheet3 Range C3 D5 表示引用工作表sheet3中的单元格区域C3 D5 4 Workbooks MyBook xls Worksheets sheet1 Range B2 表示引用MyBook工作簿中工作表Sheet1上的单元格B2 注意 必须保证被选择的工作表在活动状态 否则报错 三 选取单元格区域选取全部单元格1 所有单元格 Select2 所有行 Select3 所有列 Select 1 用Cells代表本工作表所有单元格2 用Rows代表本工作表所有行3 用Columns代表本工作表所有列 四 选取部份连续单元格区域1 range 单元格区域地址 select2 range 起点地址 终点地址 select3 range cells cells select4 单元格区域地址 select5 range 起点单元格 终点单元格 select6 range 区域名称 select 整 多行 整 多列的选取 1 地址必须用双引号引起来 2 用单元格地址表示区域的起点和终点 每个地址必须单独用双引号括起来 3 用cells单元格表示方法来表示区域的起点和终点 地址不能用双引号引起来 4 起点和终点单元格可以以任何单个单元格表示的方式表示 之间用逗号分隔 5 区域名称必须用引号括起来 6 当用逗号分隔的区域不是单个单元格的时候 区域练习 选取A1 B4扩展 整行的选取1 range 起点行数 终点行数 Select2 rows 起点行数 终点行数 Select3 rows 行序号 Select4 单个单元格区域 EntireRow Select5 Range 行区域1 行区域2 Select6 不连续单元格区域 EntireRow Select练习 选取第2行思考 整列的选取 五 选取不连续单元格区域1 range 地址1 地址2 地址3 select2 Union 区域1 区域2 区域3 select 1 所有地址必须用一个引号括起来 地址之间逗号分隔2 Union是一个函数 作用是把两个以上的区域联合在一起 括号里面的区域以逗号分隔 每个区域的表示方式可以是上面的任意方式之一 练习 选取A1 B2 B3 六 特殊单元格的选取1 选取当前已使用单元格工作表 UsedRange Select2 选取相邻区域单元格单个单元格 CurrentRegion Select3 定位区域端点单元格Range End 参数 SelectxlDown Ctrl xlUp Ctrl xlToRight Ctrl xlToLeft Ctrl 4 SpecialCells 有特定内容的单元格 1 UsedRange包括所有曾经使用过的单元格 不管单元格是否有数据UsedRange前只能跟工作表 不能跟工作簿或者单元格练习 选取sheets1中的Usedrange 练习 1 B列第一个非空单元格 这里假设B1为空单元格2 B列最后一个非空单元格3 第2行第一个非空单元格 这里假设A2为空单元格4 第2行最后一个非空单元格5 求B列最后一个非空单元格下第一个空白单元格的行数6 求第2行最右边一个非空单元格右边第一个空白单元格的列数 相邻区域是指和已有连续区域的行和列都相邻的区域 SpecialCells方法返回一个Range对象 该对象代表与指定类型及值相匹配的所有单元格 语法如下 Range SpecialCells 单元格类型变量 例 Range对象 SpecialCells 参数 RowRange对象 SpecialCells 参数 Column SpecialCells返回的结果是一个单元格区域对象 Range 可以当Range用 如 1 Range对象 SpecialCells 参数 Row 返回选定对像的行标2 Range对象 SpecialCells 参数 Column 返回选定对像的列标 Specalcells对应的就是这个对话框 思考 这个是什么意思 Range B B SpecialCells xlCellTypeBlanks EntireRow Delete练习 清除批注 4 offsetRange A1 offset 2 1 1 Offset 移动行数 移动列数 返回一个Range对象2 移动行数 正数向下移 负数向上移 省略为不移动3 移动列数 正数向右移