|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 素心1218 于 2020-2-25 14:25 编辑
这几天给别人编写东西,用到一些 经常用,写起来又很烦的过程和函数,这里进行了修改,有很强的通用性,汇总出来,提供给大家。后续还会不断更新。
具体代码都在附件的模块汇总中,需要用的直接把模块整个复制过去,可以直接调用。其中一些过程为了增加通用性,也加了参数,可以和公式一样调用。
'【1.从身份证号提取相应信息】(性别,生日,所在省市县),同时,可根据身份证长度、出生日期、地区码粗略判断身份证号是否合法,对不合法的项进行红色标注。
'过程:tqsfzxx(sfzcol, xingbiecol, birthdaycol, diqucol, startrow, endrow)
'参数说明:根据第sfzcol(整数)列的身份证号,将性别提取到第xingbiecol(整数)列,生日提取到第birthdaycol(整数)列,地区提取第diqucol(整数)列,提取是从第startrow(整数)行开始,到endrow(整数)行结束。
'要使用该过程,请将【基础信息】拷入相应excel文件,并保证名称为【基础信息】,否则地区无法判断
'【2. 删除特定列带空数据的行】
'过程:DeleteEmptyRows(czcol, startrow)
'参数说明:在第czcol(整数)列的第startrow(整数)行开始查找带空数据的行,并删除
'【3.删除选中某一列带空白数据的行】
'过程:DeleteEmptyRows_sel()
' 无参数,可以直接当成工具使用
'【4.显示EXCEL图标】,显示所有excel中存在的图标,当鼠标放上去后,显示其faceid值,便于对图标的引用
'过程:ShowFaceIDs
' 无参数,可以直接当成工具使用
'【5.汉字转换为拼音】,函数,将汉字转换为拼音,中间用空格隔开
'函数:getPY(str)
' 将str(汉字)转换为拼音,可以直接在单元格调用
'【6.汉字转换为首字母】,函数,将汉字转换为首字母
'函数:getSZM(str,n)
' 将str(汉字)转换为首字母,n为0时转换为小写字母,n为1时转换为大写字母。可以直接在单元格调用
'【7.在两列中查找】,函数,返回行号
'函数:tlkup(col1, col2, fstr1, fstr2)
'查找符合第col1(整数)列值等于fstr1(字符串),且第col2(整数)列值等于fstr2(字符串)的第一行,返回行号
|
评分
-
2
查看全部评分
-
|