vba基础打卡5
来源:互联网 发布:淘宝产品营销方案 编辑:程序博客网 时间:2024/05/17 09:33
1、 Range 属性 Range("A5").Select Range("A6:A10").Select Range("A1, B6, C8").Select Range("A11:D11, C12, D3").Select
2、 Cells 属性 当你要选择一个确定的单元格时,Cells属性要求两个自变量,第一个是行号,第二个是列号或者列字母。
Cells(5, 1).Select或Cells(5, A).Select Range(Cells(6, 1), Cells(10, 1)).Select Cells.Select(选择工作表中所有单元格)
Excel按 下列方式给单元格编号:单元格A1是工作表中的第一个单元格,B1是第二个,C1是第三个,等等。Cell256是第一行中的最后 一个单元格。你也许会想起Excel只有256列。
选择单元格A1 Cells(1).Select or Cells.Item(1).Select IV1Cells(256) A2Cells(257)
Item是返回一个集合成员的属性。因为Item是一个集合的默认成员,你可以直接引用工作表单元格,而不必明确地使用 Item属性。
当需要将单元 格当做集合操作的时候,Cells属性则使用更方便。使用这个属性去访问单元格集合中的所有单元格或者单个单元格。?
3、 Offset 属性 Selection.Offset(2, 2).Resize(2, 4).Select Resize属性决定新选区的大小
4、选择任何行的最后一个单元格 ActiveCell.End(xlright).Select 列 xldown; xleft 行第一个; xlup列第一个
5、选择行和列
选择当前活动单元格所在行的整行 Selection.EntireRow.Select
选择当前活动单元格所在列的整列 Selection.EntireColumn.Select
Range("A1:D15").Select 输入下列语句来得到选区的行数 ?Selection.Rows.Count 列同
6、计算Excel工作表里总单元格数 ?Cells.Count
计算Excel工作表里总行数 ?Rows.Count
7、往工作表输入数据
Value属性: ActiveSheet.Range("A1:C4").Value = "=4 * 25"
Formula属性: ActiveSheet.Range("A1:C4").Formula = "=4 * 25"
8、返回工作表中的信息 Range("A1").Value返回值 ?Range("A1").Formula显示公式
9、?Range("A1").NumberFormat 显示单元格格式 设置单元格格式 Range("A1").NumberFormat = "$#,##0.00"
在中断模式下,在窗口中输入?i,回车,就会输出目前i的值(当前过程中)
10、移动单元格A5的内容到单元格A4里面 Range("A5").Cut Destination:=Range("A4")
复制单元格A3里的公式到区域D5:F5中 Range("A3").Copy Destination:=Range("D5:F5")
清除单元格A4里的内容 Range("A4").Clear Range("A4").Cut
ClearContents-仅清除单元格或单元格区域内的数据
ClearFormats-仅清除格式
ClearContents-清除区域里的所有批注
11、在新窗口里显示当前活动工作簿 ActiveWorkbook.NewWindow
在屏幕上显示所有打开了的工作簿 Windows.Arrange
激活第二个窗口 Windows(2).Activate
获得当前窗口的名称 ?ActiveWindow.Caption
将当前窗口的名称改为“My Window” ActiveWindow.Caption = "My Window"
xlArrangeStyleTiled 1 平铺窗口(默认模式) xlArrangeStyleCascade 7 层叠窗口 xlArrangeStyleHorizontal 2 水平并排窗口 xlArrangeStyleVertical 3 垂直并排窗口
例:Windows.Arrange ArrangeStyle:=xlArrangeStyleCascade 或Windows.Arrange ArrangeStyle:=7
12、Application.SaveWorkspace "Project" 上面的指令将屏幕设置保存在名叫“Project”的工作区里。下次你要在相同的文件和窗口排列时,只要打开“Project”文 件, Excel就会打开正确的文件和恢复你要的屏幕。
获取当前应用程序名称 ?Application.Name
将Excel应用程序标题改为“My Application” Application.Caption = "My Application"
获取你正在使用的操作系统 ?Application.OperatingSystem
获取该应用程序注册的人名或公司名 ?Application.OrganizationName
获取Excel.exe保存的文件夹路径 ?Application.Path
13、FullName = "John Smith" DateOfBirth = #1/3/1967#
Dim extension As String * 3
Dim FirstName$ 等同于 和Dim FirstName As String
创建变量的时候就将其初始化了。变量假定为它们的默认值,数字型变量设置为0,布尔型变量为False,字符串变 量设置为空字符(””),日期型变量设置为1899年12月30日
14、Option Explicit。Option Explicit语句意味着在本模块里使用的所有变量都必须经过正式声明。
With Range("B6")
.NumberFormat = "0.00"
End With
Format(expression, format) 例 Cost = Format(slsPrice + (slsPrice * slsTax), "0.00")
VB使用Option Explicit语句自动提醒你正式地声明你的变量,这个语句必须放在每个模块的最上面。
选择“工具”-“选项” -“要求变量声明”被勾选上
15、过程级别范围(当地, 关键字Dim,可以在不同的过程里面使用同样的变量名称,一旦该过程结束,该变量便立即消失)
模块级别范围 (Dim放在模块表里任何过程的上面(紧接着在关键字Option Explicit的下面
当你在模块级别声明变量时,除了关键字Dim之外,你还可以使用关键字Private。例如, Private slsTax As Single
私有变量仅仅在声明该变量的模块里的过程中可用。私有变量总是在模块的上面Option Explicit语句之后声明。
'declaration of variables
Dim slsPrice As Currency
Dim Cost As Currency
Dim strMsg As String
slsPrice = 35
slsTax = 0.085
Range("A1").Formula = "The cost of calculator"
Range("A4").Formula = "Price"
Range("B4").Formula = slsPrice
Range("A5").Formula = "Sales Tax"
Range("A6").Formula = "Cost"
Range("B5").Formula = Format((slsPrice * slsTax), "0.00")
Cost = Format(slsPrice + (slsPrice * slsTax), "0.00")
With Range("B6").Formula = Cost
End With
strMsg = "The calculator total is " & "$" & Cost & "."
Range("A8").Formula = strMsg
End Sub
Dim slsPrice As Currency
Dim Cost As Currency
slsPrice = 55.99
Cost = slsPrice + (slsPrice * slsTax)
MsgBox slsTax(0.085)
MsgBox Cost(60.7492)
工程级别范围
保持工程级别的变量为私有,可以在 Option Explicit语句下面,模块的上面输入Option Private Module, 例如: Option Private Module
模块级别的变量用关键字Public(而不是Dim)声明时,拥有工程级别范围。这意味着它们可以在VBA任何模块里使用。
16、用Static关键字声明的变量是特殊的当地变量,静态变量在过程级别声明。静态变量在程序已经不在它们的过程里时仍然不会丢失它们的内容。例如,当一个带有静态变量的VBA过程调用另外一个过程时,在 VB执行完被调用的过程语句后返回主调过程时,静态变量仍然保留它原来的值。
17、因为InputBox函数的结果总是字符串
CSng来将字符串值转换为单精度浮点类型的数字
18、对象变量 Worksheets("Sheet1").Range(Cells(1,1), Cells(10, 5).Select
Set myRange = =Worksheets("Sheet1").Range(Cells(1,1), Cells(10, 5)) Dim myRange As Object
IsObject(myRange)
使用对象变量的好处 n它们可以代替真实对象使用 它们比真实对象更短更容易记住 当过程运行时,你可以改变它们的意义
明确的对象变量 Dim myRange As Range
当对象变量不再需要时,你可以给它赋值Nothing,这将释放内存和系统资源: Set mySheet = Nothing
19、查找变量定义 下Shift+F2 或 视图”-“定义 Ctrl+Shift+F2返回刚才位置
查明变量的类型,使用函数VarType的。
20、常量
Const Age As Integer = 25
21、查找内置常量 视图-对象浏览器
- vba基础打卡5
- VBA基础打卡
- vba基础打卡2
- vba基础打卡3
- vba基础打卡4
- VBA基础
- VBA基础
- VBA基础
- VBA 基础
- c#基础接触(打卡)
- 打卡
- 打卡
- 打卡
- 打卡
- 牛客网每日打卡-Java基础-20160326
- 牛客网每日打卡-Java基础-20160331
- 牛客网每日打卡-网络基础-20160406
- 牛客网每日打卡-数据库基础-20160417
- 321. Create Maximum Number
- HTTP 错误 500.21
- 1047. 编程团体赛(20)
- Vue.js初体验
- 第一章 习题
- vba基础打卡5
- vue+jquery+lodash 实现的滑动时顶部悬浮固定
- express源码(3)
- 8个java 网络编程框架介绍
- 指针
- 编译器错误消息: CS0016: 未能写入输出文件“c:\Windows\Microsoft.NET\Framework64\v4.0.30319\Temporary ASP.NET Files\ro
- nginx: [error] OpenEvent("Global\ngx_reload_52660)failed (5:access is denied)
- 三种常用的MySQL建表语句
- JDBC事务和JTA (XA)事务区别