desktop version 6:49 P.M. | ΀ΡΟΞ¬ΟΟΞ·, 9 ΞΟΟιλίοΟ
2025 |
![]() Μετατρέπει μια νομισματική τιμή έως το 999999999,99 ολογράφως σε ευρώ και λεπτά πχ. 2333.99 γίνεται Δύο χιλιάδες τριακόσια τριάντα τρία Ευρώ και ενενήντα εννέα λεπτά Ο κώδικας της συνάρτησης σε VBA (αρχείο .bas συμπιεσμένο σε .zip) είναι εδώ Μπορείτε επίσης να κατεβάσετε ένα αρχείο Excel με ενσωματωμένη την συνάρτηση αυτή και να το δοκιμάσετε από εδώ |
![]() |
|
![]() 'Υστερα από επιθυμία αναγνώστη της ιστοσελίδας, τροποποίησα την συνάρτηση μετατροπής ποσών ολογράφως σε ευρώ ώστε να
δέχεται αριθμητικές τιμές (ακέραιες μόνο ή και με δεκαδικά) και να τις μετατρέπει ολογράφως σε ένα φύλο του Excel (VBA).
Μετατρέπει μια αριθμητική τιμή έως το 999999999,99
ολογράφως σε ακέραιο και δεκαδικό μέρος
πχ.
2333.99 γίνεται Δύο χιλιάδες τριακόσια τριάντα τρία και ενενήντα εννέα εκατοστά.
Έφτιαξα ένα μικρό αρχείο excel υπόδειγμα στο οποίο χρησιμοποιείται η συνάρτηση σε ένα πίνακα βαθμολογίας μαθητών.
Μπορείτε να κατεβάσετε το αρχείο Excel με ενσωματωμένη την συνάρτηση αυτή και να το δοκιμάσετε από
εδώ |
![]() |
|
![]() Διεξάγει ηλεκτρονική κλήρωση μεταξύ των ονομάτων που υπάρχουν στο τρέχον φύλλο πχ. Επιλέγονται τυχαία ένας αριθμός από ονόματα από την κατάσταση. Μετά από την κάθε επιλογή ονόματος αυτό γίνεται bold, και μπορείτε να συνεχίσετε κληρώνοντας το επόμενο, μέχρι το συνολικό αριθμό των υποψηφίων. Ο κώδικας της συνάρτησης σε VBA (αρχείο .bas) είναι εδώ Μπορείτε επίσης να κατεβάσετε ένα αρχείο Excel με ενσωματωμένη την συνάρτηση αυτή και να το δοκιμάσετε από εδώ . Ευχαριστώ για το ενδιαφέρον όλων των φίλων της ιστοσελίδας, που με οδήγησαν με τις παρατηρήσεις τους στη διόρθωση και βελτίωση του κώδικα της εφαρμογής. |
![]() |
|
![]() 'Υστερα από επιθυμία αναγνώστη της ιστοσελίδας, τροποποίησα την συνάρτηση διεξαγωγής ηλεκτρονικής κλήρωσης ώστε να δέχεται και αριθμό συμμετοχών για κάθε υποψήφιο. Έτσι ένας με μεγαλύτερο αριθμό συμμετοχών έχει και μεγαλύτερη πιθανότητα να επιλεγεί. Ο κώδικας της συνάρτησης σε VBA (αρχείο .bas) είναι εδώ Μπορείτε επίσης να κατεβάσετε ένα αρχείο Excel με ενσωματωμένη την συνάρτηση αυτή και να το δοκιμάσετε από εδώ |
![]() |
|
![]() Συμπληρώνει το τρέχον κελί με την αντίστοιχη τιμή που θα βρεί από την αναζήτηση στην επόμενη στήλη για το ίδιο στοιχείο. Ο κώδικας της συνάρτησης σε VBA (αρχείο .bas) είναι εδώ Ένα παράδειγμα χρήσης της συνάρτησης είναι σε ένα φύλλο στο οποίο καταγράφονται οι αγορές του χρήστη. Το πεδίο του ΑΦΜ είναι σε αντιστοιχεία με την επωνυμία. Έτσι όταν εισάγει ο χρήστης μια επωνυμία , η συνάρτηση ψάχνει σε όλα το workbook και αν βρει την επωνυμία εισάγει αυτόματα το ΑΦΜ που αντιστοιχεί σε αυτήν. Η αναζήτηση πραγματοποιείται στην στήλη 'D' κάθε φύλλου του αρχείου. Μπορείτε επίσης να κατεβάσετε ένα αρχείο Excel με ενσωματωμένη την συνάρτηση αυτή και να το δοκιμάσετε από εδώ |
![]() |
|
![]() Μετά από αίτημα φίλου της ιστοσελίδας, έφτιαξα μια μικρή εφαρμογή που αθροίζει χρονικά διαστήματα από μια περιοχή και τα τοποθετεί συγκεντρωτικά σε μια άλλη. Όπου υπάρχουν καταχωρήσεις δύο ή περισσότερες φορές ενός ονόματος γίνεται άθροιση των χρονικών διαστημάτων. Τα διαστήματα εκφράζονται σε σύνολο ημερών καθώς και αναλυτικά σε έτη, μήνες ,μέρες. Μπορείτε να κατεβάσετε το αρχείο Excel (xlsm format) με ενσωματωμένo τον απαραίτητο κώδικα VBA και να το δοκιμάσετε από εδώ |
![]() |
|
![]() To outlook 2007 παρέχει μέσα από την λειτουργικότητα των φίλτρων την δυνατότητα αυτόματης κοινοποίησης όλων των εξερχόμενων μηνυμάτων σε μια επιθυμητή διεύθυνση. Αν όμως θέλετε αυτά να αποστέλονται με κρυφή κοινοποίηση αυτό δεν γίνεται με χρήση φίλτρων και θα πρέπει να καταφύγεται στην βοήθεια της VBA. Το script που υλοποιεί την λειτουργικότητα αυτή μπορείτε να το κατβάσετε από τον σύνδεσμο αυτό. |
![]() |
|