关于lenb函数的问题

lovelfg

需要判断一个单元格内是否包含中文，我想到的办法是用len("A1")=lenb("A1")判断是否相等，在工作表中直接用这个办法是可以判断出来的，但是问题来了，当我在vba里使用的时候，我突然发现用vba.lenb求得“FGSRD”五个大写字母的结果是10，但是在工作表里结果返回的是5，于是我就想用application.worksheetfunction来调用lenb函数，才发现不能用，会直接报错！附件是我测试的结果

求教：
一：为什么会这样？
二：有没有更好更直接判断是否包含一个单元格内是否包含中文的办法？

小花鹿

用正则吧                                                                                                               

苏小亓

lenb.zip (11.27 KB, 下载次数: 5)

2019-11-27 09:56 上传

点击文件名下载附件

lovelfg

苏小亓 发表于 2019-11-27 09:56

想用vba呢？

苏小亓

lovelfg 发表于 2019-11-27 09:59
想用vba呢？

那就不会。

lsdongjh

1. Option Explicit
   
2. 
   
3. Sub Test()
   
4.     Dim strVal As String
   
5.    
   
6. '    strVal = "123"
   
7. '    strVal = "ABC"
   
8.     strVal = "ABC字符串"
   
9.     If HasChinese(strVal) = True Then
   
10.         MsgBox "字符串包含汉字"
    
11.     Else
    
12.         MsgBox "字符串不包含汉字"
    
13.     End If
    
14.    
    
15. End Sub
    
16. 
    
17. Function HasChinese(strVal As String) As Boolean
    
18.     Dim arrByte() As Byte
    
19.     Dim lngLB As Long, lngUB As Long
    
20.     Dim lngID As Long, lngASC As Long
    
21.    
    
22.     lngLB = CLng("&H4E00") '汉字最小值
    
23.     lngUB = CLng("&H9FA5") '汉字最大值
    
24.    
    
25.     arrByte = strVal
    
26.     For lngID = LBound(arrByte) To UBound(arrByte) Step 2
    
27.         lngASC = CLng("&H" + Hex(arrByte(lngID) + arrByte(lngID + 1) * 256))
    
28.         If lngASC >= lngLB And lngASC <= lngUB Then
    
29.             HasChinese = True
    
30.             Exit Function
    
31.         End If
    
32.     Next
    
33.     HasChinese = False
    
34. End Function

复制代码

wxhnr

str1 = "汉字12345abc中国666"
MsgBox LenB(StrConv(str1, vbFromUnicode)) - Len(str1)

lovelfg

wxhnr 发表于 2019-11-28 13:32
str1 = "汉字12345abc中国666"
MsgBox LenB(StrConv(str1, vbFromUnicode)) - Len(str1)

明白了，这个值不等于0就包含中中文