Χρησιμοποιώ το Excel 2013,
Εφαρμόζω 2 τρόπους το Large Formula VBA, αλλά δεν λειτουργεί, τι κάνω λάθος, δεν ξέρω
Sub Macro1 ()
'1η δήλωση Dim πίνακα ---> Δηλώνει μεταβλητές
Dim lRow As Long, lCol As Long
lRow = Εύρος ("D5").End(xlDown).Σειρά
lCol = Εύρος ("C5"). Τέλος (xlToRight). Στήλη
«Αριθμός στηλών σε αριθμό
Dim k As Long, m As Long
k = Εύρος("C5", Εύρος("C5").Τέλος(xlToRight)).Στήλες.Count
«Αριθμός σειρών στον αριθμό
m = Εύρος("D6", Εύρος("D6").Τέλος(xlDown)).Σειρά.Αριθμός
Dim MyRange As Range
Ορισμός MyRange = Range(Range("D5").Offset(1, k + 3), Range("D5").Offset(m, k + 3))
Εύρος ("D5"). Μετατόπιση (2, 1 + 3). Τύπος = "=ΜΕΓΑΛΟ (" & My Range & ",1)"
'Και
'=(ΜΕΓΑΛΟ($I$6:$I$12,1)-I7)/2
Εύρος("D5").Offset(2, 1 + 3).Τύπος = "=(LARGE(" & My Range & ",1)-" & Range("D5").Offset(1, k + 3) & ")/2"
Sub End
Βοηθήστε με ευγενικά και ευχαριστώ για την εκ των προτέρων
Εφαρμόζω 2 τρόπους το Large Formula VBA, αλλά δεν λειτουργεί, τι κάνω λάθος, δεν ξέρω
Sub Macro1 ()
'1η δήλωση Dim πίνακα ---> Δηλώνει μεταβλητές
Dim lRow As Long, lCol As Long
lRow = Εύρος ("D5").End(xlDown).Σειρά
lCol = Εύρος ("C5"). Τέλος (xlToRight). Στήλη
«Αριθμός στηλών σε αριθμό
Dim k As Long, m As Long
k = Εύρος("C5", Εύρος("C5").Τέλος(xlToRight)).Στήλες.Count
«Αριθμός σειρών στον αριθμό
m = Εύρος("D6", Εύρος("D6").Τέλος(xlDown)).Σειρά.Αριθμός
Dim MyRange As Range
Ορισμός MyRange = Range(Range("D5").Offset(1, k + 3), Range("D5").Offset(m, k + 3))
Εύρος ("D5"). Μετατόπιση (2, 1 + 3). Τύπος = "=ΜΕΓΑΛΟ (" & My Range & ",1)"
'Και
'=(ΜΕΓΑΛΟ($I$6:$I$12,1)-I7)/2
Εύρος("D5").Offset(2, 1 + 3).Τύπος = "=(LARGE(" & My Range & ",1)-" & Range("D5").Offset(1, k + 3) & ")/2"
Sub End
Βοηθήστε με ευγενικά και ευχαριστώ για την εκ των προτέρων