
02-04-23, 07:46
|
| Όνομα: Νίκος Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 09-03-2023
Μηνύματα: 102
| |
Καλημέρα Χρήστο, μόλις δοκίμασα την πρότασή σου. Κατάφερες να έχει το βιβλίο το αποτέλεσμα που χρειάζομαι.
Τώρα θα ήθελα να σε ρωτήσω για μία τροποποίηση, εάν είναι εφικτή να υλοποιηθεί βέβαια, διότι προκύπτει ένας περιορισμός, θα πρέπει τα ΧΡΗΣΤΟΣ να μην αλλάξουν ποτέ σειρά.
Όμως ενδέχεται σε κάποιες περιπτώσεις τα ΧΡΗΣΤΟΣ στην στήλη C να μετακινηθούν και να πάνε μερικές σειρές πιο πάνω ή και πιο κάτω, πάντα όμως θα είναι όλα μαζί, οπότε βάσει ενδεχόμενης μετακίνησής τους θα μπορούσε να υπάρχει το ίδιο αποτέλεσμα με το ΤΡ όπως εισάγονται τώρα; *Στο παρακάτω κομμάτι κώδικα αντιλαμβάνομαι ότι αυτές είναι οι περιοχές που ορίζουν τις περιοχές που θα εισάγονται τα ΤΡ, ένα ή δύο. Σε περίπτωση που δεν μπορεί να αποφευχθεί ο περιορισμός που προανάφερα, θα μπορούσα να τροποποιήσω αναλόγως τις περιοχές στον κώδικα σε περίπτωση μετακίνησης των ΧΡΗΣΤΟΣ; Κώδικας: Case 9 To 14, 21 To 26, 33 To 38, 45 To 70
Range(Cells(R, C), Cells(R + 1, C)).Value = "ΤΡ"
Case 15 To 20, 27 To 32, 39 To 44
Cells(R, C).Value = "ΤΡ"
R = R + 1
Όπως κ να έχει σε υπέρ ευχαριστώ για τον χρόνο που διέθεσες ώστε να φτάσει το βιβλίο σε αυτό το αποτέλεσμα, να είσαι καλά.
|