Excel VBA - application.index function

Question

Could anyone help me when and why I have to use the application.index in the VBA?

Function elso(bemenet)

Dim kimenet(), koztes() As Variant
Dim i, j, n, m, k As Long
Dim sarok As Double

elso = 1
n = bemenet.Rows.count
m = bemenet.Columns.count
ReDim kimenet(n + 1, m + 1)

For i = 1 To n
    For j = 1 To m
        kimenet(i, j) = bemenet(i, j)
    Next j
Next i

For i = 1 To n
    kimenet(i, m + 1) = Application.max(Application.Index(bemenet, i, 0))
Next i

For j = 1 To m
    kimenet(n + 1, j) = Application.Average(Application.Index(bemenet, 0, j))
Next j

For k = 1 To Application.max(n, m)
    sarok = sarok + (bemenet(k, k))
Next k

kimenet(n + 1, m + 1) = sarok
elso = kimenet

End Function

Function elso(bemenet) Dim kimenet(), koztes() As Variant Dim i, j, n, m, k As Long Dim sarok As Double elso = 1 n = bemenet.Rows.Count m = bemenet.Columns.Count ReDim kimenet(n + 1, m + 1) For i = 1 To n For j = 1 To m kimenet(i, j) = bemenet(i, j) Next j Next i For i = 1 To n kimenet(i, m + 1) = Application.Max(Application.Index(bemenet, i, 0)) Next i For j = 1 To m kimenet(n + 1, j) = Application.Average(Application.Index(bemenet, 0, j)) Next j — user6372907
– user6372907, Commented May 25, 2016 at 18:55
For k = 1 To Application.Max(n, m) sarok = sarok + (bemenet(k, k)) Next k kimenet(n + 1, m + 1) = sarok elso = kimenet End Function — user6372907
– user6372907, Commented May 25, 2016 at 18:55
Sorry, I'm new in here and I don't know how to show my VBA code in a 'normal' view. — user6372907
– user6372907, Commented May 25, 2016 at 18:56
Put the code in your question. Highlight it and then hit Ctrl + K — John Coleman
– John Coleman, Commented May 25, 2016 at 18:57
@EvelinDanás have a read of this page then please edit your question. — SierraOscar
– SierraOscar, Commented May 25, 2016 at 19:13

Freiling · Accepted Answer · 2019-06-28 18:52:36Z

3

It's a worksheet function for pulling values from a range. The following function identically:

Application.Index(Array, Row_Number, Column_Number)

Application.WorksheetFunction.Index(Array, Row_Number, Column_Number)

answered Jun 28, 2019 at 18:52

Freiling

315 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Karlomanio · Accepted Answer · 2016-05-25 19:15:50Z

0

It seems to be for getting specific values stored in memory from worksheets. Please see https://usefulgyaan.wordpress.com/2013/06/12/vba-trick-of-the-week-slicing-an-array-without-loop-application-index/

answered May 25, 2016 at 19:15

Karlomanio

3714 silver badges15 bronze badges

Collectives™ on Stack Overflow

Excel VBA - application.index function

2 Answers 2

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related