Ανανέωση ιστοσελίδας

[George R]

Γεια σε όλους παιδιά

Έχω σε ένα φύλλο στο Excel, στην περιοχή C5:D6, κάποια νούμερα και στο κελί F5 υπολογίζω την ορίζουσα αυτής της περιοχής, με την συνάρτηση MDETERM(C5:D6). Τώρα, στο κέλι H5, υπολογίζω πάλι τα ίδια, αλλά αυτήν την φορά, βάζοντας μεσά στον τύπο την συνάρτηση OFFSET(), με την μορφή, MDETERM(OFFSET(A1;4;2):OFFSET(A1;5;3)).

Πως γράφεται αυτή η συνάρτηση (MDETERM(OFFSET(A1;4;2):OFFSET(A1;5;3))) σε κώδικα VBA;

Όσο και να προσπάθησα, κάνοντας παραλλαγές, δεν κατάφερα να το κάνω να δουλέψει σε κώδικα.

Υ. Γ.

Ουσιαστικά αυτό που θέλω να πετύχω, είναι να δημουργώ μέσα σε κώδικα, μεταβλητά Range, με αναφορά κάποιο κελί και μετά να βάζω την OFFSET() για να έχω μεταβλητό, πάνω και κάτω όριο.


Ευχαριστώ.

[Tasos]

Γεια σου Γιώργο!

Το αποτέλεσμα μιας καταγραφής μακροεντολής μας βοηθά στη προκειμένη περίπτωση:

Sub Test1()
    ActiveCell.FormulaR1C1 = "=MDETERM(OFFSET(R[-4]C[-7],4,2):OFFSET(R[-4]C[-7],5,3))"
End Sub

• Κάνεις κλικ στην καταγραφή μακροεντολής
• Επιλέγεις το κελί με τον τύπο
• Βάζεις τον κέρσορα στη γραμμή τύπων
• Πατάς ENTER και διακόπτεις την καταγραφή.
• Με ALT+F11 εισέρχεσαι στο περιβάλλον VBE για να δεις τον τύπο που κατέγραψες.

Σύμφωνα με τη βοήθεια της Microsoft η συνάρτηση MDETERM επιστρέφει την τιμή σφάλματος #ΤΙΜΗ! όταν:

• Κάποια κελιά στον πίνακα είναι κενά ή περιέχουν κείμενο.
• Το όρισμα πίνακας δεν περιέχει ίσο αριθμό γραμμών και στηλών

Καλή συνέχεια!

Με εκτίμηση

Τάσος

[George R]

Ευχαριστώ πολύ Τάσο

μόλις πριν απο λίγο το είχα βρει και εγώ.
Το λάθος ήταν ότι χρησιμοποιούσα το ; αντί το , μεταξύ των παραμέτρων. Είμαι αρχάριος ακόμη.

Να σε ρωτήσω και κάτι άλλο. Μπορούμε να βάζουμε γενικά, μέσα στον τύπο της φόρμουλας και μεταβλητές; Για παράδειγμα έχω βάλει όλην την προηγούμενη φόρμουλα μέσα σε ένα loop και στην θέση των γραμμών και στηλών της OFFSET έχω βάλει την μεταβλητή i του βρόγχου (for i=1 to 3) , με σκοπό να "παίζω" με γραμμές και στήλες, αλλά δεν με δουλεύει. Αν βάλω σταθερά νούμερα, δουλεύει.
Έχω κάνει κάπου λάθος, ή πρέπει όλοι οι παράμετροι να είναι σταθεροί αριθμοί;

Ευχαριστώ.

[Tasos]

Γιώργο μου νομίζω ότι ο τύπος μπορεί να απλοποιηθεί ως εξής:

=MDETERM(OFFSET(A1;4;2;2;2))

Στη VBA με μεταβλητές:

 ActiveCell.FormulaR1C1 = "=MDETERM(OFFSET(R[-" & var1 & "]C[-" & var2 & "],4,2,2,2))"

Ωστόσο μπορείς να χρησιμοποιήσεις τη συνάρτηση WorksheetFunction.MDeterm(Range)

Παράδειγμα:

    Range("h2").Value = WorksheetFunction.MDeterm(Range("a1:b2"))

Για να το αυτοματοποιήσεις τροποποίησε τα "i" ή και τις τιμές των RowIndex και ColumnIndex του παρακάτω παραδείγματος:

Sub test()
    Dim i As Integer
    Dim x As Integer
    For i = 0 To 6 Step 2
        Range("H2").Offset(x).Value = WorksheetFunction.MDeterm(Range( _
                        Cells(RowIndex:=2 + i, ColumnIndex:=1 + i), _
                        Cells(RowIndex:=3 + i, ColumnIndex:=2 + i)))
        x = x + 1
    Next

End Sub

Θα πρέπει να υπάρχουν δεδομένα στις αναφερόμενες περιοχές για να λειτουργήσει η συνάρτηση.

Τάσος

[George R]

Ευχαριστώ πολύ Τάσο

για την αναλυτική σου απάντηση και με παραδείγματα.

Θα τα μελετήσω και θα τα εφαρμόσω ανάλογως.

Ευχαριστώ.