Εμφάνιση ενός μόνο μηνύματος
  #4  
Παλιά 01-08-13, 08:50
Το avatar του χρήστη Spirosgr
Spirosgr Ο χρήστης Spirosgr δεν είναι συνδεδεμένος
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 2.321
Προεπιλογή

Καλημέρα
Θα πάμε την λύση τμηματικά για αποφυγή λαθών

Μέχρι τώρα
Έγιναν ονομασίες (βλέπε Name Manager)
Στο Α4 μπαίνει =IF(F4<>"";ROW()-3;"") και τραβάμε κάτω
Οι τοίχοι αριθμούνται αυτόματα όταν θα μπει το πλάτος τους
Ο νέος τοίχος που προκύπτει από την διαίρεση του παλιού θα ονομαστεί 9 και οι υπόλοιποι θα είναι +1
Α4 έως Α28 Conditional Formatting και αυξάνεται η περιοχή όσο και αν προστίθενται ανάμεσα τοίχοι
Στα κελιά G1, H1 επιλογές νέου τοίχου G1, αριθμός H1 μέτρα
Εδώ αν επιλέξουμε εκ παραδρομής μέτρα περισσότερα από το μήκος του υπάρχοντος τοίχου
υπάρχει έλεγχος που μας προειδοποιεί να το αλλάξουμε
Έγιναν με VBA
1. Θέλουμε να σπάσουμε τον τοίχο 8 στα 2, δίνοντας το μήκος του διαιρεμένου νέου 8 μετρούμενο από την αφετηρία αριστερά πχ. 2,40m
2. Μετακινούμε τις γραμμές 9+ μια σειρά κάτω
3. Αλλάζει το μήκος σε 2,4 όπως ορίσαμε
4. Το υπόλοιπο μήκος είναι 3,10
5. Η συνέχεια του τοίχου είναι βέβαιη αφού προκύπτει από διαίρεση αρα παει σίγουρα 1
6. Εδώ μπαίνει η τιμή του αρχικού τοίχου 8 αρα τίποτα

Οι μετρήσεις σε κελιά και στήλες στον κώδικα έγιναν με βάση τον αριστερό πίνακα
Ο δεξιά δεν λήφθηκε υπ' όψιν καθόλου (πιστεύω ότι τον έβαλες για το παράδειγμα σωστά?)

Με βάση τις αναλυτικές οδηγίες μέσα στον κώδικα
Και με μπούσουλα τις τελευταίες 4 σειρές του κώδικα
Μπορείς να ολοκληρώσεις τα 4 τελευταία στάδια υπολογισμών του κώδικα για το φύλλο ΤΟΙΧΟΙ ?
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm TheWall.xlsm (178,8 KB, 20 εμφανίσεις)
Απάντηση με παράθεση