[已解决]以消息框的方式，显示指定区域，单一单元格内的最大字符数，谢谢today0427和su45老师

lhj323323

老师：

我想以消息框的方式，显示指定区域，单一单元格内的最大字符数
先谢谢老师了
统计最大字符数.rar (8.58 KB, 下载次数: 9)

2016-10-25 16:58 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

today0427

2016-10-25 18:05

统计最大字符数.rar (18.09 KB, 下载次数: 3)

2016-10-25 18:06 上传

点击文件名下载附件 不知道我题意理解的对不对，这不是一个公式就做出来了=MAX(LEN($E$2:$Q$12))

1. Option Explicit
   
2. Sub today() '提取最大字符数
   
3.     Dim rng As Range, rg As Range, tem, str$
   
4.    Set rng = Sheets("F10").Range("e2:q12")
   
5.     For Each rg In rng
   
6.         If Len(rg) > tem Then
   
7.             tem = Len(rg): str = "指定区域含有最大字符数的单元格为" & rg.Address & "：" & tem & "个字符。"
   
8.         End If
   
9.     Next
   
10.     MsgBox str
    
11. End Sub
    

复制代码

跳转到最佳答案楼层

today0427

统计最大字符数.rar (18.09 KB, 下载次数: 3)

2016-10-25 18:06 上传

点击文件名下载附件 不知道我题意理解的对不对，这不是一个公式就做出来了=MAX(LEN($E$2:$Q$12))

1. Option Explicit
   
2. Sub today() '提取最大字符数
   
3.     Dim rng As Range, rg As Range, tem, str$
   
4.    Set rng = Sheets("F10").Range("e2:q12")
   
5.     For Each rg In rng
   
6.         If Len(rg) > tem Then
   
7.             tem = Len(rg): str = "指定区域含有最大字符数的单元格为" & rg.Address & "：" & tem & "个字符。"
   
8.         End If
   
9.     Next
   
10.     MsgBox str
    
11. End Sub
    

复制代码

laoau138

today0427 发表于 2016-10-25 18:05
不知道我题意理解的对不对，这不是一个公式就做出来了=MAX(LEN($E$2:$Q$12))

today 需要怎样写数组啊

http://www.excelpx.com/thread-425246-1-1.html

su45

统计最大字符数.zip (16.18 KB, 下载次数: 4)

2016-10-25 23:13 上传

点击文件名下载附件

lhj323323

today0427 发表于 2016-10-25 18:05
不知道我题意理解的对不对，这不是一个公式就做出来了=MAX(LEN($E$2:$Q$12))

是的，谢谢today0427老师。

lhj323323

su45 发表于 2016-10-25 23:13

谢谢su45老师。

我在您写的语句中，加了一句
Sheet2.Select
Set x = Application.InputBox("请选择要计算的区域：", , , , , , , 8)