Hi,
I have 3 declared variable
a=2
b=-7
c=9
d=0
In this i need a value to be considered for further calculations in the macro.
But when i do minimum -worksheet function.min()
not giving correct answer..
How to go about this..
Should i use if conditions or is there any function to find minimum positive of numbers.
1. "I have 3 declared variable"
a=2
b=-7
c=9
d=0
That's 4 variables.
2. What's your actual code?
3. What result does it give?
Regards
Special-K
Ensure you describe your problem clearly, I have little time available to solve these problems and do not appreciate numerous changes to them.
In this , i have done like this..
Please Login or Register to view this content.
But i dont want this application . wrksht fun..
I need some thing simpler and also , it works in my excel 2010 but for client it throws error 400
You haven't described what you're trying to do.
Do you want the minimum value entered?
If the array is initialised to 0s
then MIN(a()) would give 0 not the minimum data entered.
The code looks simple but I dont know if you can do min(a()) as am not an expert on it.
Hi,
The values of these variables are populated as above in the first post.. I put them in array after checking greater than zero and finding minimum..
I put them in array, to remove non zero values .. So then min function is used to check min..
IN this , i take care of less than 0 values and zero values to be ignored.. The array of that will be empty.. so it wont affect min function..
I want to know, whether to get minimum of values stored in a variable multiple.. it should be non negative and non zero. is there any function or any alternate checking..
And somewhere i read, worksheet function, slows the process and it is adviced to use..
Last edited by Special-K; 10-11-2019 at 05:28 AM.
Hi,Originally Posted by Special-K
Thanks this is simple logic... And I went from USA to UK in my code... Thanks ..
Hi, one doubt.. macro working in one version can cause errors in other version?
Hi ! Try this …
An array starter demonstration :
PHP Code:Sub Demo1()
Dim V, M&, C&
V = [{2,-7,9,0}]
M = Application.Max(V)
For C = LBound(V) To UBound(V)
If V(C) <= 0 Then V(C) = M
Next
Debug.Print Application.Min(V)
End Sub
The same via a function :
PHP Code:Function MinP(ParamArray V())
Dim W, X, C&
W = V
X = Application.Max(W)
For C = LBound(W) To UBound(W)
If W(C) <= 0 Then W(C) = X
Next
MinP = Application.Min(W)
End Function
Sub Demo2()
Dim A%, B%, C%, D%
A = 2: B = -7: C = 9: D = 0
Debug.Print MinP(A, B, C, D)
End Sub
Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !
Last edited by Marc L; 10-11-2019 at 06:43 AM. Reason: optimization …
Another way :
PHP Code:Sub Demo3()
Dim A%, B%, C%, D%, V, L&
A = 2: B = -7: C = 9: D = 0
V = VBA.Array(A, B, C, D)
For L = 0 To 3
If V(L) = 0 Then V(L) = -1
Next
V = Filter(V, "-", False)
If UBound(V) > -1 Then Debug.Print Evaluate("MIN({" & Join(V, ",") & "})")
End Sub
Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !
Hi all, can anybody see thread macro error 400.. and check my code , and see if there is any error..
I have explained in detail , there.. for me the code is working fine.. but in excel 365 it is not so.. itseems.. and error 400 is showing up itseems..
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks