Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Excel > Excel - Ερωτήσεις / Απαντήσεις > [Συναρτήσεις] Αυτόματη ενημέρωση στηλών

Excel - Ερωτήσεις / Απαντήσεις Ότι έχει σχέση με συναρτήσεις, μορφοποίηση, εκτυπώσεις γραφήματα κτλ.

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 11-04-11, 10:37
Όνομα: Ζαχαρίας
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 02-09-2010
Μηνύματα: 40
Προεπιλογή Αυτόματη ενημέρωση στηλών

Καλημέρα σε όλους και συγχαρητήρια για την άψογη δουλειά.

Θα ήθελα μια βοήθεια στο εξής πρόβλημα:
Θα ήθελα στο αρχείο που επισυνάπτω να γίνεται αυτόματη ενημέρωση της στήλης stock ή sales αντίστοιχα.Δηλ όταν προσθέτω έναν αριθμό στο stock να αφαιρείται απο το sales.Δηλ,για το product1 αν το 50 γίνει 51 τότε το 38 να γίνει 37.Να ισχύει και το αντίστροφο,αν προσθέσω 5 στο sales να αφαιρεθούν 5 από το stock αυτό για κάθε στήλη stock και sales.

Σας ευχαριστώ εκ των προτέρων
Συνημμένα Αρχεία
Τύπος Αρχείου: xls stock.xls (28,0 KB, 63 εμφανίσεις)
Απάντηση με παράθεση
  #2  
Παλιά 11-04-11, 15:24
Το avatar του χρήστη gr8styl
Super Moderator
Όνομα: Θανάσης Στυλιανίδης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-10-2009
Περιοχή: Βρυξέλλες, Βέλγιο
Μηνύματα: 823
Προεπιλογή

Φίλε Ζαχαρία,
νομίζω πρέπει να ξανασκεφτείς το ερώτημά σου και την οργάνωση των δεδομένων σου.

Είναι όπως τα έσοδα, έξοδα και το υπόλοιπο=ταμείο
όταν αυξάνεις τα έξοδα (πχ Sales στο παράδειγμά σου) θέλεις να μειώνεται το ταμείο (δηλ Stock στο παράδειγμά σου) δηλαδή τα έσοδα δεν πρέπει να αλλάζουν.
όταν αυξάνεις το ταμείο θέλεις να μειώνονται τα έξοδα δηλαδή πάλι τα έσοδα σταθερά.

Σου λείπει λοιπόν ο όρος "έσοδα" (Initial).

Για πες μας τί γίνεται λοιπόν με αυτό το Initial νομίζω λείπει από το αρχείο σου.

Για να συμβαίνουν οι αυξομειώσεις που λές θα πρέπει αυτό το Initial να είναι σταθερό και ίσο με με stock+sales.
Δηλαδή Stock=Initial-Sales και Sales=Initial-Stock.


Στο συνημμένο stock_1.xls λοιπόν εγώ έβαλα σταθερές τιμές στις στήλες D, G, και J και με τις 6 παρακάτω γραμμές κώδικα νομίζω έγινε το ζητούμενο.
(Δεξί κλικ στο όνομα του φύλλου για να επεξεργαστείς τον κώδικα)

Ο κώδικας είναι:
Κώδικας:
Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Column
        Case 3, 6, 9 'columns C, F and I
            Cells(Target.Row, Target.Column + 2) = Cells(Target.Row, Target.Column + 1) - Target.Value
        Case 5, 8, 11 'columns E, H and K
            Cells(Target.Row, Target.Column - 2) = Cells(Target.Row, Target.Column - 1) - Target.Value
    End Select
End Sub
Δοκίμασε και πες μας.
Φιλικά
Θανάσης
Συνημμένα Αρχεία
Τύπος Αρχείου: xls stock_1.xls (34,5 KB, 90 εμφανίσεις)
Απάντηση με παράθεση
  #3  
Παλιά 11-04-11, 23:08
Όνομα: Ζαχαρίας
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 02-09-2010
Μηνύματα: 40
Προεπιλογή

Καλησπέρα Θανάση,
σε ευχαριστώ ιδιαίτερα τόσο για τη βοήθειά σου ,όσο και για τον κατατοπιστικότατο τρόπο επίλυσης του προβλήματος.Έχεις απόλυτο δίκιο και είσαι απόλυτα σωστός.Η αλήθεια είναι ότι το έγραψα "στο πόδι" και δεν έδωσα τις σωστές πληροφορίες αλλά για καλή μου τύχη το κατάλαβες.Ζητώ συγνώμη για αυτό.Πράγματι το όλο θέμα αφορά προιόντα,πωλήσεις και σύνολο στην αποθήκη(Initial).Stock+Sales=Initial ,το οποίο όμως καθημερινά θα αλλάζει.Οπότε κάθε φορά θα ενημερώνω τα σταθερά αθροίσματα με τα νέα και οι πράξεις γίνονται.
Το μόνο που θα ήθελα,αν έχεις την καλοσύνη και τη διάθεση να μου εξηγούσες περιληπτικά τον κώδικα,τι ακριβώς κάνει η κάθε συνάρτηση,γιατί πρόσφατα άρχισα να μπαίνω στον κόσμο της VBA και με τη βοήθειά σου θα επεκτείνω το αρχείο γιατί αυτό είναι ένα μικρό δείγμα.Στην πραγματικότητα το αρχείο είναι πολύ μεγαλύτερο αλλά ήθελα να καταλάβω τη λογική και να το επεκτείνω μόνος μου,ώστε να μάθω.
Σε ευχαριστώ πολύ και πάλι.

Με εκτίμηση,
Ζαχαρίας

Τελευταία επεξεργασία από το χρήστη Echo : 11-04-11 στις 23:20.
Απάντηση με παράθεση
  #4  
Παλιά 12-04-11, 01:51
Το avatar του χρήστη gr8styl
Super Moderator
Όνομα: Θανάσης Στυλιανίδης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-10-2009
Περιοχή: Βρυξέλλες, Βέλγιο
Μηνύματα: 823
Προεπιλογή

Φίλε Ζαχαρία, καλησπέρα/καλημέρα.
Στον κώδικα, κάθε φορά που αλλάζει κάτι στο φύλλο εκτελείτε ο κώδικας, και το Target είναι το κελί/περιοχή που άλλαξε.

Με την Case ανάλογα την στήλη που έγινε η αλλαγή χρησιμοποιώ τον κατάλληλο τύπο για να υπολογίσω τα διπλανά κελιά στην ίδια γραμμή

Αν πρόσεξες στις στήλες 3,6 και 9 έχω το Stock στις διπλανές τους 4,7 και 10 το Initial και στις διπλανές 5, 8 και 11 το Sales
άρα αν αλλάξει η 3 θα πρέπει να βάλω στην 5 την διαφορά της 3 από την 4. κοκ

Νομίζω όμως ότι το νέο συνημμένο stock_noVBA.xls που δεν περιέχει κώδικα VBA αλλά μόνο συναρτήσεις, Θα σε βοηθήσει καλύτερα, και θα μπορέσεις να το προσαρμόσεις ευκολότερα στις ανάγκες σου.

Δες το και αποφάσισε. Πες μας τι έκανες.

Τα λέμε.
Θανάσης
Συνημμένα Αρχεία
Τύπος Αρχείου: xls stock_noVBA.xls (102,5 KB, 134 εμφανίσεις)
Απάντηση με παράθεση
  #5  
Παλιά 12-04-11, 13:19
Όνομα: ΤΖΙΜΗΣ
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 11-02-2011
Περιοχή: Πύργος Ηλείας
Μηνύματα: 232
Προεπιλογή

Θανάση καλησπέρα θα ήθελα να μου πεις πως στο πρώτο συνημμένο αρχείο έκανες απόκρυψη στις στήλες D,J, G
Eυχαριστώ.
Απάντηση με παράθεση
  #6  
Παλιά 12-04-11, 16:33
Το avatar του χρήστη gr8styl
Super Moderator
Όνομα: Θανάσης Στυλιανίδης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-10-2009
Περιοχή: Βρυξέλλες, Βέλγιο
Μηνύματα: 823
Προεπιλογή

Παράθεση:
Αρχική Δημοσίευση από ΤΖΙΜΗΣ Εμφάνιση μηνυμάτων
Θανάση καλησπέρα θα ήθελα να μου πεις πως στο πρώτο συνημμένο αρχείο έκανες απόκρυψη στις στήλες D,J, G
Eυχαριστώ.
Φίλε Τζίμη,
Επιλέγω μια μια τις στήλες D, J και G
και μέσω του μενού Δεδομένα κάνω Ομαδοποίηση
Η κάθε ομάδα μπορεί να ανοίξει ή να κλείσει πατώντας το + ή - που εμφανίζεται.
Θανάσης
Απάντηση με παράθεση
  #7  
Παλιά 12-04-11, 23:00
Όνομα: ΤΖΙΜΗΣ
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 11-02-2011
Περιοχή: Πύργος Ηλείας
Μηνύματα: 232
Προεπιλογή

Θανάση ευχαριστώ πολύ.
Απάντηση με παράθεση
  #8  
Παλιά 12-04-11, 23:51
Όνομα: Ζαχαρίας
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 02-09-2010
Μηνύματα: 40
Προεπιλογή

Φίλε Θανάση καλησπέρα,
και οι 2 σου προτάσεις με εξυπηρετούν αρκετά και με βοηθούν συνάμα στο να εξασκηθώ.Σε ευχαριστώ πάρα πολύ για τις υποδείξεις και τα σχόλιά σου και στο 2ο παράδειγμα.Νομίζω ότι με αυτό έχεις μαντέψει ακριβώς αυτό που χρειάζομαι.Θα το μελετήσω,θα το επεκτείνω και θα έχεις νέα μου.
Σε ευχαριστώ ιδιαίτερα για την πολύτιμη βοήθειά σου,

Ζαχαρίας
Απάντηση με παράθεση
  #9  
Παλιά 25-05-11, 16:57
Όνομα: Ζαχαρίας
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 02-09-2010
Μηνύματα: 40
Προεπιλογή

Φίλε Θανάση καλησπέρα,
τελικά με το παράδειγμά σου,με χρήση VBA κάλυψα πλήρως τις ανάγκες που μου παρουσιάστηκαν οπότε δεν χρειάστηκα κάτι άλλο.

Σε ευχαριστώ πάρα πολύ για τη βοήθεια,

Ζαχαρίας
Απάντηση με παράθεση
  #10  
Παλιά 26-05-11, 23:48
Το avatar του χρήστη gr8styl
Super Moderator
Όνομα: Θανάσης Στυλιανίδης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-10-2009
Περιοχή: Βρυξέλλες, Βέλγιο
Μηνύματα: 823
Προεπιλογή

Φίλε Ζαχαρία με την σειρά μου ευχαριστώ για την ανταπόκριση και τα καλά σου λόγια.

Έτσι πρέπει να κάνουν όλοι για να ξέρουμε τελικά αν και πώς έγινε κάθε φορά το ζητούμενο.

Φιλικά
Θανάσης
Απάντηση με παράθεση
Απάντηση στο θέμα

Ετικέτες
stock, αποθήκη

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[ Πίνακες ] Ενημέρωση ορισμένων στηλών (βάρδιες) ενός πίνακα από άλλο (με ημερομηνίες από/έως) jim67 Access - Ερωτήσεις / Απαντήσεις 5 09-01-16 20:15
[Συναρτήσεις] επιλογη στηλων απο συνολο στηλων και αυτοματη αντιγραφη δεδομενων Quenya Excel - Ερωτήσεις / Απαντήσεις 1 03-09-15 14:32
[Γενικά] Αυτόματη ενημέρωση ΤΕΟΔΩΡΟΣ Excel - Ερωτήσεις / Απαντήσεις 3 25-11-13 07:00
[ Ερωτήματα ] Αυτόματη Ενημέρωση sportbillygr Access - Ερωτήσεις / Απαντήσεις 3 05-01-12 14:14
Αυτόματη ενημέρωση πεδίων mpampis81 Word - Ερωτήσεις / Απαντήσεις 12 13-11-10 17:37


Η ώρα είναι 17:17.