ExCEl常用vBA函数案例

sub test() dim i as integer for i = 30 to 1 step -1 if cells(i, 1) = "" then rows(i).delete next i end sub

如果没有选择参数Optional,则可以指定用户定义类型,或对象类型

excel vba实战技巧精粹 一定要excelhome出版的. (分为2003,2007版)本书内容侧重于excel vba使用技巧,旨在帮助excel vba的初学者和有一定excel vba应用基础、希望进阶的读者.全书精选了279个技巧、近300个典型实例,并辅以深入浅出的剖析,力求让更多希望深入掌握excel vba技巧的读者取得更大的提高.

Public Sub rnd100() 'random extract 100 unique number bwteen 1 to 1000.Dim t(1 To 100) As IntegerDim cnt As Integer, tmp As Integer, I As IntegerDim flag As Booleantmp = Round(Rnd() * 1000, 0)t(1) = tmpCells(1, 1) = tmpcnt = cnt + 1While cnt 评论0 0 0

zhouziyan2001 ,离线解释:Dim i As Long, j'定义变量For i = 1 To Sheet8.Range("a65536").End(xlUp).Row'运算从Sheet8的第一行到第一列的最后一个有内容的单元格所在列.'对后面内容,你可以查找END()的帮助来理解Sheet3.Cells(i, 1).

1、示例代码:Sub test1() Dim x As Long x = WorksheetFunction.SumIf(Range("A2:A9"), Range("C2").Value, Range("B2:B9")) Range("D2").Value = xEnd Sub2、如下图:3、以上代码的作用是:调用工作表函数SUMIF,求A2:A9范围内符合C2单元格条件,对应的B2:B9范围内数值之和,结果输出到D2单元格.

private sub worksheet_beforedoubleclick(byval target as range, cancel as boolean)if target.count > 1 then exit subif target "" then if not sheets("sheet2").cells.find(target.value, lookat:=xlwhole) is nothing then sheets(2).select sheets("sheet2").cells.find(target.value, lookat:=xlwhole).select end ifend ifend sub

工作需要,自学了一点VBA,目前算是4类应用吧.一、自定义函数.如计算Unif,使用excel原来的公式,则Unif=(Max(range)-Min(range))/(Max(range)+Min(range)),非常麻烦.自定义一个函数unif,则Unif=unif(range)就可以了.二、自定义工

差不多VB的事件里面都有而且大多都是相同的,你可以进入到VBA那个里面后点里面的帮助,那里面有详细的说明!

1、ABS函数 函数名称:ABS 主要功能:求出相应数字的绝对值. 使用格式:ABS(number) 参数说明:number代表需要求绝对值的数值或引用的单元格. 应用举例:如果在B2单元格中输入公式:=ABS(A2),则在A2单元格中无论输入正数(

相关文档

excel vba实例教程
vba在excel中常用实例
excel vba范例大全pdf
excelvba典型实例大全
excel vba窗体设计实例
43个典型excelvba实例
excel vba经典案例
43个excelvba实例
电脑版