[已解决]EXCEL高手用VBA找出最大一个并显示出来

vbyou127

EXCEL高手用VBA找出最大一个并显示出来

设计一程序，输入4个数，找出其中最大一个并显示出来,msgbox

用多种方法

最佳答案

月排行榜 / 总排行榜

sry660

2016-2-13 13:37

1. Sub 查找最大值()
   
2. Dim x, xmax, arr, i&
   
3. x = Application.InputBox("请输入信息", "按提示输入：", "1,2,3,4", , , , , 2)
   
4. arr = Split(x, ",")
   
5. xmax = 0
   
6. For i = 0 To UBound(arr)
   
7.     If Val(arr(i)) > xmax Then
   
8.         xmax = arr(i)
   
9.     End If
   
10. Next
    
11. MsgBox "最大数为：" & xmax
    
12. End Sub

复制代码

跳转到最佳答案楼层

龙城飞将III

输入的四个数是怎么输入的，用什么分隔符分开的？

vbyou127

龙城飞将III 发表于 2016-2-11 11:11
输入的四个数是怎么输入的，用什么分隔符分开的？

用inputbox输入4个数，中间用逗号隔开

龙城飞将III

1. Sub T()
   
2.     Dim strNumber As String
   
3.     strNumber = Application.InputBox("请输入4个数（中间用逗号隔开）：")
   
4.     MsgBox "输入4个数中最大数为:" & Evaluate("=max(" & strNumber & ")")
   
5. End Sub

复制代码

vbyou127

龙城飞将III 发表于 2016-2-12 10:23

不用max函数，如何做

sry660

1. Sub 查找最大值()
   
2. Dim x, xmax, arr, i&
   
3. x = Application.InputBox("请输入信息", "按提示输入：", "1,2,3,4", , , , , 2)
   
4. arr = Split(x, ",")
   
5. xmax = 0
   
6. For i = 0 To UBound(arr)
   
7.     If Val(arr(i)) > xmax Then
   
8.         xmax = arr(i)
   
9.     End If
   
10. Next
    
11. MsgBox "最大数为：" & xmax
    
12. End Sub

复制代码