[VBA] Υπολογισμός αθροίσματος

[ΔΗΜΗΤΡΙΟΣ]

Θα ήθελα αν είναι δυνατό στις υπόλοιπες στήλες B , C κτλ να εμφανίζονται τα αποτελέσματα όπως στην στήλη Α για τις τιμές του χ=2,3 ...100.
Ευχαριστώ πολύ !

[Spirosgr]

Καλησπέρα.
Αν κατάλαβα καλά,θέλουμε να υπολογίσουμε την απόλυτη τιμή |Χ-1|+|Χ-2|...|Χ-100|
όπου ο Χ θα παίρνει διαδοχικά τιμές 1,2,...100
και για κάθε μια από τις τιμές αυτές, θέλουμε το αποτέλεσμα σε στήλες
από την a=1 και δεξιά (a,b,c....) από το κελί a1,b1,c1... και κάτω.

Μπορείς να χρησιμοποιήσεις τον πιο κάτω κώδικα:

Sub ColumnFill_X()
    Dim x As Integer    'Ο x θα πάρει την τιμή της στήλης
    Dim irow As Integer    'Το irow θα πάρει την τιμή της γραμμής
    Dim iResult As Double    ' Είναι το αποτέλεσμα

    Application.ScreenUpdating = False

    For x = 1 To 100
        For irow = 1 To 100
            iResult = 0
            iResult = x - irow
            Sh1.Cells(irow, x).NumberFormat = "General"
            Sh1.Cells(irow, x).Value = Abs(iResult)
        Next irow
        Sh1.Cells(irow, x).FormulaR1C1 = "=SUM(R[-100]C:R[-1]C)"
    Next x
End Sub

Η γραμμή:
Sh1.Cells(irow, x).FormulaR1C1 = "=SUM(R[-100]C:R[-1]C)"
δίνει το άθροισμα στήλης και είναι προαιρετικό, αν θέλει να την εντάξει κανείς στην ρουτίνα.

[Spirosgr]

Στο βιβλίο, η λύση με τον κώδικα και μια λύση με τύπους =row() και =column()

[kapetang]

Καλησπέρα

Μια άλλη απλή πρόταση.

Έχω δημιουργήσει με τον παρακάτω κώδικα:

Public Function SUMAbs(x As Variant) As Long
    Dim i As Long, sum As Long
    For i = 1 To 100
        sum = sum + Abs(x - i)
    Next
    SUMAbs = sum
End Function

μια συνάρτηση χρήστη, την SUMAbs(x) .

Η συνάρτηση παίρνει ως όρισμα μία τιμή x (πχ 10) και επιστρέφει το άθροισμα των απόλυτων τιμών:

|x-1| + |x-2| + ...+ |x-100|

Δημήτρη, δες το συνημμένο.

[kapetang]

Στο συνημμένο έχω προσθέσει και μια απλή λύση με τη συνάρτηση SUMPRODUCT.

Επίσης και ένα διάγραμμα που δείχνει πως μεταβάλλεται το άθροισμα με το x

[ΔΗΜΗΤΡΙΟΣ]

Πολύ καλό και γρήγορο Γιωργο
Να είσαι καλά.
Σε ευχαριστώ !

[kapetang]

Δημήτρη, εκτός από την πρόταση του Σπύρου, υπάρχει και μία από μένα (Γιώργος).

Ελπίζω να τη δεις .....

[Spirosgr]

1
Το φύλλο, είναι ένα κενό φύλλο, στο οποίο,
έχουμε απλά μετονομάσει το κωδικό του όνομα σε Sh1 (*βλέπε εικόνα).

Αν δεν θέλουμε να μετονομάσουμε (προσωπικά πάντα μετονομάζω) αλλάζουμε στον κώδικα,
όπου Sh1, το κωδικό όνομα του φύλλου, που θα εφαρμόζεται ο κώδικας.

Ακόμα, μπορούμε να αλλάξουμε σε ActiveSheet, αρκεί το φύλλο να είναι ενεργό.

2
Η συνάρτηση ABS(COLUMN()-ROW())
δίνει το =Abs() στην εκάστοτε στήλη - γραμμή που εφαρμόζεται.
Η = Column() αποδίδει την στήλη πχ ενός κελιού (παίρνει τιμή για τον Χ)
Η = Row() αποδίδει την γραμμή πχ ενός κελιού (παίρνει τιμή για το -1,-2...)

3
Στις λύσεις που παραθέτω, θεωρώ ότι ο χρήστης, θα ήθελε να δει και το ανάπτυγμα, εκτός από το άθροισμα...

[ΔΗΜΗΤΡΙΟΣ]

και πάλι ευχαριστώ !

[Spirosgr]

Να 'σαι καλά, καλή συνέχεια.