工作中用到的VBA常用函数

字符串查找

mid(字符串，从第几个开始，长度) 在[字符串]中[从第几个开始]取出[长度个字符串]
例如 mid(“小欣无敌”,1,3) 则返回 “小欣无”
instr(从第几个开始,字符串1,字符串2) 从规定的位置开始查找，返回字符串2在字符串1中的位置
例如 instr(1,“小欣无敌”,“小”) 则返回 1,instr(2,“小欣无敌”,“小”)，则返回 0 。 0 表示未找到
InStrRev(字符串1,字符串2,从第几个开始) 从规定的位置开始，从后住前查找，返回字符串2在字符串1中的位置，此处注意，虽是从后住前查找，但是返回的值还是从前往后算的。
例如 instrRev(“小欣无敌”,“小”,2) 则返回 2 ; instrRev(“小欣无敌”,“欣”,1) 则返回 0 ,因为它从"小欣无敌"的第1个字开始往前查找，所以找不到。0 表示未找到
left(字符串,长度) 从[字符串]的左边开始返回[长度]个字符
例如 Left(“小欣无敌,3) 则返回 “小欣无”
right(字符串,长度) 从[字符串]的右边开始返回[长度]个字符
例如 Right(“小欣无敌”,3) 则返回 “欣无敌”
ucase(字符串) 返回[字符串]的大写形式，只对英文字符有效
例如 ucase(“xiaoXINwuDi”) 则返回 “XIAOXINWUDI”
lcase(字符串) 返回[字符串]的小写形式，只对英文字符有效
例如 lcase(“xiaoXINwuDi”) 则返回 “xiaoxinwudi”
asc(字符) 返回[字符]的ascii编码，若有多个字符，则只返回首字符的ascii编码,和Chr()函数是一个可逆的过程
例如 asc(“小”) 则返回 -12127 ; asc(“小欣无敌”) 也返回 -12127
chr(ASCii编码) 返回[Ascii]编码所代表的字符，和Chr()函数是一个可逆的过程
例如 chr(-12127) 则返回 “小” ；chr(asc(“小”)) 则返回"小”(这里是为了说明asc和chr的可逆性，例用此特性可以加密文本)
trim(字符串) 返回去掉了前、后之后的[字符串]
例如 trim(" 小欣无敌 ") 则返回 “小欣无敌” ，中间的空格不受任何影响
string(个数,字符) 返回[个数]个[字符]
例如 string(3,“小”) 则返回 “小小小” , 而 string(3,“小欣无敌”) 也返回 “小”，只有首字符才有效
space(个数) 返回[个数]个空格
例如 space(5) 则返回 " "
strconv(字符串,转换的类型) 将字符串转成指定的类型。常用的类型只有两个,vbwide 半角转成全角,vbNarrow 全角转成半角
例如 strconv(“xiao”,vbwide) 则返回 “ＸＩＡＯ”,而strconv(“ＸＩＡＯ”,vbnarrow) 则返回 “XIAO”
’备注 vbwide = 4 ,vbnarrow = 8
len(字符串) 返回[字符串]的长度
例如 len(“小欣无敌”) 则返回 4

字符串分割： split（）

Sub SplitExample()Dim Str, Val, nStr = "资产分类-->硬件类-->整机-->个人处理设备-->笔记本-->中端笔记本"Val = Split(Str, "-->")For n = LBound(Val) To UBound(Val)MsgBox Val(n)Next
End Sub

On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息
On Error GoTo ErrorHandler '当错误发生时跳转到过程中的某个位置 ----当前中断
On Error GoTo 0 '恢复正常的错误提示
获得当前sheet页的有效区。

Sheets("sheet1").Cells.SpecialCells(xlCellTypeConstants).Select
ActiveSheet.UsedRange

数据类型转换

Str(x) '将数值数据x转换成字符串
Val(x) '将字符串x中的数字转换成数值
Chr(x) '返回以x为ASCII码的字符
Asc(x) '给出字符x的ASCII码值，十进制数
Cint(x) '将数值型数据x的小数部分四舍五入取整
Int(x) '取小于等于x的最大整数
Fix(x) '将数值型数据x的小数部分舍去
CBool(x) '将任何有效的数字字符串或数值转换成逻辑型
CByte(x) '将0-255之间的数值转换成字节型
CDate(x) '将有效的日期字符串转换成日期
CCur(x) '将数值数据x转换成货币型
Round(x,N) '在保留N位小数的情况下四舍五入取整
CStr(x) '将x转换成字符串型
CVar(x) '将数值型数据x转换成变体型
CSng(x) '将数值数据x转换成单精度型
CDbl(x) '将数值数据x转换成双精度型

1.VBA常用功能函数集

工作中用到的VBA常用函数相关推荐

python中常用模块_工作中用过的Python常用模块：（基于3.x）
内置模块: sys 用于提供对解释器相关的访问及维护.例如:sys.argv --传参 sys.platform --返回系统平台名称 sys.version --查看python版本 os 用于提供 ...
计算机vba函数,vba 常用函数详解.doc
Find 方法参阅应用于示例特性应用于 WorksheetFunction 对象的 Find 方法. 在工作表中查找特定信息. expression.Find(Arg1, Arg2, Arg3) ...
常用start_Excel VBA 基础(02.7) - 常用函数第二部分
Option Explicit' 从选择单元格中随机选取n个不同单元格 Private Function sampling(ByVal n As Long)' 选中单元格总数Dim totalCel ...
EXCEL常用函数公式和VBA汇总
EXCEL自学之路第一节 1.test01 excel生成目录 2.test02 打开全部隐藏工作表 3.test03 多个工作表汇总到一个工作表 4.test04 隔m列(行)插入n列空白列(行) ...
Kaggle常用函数总结原创 2017年07月03日 21:47:34 标签： kaggle 493 kaggle比赛也参加了好几次，在这里就把自己在做比赛中用到的函数汇总到这，方便自己以后查阅
Kaggle常用函数总结原创 2017年07月03日 21:47:34 标签: kaggle / 493 编辑删除 kaggle比赛也参加了好几次,在这里就把自己在做比赛中用到的函数汇总到这,方便 ...
vba 窗体单选框怎么传回sub_EXCEL表格VBA中函数的日常使用
在日常工作中,Excel里面很多函数我们都用过,那在VBA中该怎么使用函数达到你的目的呢? 以上图为例, 一.用VBA在F2中计算金额,如果使用公式,那很简单,直接在F2中输入: =B2*C2 在VB ...
(Excel)常用函数公式及操作技巧之四：文本与页面设置(一)
(Excel)常用函数公式及操作技巧之四:文本与页面设置(一) (Excel)常用函数公式及操作技巧之四: 文本与页面设置(一) --通过知识共享树立个人品牌. EXCEL中如何删除*号在录入帐号是 ...
plsql 常用函数
PLSQL常用函数 1)处理字符的函数 || 或 CONCAT---并置运算符. 格式∶CONCAT(STRING1, STRING2) 例:'ABC'|| 'DE'='ABCDE' CONCAT(' ...
DELPHI常用函数集及简要范例 3
##DiskFree, DiskSize Example ----------------------------------------------------------------------- ...

工作中用到的VBA常用函数

工作中用到的VBA常用函数相关推荐

最新文章

热门文章