Forum

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

Πάμε!

Visual Basic for Applications (VBA) Ερωτήσεις / Απαντήσεις σε σχέση με τη χρήση της VBA.

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 05-02-16, 16:27
Όνομα: Μανώλης
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 20-01-2016
Μηνύματα: 10
Προεπιλογή VBA SE EXCEL

Καλησπέρα θα ήθελα να μου πείτε πιον κώδικα χρησιμοποιώ για να μπεί η τιμή του txtbox1 στο κενο κελί της στήλης α. αν δηλαδη υπαρχουν δεδομένα μεχρι το α10 να το περναει στο α11.
ευχαριστώ
Απάντηση με παράθεση
  #2  
Παλιά 05-02-16, 21:13
Το avatar του χρήστη 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.402
Προεπιλογή

Η γραμμή κώδικα:

EmptyCell = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row+1

Επιστρέφει τον αριθμό, της γραμμής, μιας στήλης (πχ Α = 1, Β = 2, ...)
που βρίσκει το πρώτο κενό, από κάτω πρός τα επάνω.
Η μεταβλητή EmptyCell, να δηλωθεί σαν Long.
Όπου Sheet1, το κωδικό όνομα φύλλου.

οπότε η value στο κελί Sheet1.Cells(EmptyCell,1) = με την value me.txtbox1
εφ' όσον το TextBox ανήκει σε μια φόρμα για παράδειγμα.

Σημείωση:
Οι οδηγία, δεν περιλαμβάνει, πιθανά αριθμητικά σφάλματα ή μορφοποίηση κατά την εισαγωγή
που 99% είναι απαραίτητα, για έναν σωστό και λειτουργικό κώδικα.
Ο λόγος:
Δεν είναι γνωστό από την περιγραφή του ζητούμενου, το τί θα εισάγει το TextBox στο κελί.
Απάντηση με παράθεση
Απάντηση στο θέμα

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

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

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



Η ώρα είναι 10:06.