Comments on: Entering Long Array Formulas in VBA

By: Array Formulas in Excel – Using VBA « One Stop Analytics

Array Formulas in Excel – Using VBA « One Stop Analytics — Mon, 06 Feb 2012 10:06:16 +0000

[...] 2. This is probably a very well thought out solution and easier in terms of operational complexity but requires more work in terms of code. It’s best read directly at Dick Kusleika’s blog – http://www.dailydoseofexcel.com/archives/2005/01/10/entering-long-array-formulas-in-vba/. [...]

By: Toutes versions Formule matricielle longue et VBA

Toutes versions Formule matricielle longue et VBA — Thu, 15 Dec 2011 09:21:51 +0000

[...] [...]

By: Andrew Kalemkarian

Andrew Kalemkarian — Tue, 06 Sep 2011 22:24:00 +0000

For fun, I wrote function to easily use the alternative Named Formula method to insert a long array formula. It's convenient (i.e. no need to break apart the formula), but at the end of the day I don't like this method because the formula does never appears in the formula bar, only the name.

Public Sub LongArrayFormula(objRng As Range, strFormula As String)
Dim strName As String

'Create a "unique" name
strName = "LongFormula" & (10 * Rnd + 1) * Format(Now(), "yyyymmddHhNnSs")

objRng.Worksheet.Names.Add strName, strFormula 'assumes formula already begins with =
objRng.FormulaArray = "=" & strName
End Sub

By: Walter

Walter — Mon, 22 Aug 2011 22:58:00 +0000

Thanks you Dick for your help, I just saw the error.

By: Dick Kusleika

Dick Kusleika — Mon, 22 Aug 2011 22:12:00 +0000

Walter: If I try to do it manually (after converting to A1 style reference) it errors because there are mismatched parentheses. I think that may be the problem, but I’m not sure. Can you record the formula manually and paste it here? Use code tags so you don’t lose the greater-than signs.

By: Walter

Walter — Sat, 20 Aug 2011 23:44:00 +0000

Hi everybody,

I am trying to use the same solution that Dave gave but it is not working for me. The Replace does not do anything. This is the code:

Public Sub LongArrayFormula()

Dim theFormulaPart1 As String
Dim theFormulaPart2 As String

theFormulaPart1 = "=SUM(IF(FREQUENCY(IF((R4C1:R2000C1"""")*(R4C2:R2000C2=R10C2)*(R4C4:R2000C4=R7C2)*" & "X_X_X()" & ",MATCH(R4C1:R2000C1,R4C1:R2000C1,0)),ROW(INDIRECT(""1:""&ROWS(R4C1:R2000C1))))>0,1,0))"
theFormulaPart2 = "(IF(R3C4="""",1,R4C6:R2000C6=R3C4))*(IF(R3C6="""",1,R4C10:R2000C10=R3C6))*(IF(R3C9="""",1,R4C5:R2000C5=R3C9))*(IF(R3C12="""",1,R4C13:R2000C13=R3C12)),MATCH(R4C1:R2000C1,R4C1:R2000C1,0)),ROW(INDIRECT(""1:""&ROWS(R4C1:R2000C1))))>0,1,0))"

With ActiveSheet.Range("E2:E2")
.FormulaArray = theFormulaPart1
.Replace "X_X_X()", theFormulaPart2
End With

End Sub

I appreciate all your help to resolve this issue.

Thanks a lot in advance.

Walter.

By: Andrew Kalemkarian

Andrew Kalemkarian — Wed, 01 Dec 2010 00:43:00 +0000

I'm not entirely sure why, but in implementation I had to add LookAt:=xlPart to my Replace implementation.

This is not necessary to get the example to work! -- but, it fixed my specific implementation.

I made my Replace look like this:

.Replace "X_X_X())", theFormulaPart2, LookAt:=xlPart

By: BeRniTo

BeRniTo — Wed, 06 Oct 2010 13:39:00 +0000

Brian, how did you make the replacement happen? It isn't working for me.
Could you please post a simple example?

By: Brian

Brian — Tue, 24 Nov 2009 20:39:00 +0000

Ahh I think I see now, your algorithm stores the formula in the name permanently, whereas here I was thinking it was trying to writing it back to the cell.

By: Brian

Brian — Tue, 24 Nov 2009 20:32:00 +0000

Thanks for the feedback. Didn't find what that error all about, it goes right through the code with no error when I test it now. It writes the formula string in the Name "refers to" field, which seems correct.

The only hangup is when I write to the cell with the last statement, what I get is {=LongFormula} in the cell, instead of the formula itself.