- Rnd() 生成随机大于0小于1的随机小数,生成随机整数的公式:Int((upperbound - lowerbound + 1) *Rnd + lowerbound)
- ByVal "按值传递:
Sub Test(ByRef a As Integer, ByVal b As Integer)
a = 3
b = 4
End Sub
Sub Main()
Dim a As Integer
Dim b As Integer
a = 1
b = 2
test(a, b)
MsgBox ""a="" & a & ""b="" & b
End Sub
- ByRef 按地址传递
- On Error Resume Next 当出现“运行时错误”时,不中断继续运行
- On Error Goto 0 当出现“运行时错误”时,中断运行
- Error Error对象保存了“错误信息”
- CountIf CountIf(“条件区域”, “条件”)
- Range的CurrentRegion属性 选中遇到的第一个非空行/列前的所有单元格,如:Range(“A1”).CurrentRegion.Copy复制遇到的第一个非空行/列前的所有单元格
- Range的PasteSpecial属性 粘贴
- := 对对象的赋值
- Range的Iterior属性 指定对象内部
- Resize函数 "用于调整指定区域的大小,返回调整后的区域,如:Range.Resize(RowSize,ColumnSize)
Sub Y()
Range(""B1:C2"").Resize(3:4).Select
End Sub
表示选择B1:E3三行四列共12个单元格。该区域是以B1为基准,重置三行四列区域。"