#1




how to find maximum value of multiple variables
how to find maximum value of multiple variables
variables x1, x2, x3, x4, x5........xN how to find the maximum in above variables 
#2




There are two ways to solve the problem. First  use arrays instead of regular variables. Instead x1 = 5, x2 = 3, x3 = 10 etc. use Ar(1) = 5, Ar(2) = 3, Ar(3) = 10. Then the maximum value can be calculated as follows:
Code:
Max = 0 For i = 1 to 3 If Ar(i) > Max Then Max = Ar(i) Next MsgBox "Maximum value is " & Max Code:
Private Function Max(ParamArray ar()) Dim z%, Mx% Mx = 0 For z = 0 To UBound(ar) If ar(z) > Mx Then Mx = ar(z) Next Max = Mx End Function Code:
Dim x1%, x2%, x3%, x4% x1 = 10: x2 = 5: x3 = 20: x4 = 15 MsgBox "Maximum value is " & Max(x1, x2, x3, x4) 
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)  
Thread Tools  Search this Thread 
Display Modes  


Similar Threads  
Thread  Thread Starter  Forum  Replies  Last Post 
What is the maximum Page size in x5  aakkaarr  CorelDRAW/Corel DESIGNER VBA  2  28122010 17:34 
Find/Replace Text in Multiple Open Documents  jfelder  Macros/Addons  6  20012009 13:20 
Is there a maximum file size for CorelDRAW?  jahmer  General  4  10072008 17:04 
Global Variables  ddonnahoe  CorelDRAW/Corel DESIGNER VBA  3  08082005 17:10 
Reset All Variables  ddonnahoe  Code Critique  0  06012005 08:16 