OberonPlace.com Forums > VBA how to find maximum value of multiple variables
 Blogs Gallery FAQ Members List Social Groups Calendar Search Today's Posts Mark Forums Read

#1
22-06-2017, 02:33
 aakkaarr Senior Member Join Date: Jan 2009 Posts: 158
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
22-06-2017, 07:39
 shark Senior Member Join Date: Aug 2010 Location: Russia, Belgorod Posts: 146

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```
Second way - use function with ParamArray:

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```
Then the maximum value among the other variables can be calculated by calling one 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)

 Posting Rules You may not post new threads You may not post replies You may not post attachments You may not edit your posts BB code is On Smilies are On [IMG] code is On HTML code is Off Forum Rules
 Forum Jump User Control Panel Private Messages Subscriptions Who's Online Search Forums Forums Home OberonPlace Discussion     Site News     Web site suggestions     Image Gallery     Testing Oberon Products     CurveWorks     SecuriDesign     Calendar Wizard     Oberon Function Plotter     Jigsaw Puzzle Creator     Other Oberon Commercial Products     New product ideas Corel User Forums     CorelDRAW         General         Tutorials         FAQ         Feature requests/wishlist         Macros/Add-ons         Artwork Showcase     Corel DESIGNER         General         Tutorials         FAQ         Feature requests/wishlist         Macros/Add-ons         Artwork Showcase     Corel PHOTO-PAINT         General         Tutorials         FAQ         Feature requests/wishlist         Macros/Add-ons         Artwork Showcase     General         About Corel         Off-Topic Developer Forums     OberonPlace Development Portal     VBA         CorelDRAW/Corel DESIGNER VBA         Corel Photo-Paint VBA         Code Critique     Corel Script         CorelDRAW CS         Corel Photo-Paint CS

 Similar Threads Thread Thread Starter Forum Replies Last Post aakkaarr CorelDRAW/Corel DESIGNER VBA 2 28-12-2010 16:34 jfelder Macros/Add-ons 6 20-01-2009 12:20 jahmer General 4 10-07-2008 16:04 ddonnahoe CorelDRAW/Corel DESIGNER VBA 3 08-08-2005 16:10 ddonnahoe Code Critique 0 06-01-2005 07:16

All times are GMT -5. The time now is 17:44.

 OberonPlace.com - Archive - Top