两个 LenB 的区别及VBA对工作表函数的调用

jsxjd

    需要对满足条件的字符串用相应数量的空格替换，显然汉字需要用2个空格，数字字母只需要1个空格，自然想到用VBA中提供的LenB函数来计算需要的空格数(有点想当然，以为和工作表函数LenB等价)，可结果并非如愿，因为VBA支持的是Unicode编码，任一字符都是2bytes，包括数字和字母。既然VBA.LenB不好用，那就用工作表函数 LenB，可以下竟然都是无效的调用：

1.     Application.LenB ("AA")
   
2.     WorksheetFunction.LenB ("AA")
   

复制代码

有点不甘心，最后只好“曲线调用”。

1. Sub test()
   
2.     'Application.LenB ("AA")
   
3.     'WorksheetFunction.LenB ("AA")
   
4.    
   
5.     Debug.Print , "VBA.LenB", "Excel.LenB"
   
6.     For Each c In Array("纯中文串", "abce", "12有中文有ABC")
   
7.         Debug.Print c, LenB(c), Evaluate(Replace("Lenb(""SS"")", "SS", c))
   
8.     Next
   
9. End Sub
   

复制代码

以下为输入结果：
              VBA.LenB      Excel.LenB
纯中文串       8             8
abce           8             4
12有中文有ABC  18            13

从结果推测，工作表函数将VBA提供的Unicode串转换成了ASCII 串(系统的默认字符串编码)

jsxjd

首席打杂 发表于 2015-4-25 21:26
strconv 能不能转字串？？

是个思路！

1.     MsgBox LenB(StrConv("1234中汉字1bAD", vbFromUnicode))

复制代码

首席打杂

strconv 能不能转字串？？

seven_820816

你好，在Application.WorksheetFunction 下找不到该工作表函数：LenB，强行输入：Application.WorksheetFunction.LenB("AA")  ，不出意料提示“对象不支持该属性或方法”。请问下，你是怎么做到的？

jsxjd

seven_820816 发表于 2015-5-11 22:52
你好，在Application.WorksheetFunction 下找不到该工作表函数：LenB，强行输入：Application.WorksheetFun ...

所以通过“Evaluate”调用

hsyyqj

老师，我总算是找到你了，请帮我看看这个考勤软件要怎么引用，应该还会用到VBR和宏，本人都不会，谢谢老师了，QQ：104624497

bsmzh0402

Evaluate(Replace("Lenb(""SS"")", "SS", c)
StrConv("1234中汉字1bAD", vbFromUnicode)
两个都很好用.受教受教,非常感谢.