Forum

Forum (https://www.ms-office.gr/forum/)
-   Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)
-   -   [VBA] Επεξήγηση "εντολών" (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/3322-epeksigisi-entolon.html)

Βασίλης Καραχάλιος 28-09-14 18:16

Επεξήγηση "εντολών"
 
Καλησπέρα

Λόγω δουλειάς εψαξα λίγο καποια module,
Μηπως είναι ευκολο καποιος να μου εξηγήσει το παρακατω

LastRow = Cells(Rows.Count, "A").End(xlUp).Row

απ΄ ότι έχω καταλάβει πηγαίνει στην τελευταία γραμμή της στήλης Α
όμως τί σημαίνουν τα Cells(Rows.Count, "A").End(xlUp).Row


Επίσης κάτι άλλο που θα ήθελα να ρωτήσω είναι το εξής
σε καποια αρχεία excel καποιες στήλες που περιέχουν νούμερα τα κελιά έχουν την ιδιότητα text και έχουν στην πάνω αριστερή γωνία ένα πράσινο σημαδάκι. Πως μπορώ να τους δίνω ιδιότητα Number μέσα απο μάκρο ;
κάθε φόρα δεν είναι ο ίδιος αριθμός κελιών...


ευχαριστώ εκ των προταίρων

Spirosgr 28-09-14 20:03

Καλησπέρα

Για το πρώτο θέμα

Οι κινήσεις στην excel, μέσα σε ένα φύλλο, με τα βελάκια του πληκτρολογίου, είναι δύο:
Προς τα κάτω xlDown και
προς τα επάνω xlUp
Επειδή όταν κινούμαστε xlDown, υπάρχει πιθανότητα να «πέσουμε» σε κενό δεδομένων και να έχουμε σφάλμα, χρησιμοποιούμε σχεδόν πάντα το xlUp.
Αυτό σημαίνει ότι θα πάει πρώτα στον πάτο του φύλλου και μετά θα ανέβει και θα «τρακάρει»
στην πρώτη γραμμή που θα βρει με δεδομένα από κάτω προς τα επάνω.
Η έκφραση
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
σημαίνει (σε ελεύθερη μετάφραση)
Η τελευταία γραμμή (ορίζεται ως μεταβλητή) = Κελιά(Μέτρησε μου γραμμές, στην Α στήλη).Πως; προς τα επάνω.και δώσε μου την γραμμή που θα βρεις με δεδομένα
Αποδίδει αριθμό γραμμής και ορίζεται συνήθως ως Long
Για να έχουμε την πρώτη διαθέσιμη «κενή» γραμμή βάζουμε Row + 1

Για το δεύτερο θέμα

Περίπτωση α'
Επιλογή περιοχής με κελιά κειμένου
Μορφοποίηση σε Γενική και
Μέσα από την Excel στην κορδέλα >> Δεδομένα >> Κείμενο σε στήλες >> Σταθερού μήκους >> Τέλος

Περίπτωση β'
με κώδικα

Κώδικας:

Sub test()
    With Range("A1:A20")    'Αλλάξτε ανάλογα
        .NumberFormat = "General"
        .Value = .Value
    End With
End Sub


Βασίλης Καραχάλιος 29-09-14 12:10

Ευχαριστώ πολύ για την βοήθεια :)
Δεν είχα καμια αμφιβολία ότι θα με εξυπηρετούσε η κοινότητα άμεσα :)


Η ώρα είναι 19:49.

Ms-Office.gr - ©2000 - 2025, Jelsoft Enterprises Ltd.


Content Relevant URLs by vBSEO 3.3.2