Excel - Ερωτήσεις / Απαντήσεις Ότι έχει σχέση με συναρτήσεις, μορφοποίηση, εκτυπώσεις γραφήματα κτλ. |
| Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
#1
| |||
| |||
Αυτόματη αλλαγή στήλης ανα 10 γραμμές
Γεια σας και καλώς σας βρήκα σε αυτό το πολύ χρήσιμο φόρουμ. Θα ήθελα να ρωτήσω εάν είναι δυνατόν να δουλέψω πάνω σε συγκεκριμένα κελιά και μόνο σε αυτά. Δηλαδή τι εννοω; Αυτο που θέλω να κάνω είναι να εισάγω αλφαριθμητικά δεδομένα ξεκινώντας π.χ. απο το κελί Α1 και μόλις φτάνω στο κελί Α10 να πηγαίνει αυτόματα στο κελί Β1 και ούτω καθεξής δηλαδή ανα 10 γραμμές να αλλάζει στήλη αυτόματα. |
#2
|
Καλημέρα Μάνο, καλώς ήλθες στο ms-office.gr. Υπάρχουν διάφορα πράγματα, που μπορεί να κάνει κανείς, για να έχει ένα παρόμοιο ή ίδιο αποτέλεσμα με το ζητούμενο. Σημείωση: Στα παραδείγματα, όπου Sheet1 το κωδικό όνομα του φύλλου. 1. Στο ThisWorkbook (ΑυτόΤοΒιβλίοΕργασίας) συμβάν Open: Μπορούμε να αποκλείσουμε τον χρήστη, από το να δουλεύει σε γραμμές κάτω από την 10. Κώδικας: Private Sub Workbook_Open() Sheet1.ScrollArea = "a1:w10" End Sub ή 2. Στο Φύλλο που θέλουμε να συμβαίνει ο αυτοματισμός συμβάν SelectionChange: Όταν φτάνουμε στην 11 γραμμή, μας «πετάει» στην γραμμή 1, της επόμενης στήλης. Μπορούμε να δουλέψουμε κανονικά, από την γραμμή 12 και κάτω. Κώδικας: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Rows.Count > 1 Then Exit Sub If Target.Columns.Count > 1 Then Exit Sub If Target.Row = 11 Then Target.Offset(-10, 1).Select End Sub 3. Στο Φύλλο που θέλουμε να συμβαίνει ο αυτοματισμός συμβάν SelectionChange: Κώδικας: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Rows.Count > 1 Then Exit Sub If Target.Columns.Count > 1 Then Exit Sub Dim i As Long i = Target.Row - 1 If Target.Row > 10 Then Target.Offset(-i, 1).Select End Sub μας «πετάει» στην γραμμή 1, της επόμενης στήλης. Δεν μπορούμε να δουλέψουμε, από την γραμμή 10 και κάτω. Συμπληρωματικά: Μπορούμε ακόμα, να έχουμε συνδυασμό, του κώδικα 1 και 2. Στον 1 αλλάξτε το "a1:w10" σε "a1:w11" και έχουμε: Αποκλειστικά εργασία στις 10 πρώτες γραμμές και αυτόματη αλλαγή, σε επόμενη στήλη γραμμή 1. |
#3
| |||
| |||
Σε ευχαριστώ πολύ Σπύρο δουλεύει μια χαρα οταν πληκτρολογώ αλλα δεν δουλεύει στην επικόλληση δηλαδή αν κανω αντιγραφή απο μια στήλη με 200 γραμμες θα τα βάλει σε μια στήλη.Εγω θα ήθελα αν γίνεται να αλλάζει στήλη και στην επικόλληση. |
#4
|
Μάνο, το ζητούμενο δεν διευκρινίζει, θέμα επικόλλησης... Ok, θα το δούμε. |
#5
| |||
| |||
Έχεις δίκιο νόμιζα πως θα λειτουργήσει και στην επικόλληση αλλά έκανα λάθος!
|
#6
| |||
| |||
Καλησπέρα Μάνο, δες μια προσέγγιση στο συνημμένο. Φιλικά/Γιώργος |
#7
| |||
| |||
Ευχαριστώ Γιώργο θα το κοιταξω!! |
#8
| |||
| |||
Σπύρο και Γιώργο σας ευχαριστώ πολύ για τις απαντήσεις σας ήταν πολύ κατατοπιστικές . Γιώργο με αυτό που μου έστειλες δουλεύει και η επικόλληση τέλεια!!! Ευχαριστώ και πάλι!!!!! |
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
Εργαλεία Θεμάτων | |
Τρόποι εμφάνισης | |
| |
Παρόμοια Θέματα | ||||
Θέμα | Δημιουργός | Forum | Απαντήσεις | Τελευταίο Μήνυμα |
Αυτόματη ενημέρωση πεδίου και αλλαγή του | NIC | Access - Ερωτήσεις / Απαντήσεις | 6 | 18-09-13 09:16 |
[Γενικά] Αυτόματη εννημέρωση στήλης από άλλες | xristos | Excel - Ερωτήσεις / Απαντήσεις | 7 | 15-02-12 22:27 |
Μετατροπή στηλών σε γραμμές και γραμμές σε στήλες ενός πίνακα στο Word | skarman | Word - Ερωτήσεις / Απαντήσεις | 5 | 22-02-11 00:25 |
[VBA] Αυτόματη αλλαγή γλώσσας πληκτρολογίου στο Excel | Galileo | Excel - Ερωτήσεις / Απαντήσεις | 3 | 15-01-10 23:16 |
ΕΠΙΠΛΕΟΝ ΓΡΑΜΜΕΣ ΣΕ ΕΚΘΕΣΗ | Deminio | Access - Ερωτήσεις / Απαντήσεις | 3 | 08-10-09 07:03 |
Η ώρα είναι 23:03.