大佬帮我看看

只看楼主
收藏
回复

天香榴莲
初涉江湖
1

Sub 宏15()
Set rr = Application.InputBox("请选择区域范围", "范围引用", Type:=8)
rng = rr.Address
ActiveCell.Formula = "=MAX(rng)-MIN(rng)"
End Sub

天香榴莲
初涉江湖
1

结果是这个 =MAX(rng)-MIN(rng)，怎么回事啊？

zmj9152
四方游侠
5

rng是变量，要拼接字符串同max( " & rng & ")这样

DwcCC
人中龙凤
11

楼上的你不给他写完整他是搞不清楚的
首先你这个程序最好先加2个变量
dim rr as range
dim rng as string
Set rr = Application.InputBox("请选择区域范围", "范围引用", Type:=8)
rng = rr.Address
ActiveCell.Formula = "=MAX(" & rng & ")-MIN(" & rng & ")"

DwcCC
人中龙凤
11

补充一下这段程序最后的结果就是你选择区域内
最大的那个数减去最小的那个数

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

贴吧页面意见反馈
违规贴吧举报反馈通道
贴吧违规信息处理公示

4回复贴，共1页

<<返回vba吧

分享到:

日	一	二	三	四	五	六