0
Может ли кто-нибудь помочь мне, когда и почему я должен использовать application.index в VBA?Excel VBA - application.index 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
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
Потому что вы делаете? Трудно помочь без дополнительной информации. Пожалуйста, покажите код и будьте более конкретным. Функция –
ELSO (bemenet) дим kimenet(), koztes() как вариант Dim I, J, N, M, K As Long Dim sarok As Double ELSO = 1 п = bemenet.Rows.Count т = bemenet.Columns.Count ReDim kimenet (п + 1, т + 1) Для я = 1 п При J = 1 до т kimenet (I, J) = bemenet (I, J) Следующий J Следующая я при г = 1 до п kimenet (I, M + 1) = Application.Max (Application.Index (bemenet, я, 0)) Далее я При J = 1 до т kimenet (п + 1, j) = Application.Average (Application.In dex (bemenet, 0, j)) Следующий j –
Для k = 1 К Application.Max (n, m) sarok = sarok + (bemenet (k, k)) Следующий k kimenet (n + 1, m + 1) = sarok elso = kimenet End Function –