Evaluate vba matric

P

Peter T

change -
.Names.Add Name:="ArrTemp", RefersToR1C1:="={A,B,C,D,E,F,G,H,I,J}"

to -
.Names.Add Name:="ArrTemp", RefersToR1C1:=Array(A, B, C, D, E, F, G, H, I,
J)
or
dim vArr as variant
varr = Array(A, B, C, D, E, F, G, H, I, J)
.....refersto:=vArr

Regards,
Peter T
 
D

Dana DeLouis

Remember... TRUE in vba is Backwards. :>0

Sub Demo()
A = 1: B = 2: C = 3: d = 4: E = 5
F = 6: G = 7: H = 8: I = 9: J = 10

v = Array(A, B, C, d, E, F, G, H, I, J)
[A1] = [SumProduct(-(v>=1), -(v<=5))]
End Sub
 
P

PST

Hello

Why the second macro does not work, the first yes , it there t it a
resolution so that it takes into account letters. purpose it is to apply
a matrix to a picture without crire on the disc.

purpose it is to apply a matrix to an array without writing on the disc.

1)Work

Sub test_mat_array()
With ActiveWorkbook
.Names.Add Name:="ArrTemp", RefersToR1C1:="={1,2,3,4,5,6,7,8,9,10}"
.ActiveSheet.Cells(1, 1).Value =
Evaluate("=SUMPRODUCT(--(ArrTemp>=1),--(ArrTemp<=5))")
.Names("ArrTemp").Delete
End With
End Sub


2) does not work

With ActiveWorkbook

A = 1
B = 2
C = 3
d = 4
E = 5
F = 6
G = 7
H = 8
I = 9
j = 10

..Names.Add Name:="ArrTemp", RefersToR1C1:="={A,B,C,D,E,F,G,H,I,J}"
..ActiveSheet.Cells(1, 1).Value =
Evaluate("=SUMPRODUCT(--(ArrTemp>=1),--(ArrTemp<=6))")
..Names("ArrTemp").Delete
End With

thank you
 
P

PST

thank you


1) Gives me a message error *NOM?

Sub Demo()
A = 1: B = 2: C = 3: d = 4: E = 5
F = 6: G = 7: H = 8: I = 9: J = 10

v = Array(A, B, C, d, E, F, G, H, I, J)
[A1] = [SumProduct(-(v>=1), -(v<=5))]
End Sub


2) work but is very slow, is it normal

.Names.Add Name:="ArrTemp", RefersToR1C1:=Array(A, B, C, D, E, F, G, H, I,
J)


Dana DeLouis a écrit :
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top