'概要: SHIFT_JIS「全角文字判定(ASCII:0~255の範囲外)」 '引数: strHantei:判定キャラクター '戻り値: True:全角文字, False:全角文字以外 Function isZenkaku(strHantei As String) As Boolean Dim intAscii As Integer intAscii = Asc(strHantei) isZenkaku = False 'Ascii255の範囲外 If intAscii > 255 Or intAscii < 0 Then isZenkaku = True End If End Function '概要: SHIFT_JIS「半角カナ判定(ASCII:A1~DF)」 '引数: strHantei:判定キャラクター '戻り値: True:半角カナ, False:半角カナ以外 Function isHankakukana(strHantei As String) As Boolean Dim intAscii As Integer intAscii = Asc(strHantei) isHankakukana = False 'ASCII:A1~DF If intAscii >= 161 And intAscii <= 223 Then isHankakukana = True End If End Function '概要: SHIFT_JIS「英数字判定(ASCII:「00~A0」「E0~FF」)」 '引数: strHantei:判定キャラクター '戻り値: True:英数字記号, False:英数字記号以外 Function isEisuji(strHantei As String) As Boolean Dim intAscii As Integer intAscii = Asc(strHantei) isEisuji = False 'ASCII:「00~A0」「E0~FF」 If (intAscii >= 0 And intAscii <= 160) Or (intAscii >= 224 And intAscii <= 255) Then isEisuji = True End If End Function '概要: キャラクター類型を判定 '引数: strHantei:判定キャラクター '戻り値: 0:英数字記号, 1:半角カナ, 2:全角文字 Function hanteiCharType(strHantei As String) As String '英数字判定(ASCII:「00~A0」「E0~FF」) If isEisuji(strHantei) Then hanteiCharType = "0" '半角カナ判定(ASCII:A1~DF) ElseIf isHankakukana(strHantei) Then hanteiCharType = "1" '全角文字判定(ASCII:255の範囲外) ElseIf isZenkaku(strHantei) Then hanteiCharType = "2" End If End Function '概要: 複数なスペース(半角)を一つに変わる '引数: str:対象ストリング '戻り値: 複数なスペース(半角)を一つになったストリング Function replaceSpacesToOne(str As String) As String Dim strReturn As String Dim Matches As Object Dim Match As Object Dim myReg As Object Set myReg = CreateObject("VBSCRIPT.REGEXP") With myReg .Pattern = "\s{2,}" '二つ以上スペース .Global = True replaceSpacesToOne = .Replace(str, " ") End With End Function
相关推荐
详细介绍了vba对字符串的处理,非常实用 vba是现在办公必不可少的计算机语言
VBA字符串处理大全
VBA字符串处理[总结].pdf
VBA字符串处理大全[汇编].pdf
经典的VBA字符串处理的命令,非常详细,对初学者有很大的帮助
在VBA中处理字符串http://club.excelhome.net/thread-373651-1-1.html
VBA 函数 字符串处理 vba在office编程中有非常广泛的应用。而字符串的喘的处理是难点和重点。本文根据字符串的很多应用场合,结合VBa函数,进行了详细的讲解。
技巧6替换单元格内字符串24 技巧7复制单元格区域25 技巧8仅复制数值到另一区域28 8-1使用选择性粘贴28 8-2直接赋值的方法29 技巧9单元格自动进入编辑状态30 技巧10禁用单元格拖放功能30 技巧11单元格格式操作31 11-1...
在asp网页中如果文字的宽度太长,就会使页面变形,必须将文字截取提定长度,vbscript中的字符处理函数是不区分(中/英),如此一来就必须自行编写一个函数来处得中英文混合字串的情况,此处用了一个简单的解决办法。
《Excel VBA开发技术大全》共分7部分31章,分别介绍了Excel 2007开发平台概述、使用宏、Excel VBA的开发环境、VBA基础、程序控制结构、使用数组、使用过程、管理模块、处理字符串和日期、Excel对象概述、使用...
使用VBA内置的注册表函数 许多程序员使用全局变量来持有整个程序使用的...一个代替的方法是保存这种数据到数据库里,但如果你保存连接字符串在远程数据库里,如果你的程序不知道到哪里查找时你可能会发现很难得到它。
5-2 字符串函数的应用 5-3 其他常用函数的应用 Chapter 06 数据处理 6-1 数据的基本操作 6-2 数据的高级操作 6-3 数据透视表和透视图的操作 Chapter 07 图形与图表的处理 7-1 图形处理 7-2...
使用DLL文件,应用时候导入进来就可以,包括数据库操作,API操作,常用字符串处理函数
《Excel VBA开发技术大全》共分7部分31章,分别介绍了Excel 2007开发平台概述、使用宏、Excel VBA的开发环境、VBA基础、程序控制结构、使用数组、使用过程、管理模块、处理字符串和日期、Excel对象概述、使用...
正则表达在文字处理非常好用,可以进行复杂的字符串筛选判断,用于各种输入校验,字符串查找、替换,以及提取操作。
很基础的VBA语法讲解 部分目录 一、VBA语言基础1 第一节 标识符1 第二节 运算符1 第三节 数据类型1 第四节 变量与常量1 第五节 数组2 第六节 注释和赋值语句2 ...字符串函数 5 四.转换函数 6 五.时间函数 6
字符串函数 6 四.转换函数 6 五.时间函数 7 第十三节 文件操作 7 文件 7 删除 7 打开 7 读入 8 写入 8 关闭 8 其他文件函数 8 二、Visual BASIC程序设计网络教学 8 第一课 VBA是什么 8 1.1 VBA是什么 8 1.2 EXCEL...