Ανανέωση ιστοσελίδας

[nisgia]

Ξεκινάω αυτό το θέμα με σκοπό να μαζέψουμε χρήσιμες, γενικής χρήσης συναρτήσεις της VBA
τις οποίες θα μπορούμε να εισάγουμε στα έργα μας.
Γιαυτό καλό θα ήταν να αποφεύγουμε αναφορές σε αντικείμενα συγκεκριμένων εφαρμογών.

Η πρώτη μου προσπάθεια, φιλοδοξεί να καλύψει την εκκρεμότητα που είχαμε αφήσει σε θέμα του EXCEL,
σχετικά με την δημιουργία προσφώνησης με χρήση της VBA.

Στο συνημμένο θα βρείτε μια λειτουργική μονάδα (modGreeting) την οποία μπορείτε να εισάγετε κατευθείαν στον VBE
ή να την ανοίξετε με έναν επεξεργαστή κειμένου τύπου Notpad ώστε απλώς να εξετάσετε τον κώδικα.

Εκεί θα βρείτε τρεις δημόσιες συναρτήσεις οι οποίες είναι:

1. Συνάρτηση Gender.

Επιστρέφει μια τιμή η οποία αντιστοιχεί στο γένος του ονόματος που της περνάμε ως παράμετρο.
Για διευκόλυνση, ο τύπος της επιστρεφόμενης τιμής είναι ο τύπος μιας προσαρμοσμένης απαρίθμησης με όνομα Sex.
(...με τόσα String θα μου πείτε, αναπόφευκτο ήταν ένα τέτοιο όνομα. )

Οι πιθανές τιμές είναι:
0 = Άγνωστο : sxUnKnown
1 = Αρσενικό : sxMale
2 = Θηλυκό : sxFemale

2. Συνάρτηση Greeting.

Αναλόγως το γένος του ονόματος που της περνάμε ως παράμετρο, μας επιστρέφει το "Κύριε", "Κυρία" και "Κύριε/Κυρία".

3. Συνάρτηση ToVocative.

Μας επιστρέφει το όνομα που της περνάμε ως παράμετρο, σε κλητική πτώση.

Αφού εισάγετε την λειτουργική μονάδα στο έργο σας, στη συνέχεια μπορείτε να δοκιμάσετε τις διαδικασίες της όπως στα παρακάτω παραδείγματα:

MsgBox Greeting("Νίκος")& " " & ToVocative("Ευαγγελάτος")
MsgBox Greeting("Χάρης")& " " & ToVocative("Κατσιμίχας")
MsgBox Greeting("Χάρις")& " " & ToVocative("Αλεξίου")

Tip: Αν περνάμε το όνομα και όχι το επώνυμο στη συνάρτηση Greeting έχουμε περισσότερες πιθανότητες να πιάσουμε το γένος.
Δοκιμάστε τες, σχολιάστε τες και πείτε μου αν μου ξεφεύγουν κάποιες περιπτώσεις.

Φιλικά,
Γιάννης

[Αγγελος]

Πολυ εξυπνο!!! Συγχαρητηρια...
Σου ξεφευγουν απο το Γενος , καποια ονοματα (οπως π.χ. Ελισαβετ..) αλλα σημασια εχει οτι δουλευει στις περισσοτερες των περιπτωσεων
Αγγελος

[Giorgos]

Δυνατο..!! και πολύ εξυπηρετικόοοοοοοοο

Γιώργος

[serviceman]

Καλημέρα σε όλους,

άλλαξα λίγο την συνάρτηση να βγάζει προσφώνηση ο,η ή ο/η, απλώς επειδή το όνομα είναι σε κεφαλαία δεν δουλευει η συνάρτηση, με μικρά ειναι εντάξει. Υπάρχει τρόπος να δουλεψει για κεφαλαία;

Με εκτίμηση

Σταύρος

[nisgia]

Φίλε Σταύρο, καλησπέρα!

Το όνομα πρέπει να περαστεί μικρά διότι οι συναρτήσεις ελέγχουν τον τονισμό του ονόματος.

Φυσικά θα μπορούσες να κάνεις χρήση της Lcase() για τα ορίσματα που τους περνάς
αλλά δεν θα παίρνεις τα σωστά αποτελέσματα.

Τα λέμε!
Γιάννης

[serviceman]

Ευχαριστώ πολύ θα κάνω κάποιες προσπάθειες.