Folosesc Excel 2013,
Aplic 2 moduri Large Formula VBA, dar nu funcționează, ce greșesc, nu știu
Sub Macro1()
'Prima instrucțiune Table Dim ---> Declara variabile
Dim lRow As Long, lCol As Long
lRow = Range("D5").End(xlDown).Row
lCol = Range("C5").End(xlToRight).Column
„Număr de coloane în număr
Dim k As Long, m As Long
k = Interval ("C5", Interval ("C5"). End(xlToRight)).Columns.Count
„Număr de rânduri în număr
m = Range ("D6", Range ("D6"). End(xlDown)).Rows.Count
Dim MyRange As Range
Set MyRange = Range(Range("D5").Offset(1, k + 3), Range("D5").Offset(m, k + 3))
Interval("D5").Offset(2, 1 + 3).Formula = "=LARGE(" & MyRange & ",1)"
'Și
'=(MARE($I$6:$I$12,1)-I7)/2
Interval("D5").Offset(2, 1 + 3).Formula = "=(LARGE(" & MyRange & ",1)-" & Range ("D5").Offset(1, k + 3) & ")/2"
End Sub
Va rog frumos ajutati-ma si multumesc pentru avans