vb中的统计字数问题

来源：百度知道 编辑：UC知道 时间：2024/06/27 12:25:33
vb调用Excel数据，想要统计其中一个单元格的字数，如果超过每一值就缩小一号字体，怎么统计单元格的字数，请给出代码，最好详细一点，如要定义变量什么的也请写出，谢谢了

Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("文件名")
xlApp.Visible = True
Set xlSheet = xlBook.Worksheets(1)
msgbox len(xlSheet.Cells(1,1).value)‘字数

不用统计字数，使用设置单元格，就行了。

LEN(单元格值)