Uporabljam Excel 2013,
Uporabljam dvosmerno Large Formula VBA, vendar ne deluje, kaj se motim, ne vem
Podmakro1()
'1st Table Dim stavek ---> Oglaša spremenljivke
Dim lRow As Long, lCol As Long
lRow = Range("D5").End(xlDown).Row
lCol = Range("C5").End(xlToRight).Column
'Štetje stolpcev v številu
Dim k As Long, m As Long
k = Obseg("C5", Obseg("C5").Konec(xlToRight)).Columns.Count
'Štetje vrstic v številu
m = Range("D6", Range("D6").End(xlDown)).Rows.Count
Zatemni MyRange kot obseg
Nastavite MyRange = Range(Range("D5").Offset(1, k + 3), Range("D5").Offset(m, k + 3))
Obseg("D5").Odmik(2, 1 + 3).Formula = "=VELIK(" & MyRange & ",1)"
'In
'=(VELIKO($I$6:$I$12,1)-I7)/2
Obseg("D5").Odmik(2, 1 + 3).Formula = "=(VELIK(" & MyRange & ",1)-" & Obseg("D5").Odmik(1, k + 3) & ")/2"
End Sub
Lepo mi pomagajte in hvala za vnaprej
Uporabljam dvosmerno Large Formula VBA, vendar ne deluje, kaj se motim, ne vem
Podmakro1()
'1st Table Dim stavek ---> Oglaša spremenljivke
Dim lRow As Long, lCol As Long
lRow = Range("D5").End(xlDown).Row
lCol = Range("C5").End(xlToRight).Column
'Štetje stolpcev v številu
Dim k As Long, m As Long
k = Obseg("C5", Obseg("C5").Konec(xlToRight)).Columns.Count
'Štetje vrstic v številu
m = Range("D6", Range("D6").End(xlDown)).Rows.Count
Zatemni MyRange kot obseg
Nastavite MyRange = Range(Range("D5").Offset(1, k + 3), Range("D5").Offset(m, k + 3))
Obseg("D5").Odmik(2, 1 + 3).Formula = "=VELIK(" & MyRange & ",1)"
'In
'=(VELIKO($I$6:$I$12,1)-I7)/2
Obseg("D5").Odmik(2, 1 + 3).Formula = "=(VELIK(" & MyRange & ",1)-" & Obseg("D5").Odmik(1, k + 3) & ")/2"
End Sub
Lepo mi pomagajte in hvala za vnaprej