函数
文章目录VBA函数excel函数对应的VBA函数countavlookup excel特有的函数和VBA特有的函数VBA字符串函数instrsplit vba常用函数错误处理控制输入的格式带参数的sub码复用
未完成的任务:张三李四登录p=8 VBA的函数
的函数可用。 有什么新函数?
与excel函数对应的vba函数counta函数计算范围中非空单元格的数量。
=counta(a1:a10 )指定某个工作表所在的区域=counta (重庆! A:A )-1 vba使用常规方法计算非空单元格。
subtongji(dimk,iasintegeralrow=sheet2. range (a 65525 ) ) end ) xlup ).row for I=1to al row if sheet2. cells (I ),I,I
sheet1.range(D26 )=worksheet function.counta (sheet2. range ) (a:a ) )-1例:
subtongji(dimk,kboy, kgirlasintegerfori=2to sheets.countk=kworksheetfunction.counta (sheets (I ).range('a3360a ' ) ) kboy=kboyworkshork (男) ) k girl=kgirlworksheetfunction.count ion“女”(nextsheet1.range(D26 ) ) k sheet1. range (d27 ) )=kboy sheet
使用函数vlookup (比较查找什么和查找哪个块)块的第一列是查找什么)、找到后返回第几列、准确匹配(0表示准确) )
=Vlookup(D9,重庆! A:H、5、0 )使用vba代码的情况:
! 如果找不到函数,则返回#value;如果找不到vba,则程序崩溃!
sub chaxun (dimkasintegeronerrorresumenextsheet1. range )、d16、d18、d20、d22 ' ).clearcontentsfori=2to sheets.count 0 ) sheet1.range(D16 )=worksheetfunction.vlookup ) sheet1.range )、Sheets(i ).range (a 3360 h )。 0 ) sheet1.range(D18 )=worksheetfunction.vlookup ) sheet1.range )、Sheets(i ).range (a 3360 h ) )。 0 ) sheet1.range(D20 )=worksheetfunction.vlookup ) sheet1.range )、Sheets(i ).range (a 3360 h ) )。 0 ) ifsheet1.range(D14 ) ) then sheet1. range (d22 )=Sheets(i ) I ).nameexitforendifnextendsubexcel特定函数和vba特定函数excel
with VBA.math.strings.datetime.file system.finacial.information.interactionendwithinteraction : inputboxmsgboxvbbbbbbbbbbbboxvbbbbon
excel有几个函数
instr使用vba从邮箱(123456@qq.com)中剪切qq号码。
你可以使用worksheetfunction.find,但是如果找不到它,它就会崩溃。
使用instr,找到返回第几个,无法返回0。
dimiasstringvba.strings.instr (range )、' a2 ' )和' @ ' ) split返回数组,并通过索引获取从0开始
' 12-1234-3452-2354范围(a3 )=分裂范围(a2 ),(-) )0) vba公共函数) vba函数可以省略
num=val(text )转换为数字num=text *1VBA.information.isnumeric ) (数字简称isnumeric ) vba.strings的) left mid
I=inpubox (请输入数字而不是'字符) ) If VBA.Information.IsNumeric(I ) I=false ori1thenexitsubendifvba.information.ion
在模块中编辑函数
functiontodollar(x ) toDollar=x * 0.18End Function是转换函数functionmynominal(strasstring ) If str='男' Then mynominal=
这样就可以在excel中使用特定于vba的函数,如split。 例如,写入剪切字符串第一个和第二个"-"之间的部分的函数
functionjqzf(str1,str2,I ) jqzf=split(str1,str2) i-1 )带有结束函数参数的sub可以根据参数执行若干操作功能比函数多
例如,参数是表名(字符串),操作是创建具有该名称的表单
subcreate(sasstring ) xx end sub sub create it (call create ) (表1 ) (call create (range ) a1 ) ) end sub代码是否针对某个excel编写
1、将编写的宏保存为xla格式,默认路径
2、开发工具-加载项目-选中其宏
3、选择文件-选项-快速访问工具栏-常用命令-宏-代码库