Forum

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

Πάμε!
ms-office.gr > Forum > Microsoft Excel > Excel - Ερωτήσεις / Απαντήσεις > [VBA] Ελληνικά σε Λατινικά (μετατροπή)

Excel - Ερωτήσεις / Απαντήσεις Ότι έχει σχέση με συναρτήσεις, μορφοποίηση, εκτυπώσεις γραφήματα κτλ.

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #21  
Παλιά 08-10-17, 20:58
Όνομα: Δημήτρης
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 24-03-2012
Περιοχή: Θεσσαλονίκη
Μηνύματα: 70
Προεπιλογή

Σας ευχαριστώ και πάλι και τους δύο, επειδή χαράξατε τον δρόμο που πρέπει να ακολουθήσει κανείς ώστε με κώδικα να βγάλει ένα καλό αποτέλεσμα.
Να είστε πάντα καλά.

Φιλικά
Δημήτρης
Απάντηση με παράθεση
  #22  
Παλιά 08-10-17, 21:50
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.156
Προεπιλογή

Πράγματι έχει να κάνει με τον τονισμό.

Το χωρίς τόνο Ευαγγελος μετατρέπεται σωστά σε: Evangelos
Απάντηση με παράθεση
  #23  
Παλιά 08-10-17, 21:55
Το 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
Προεπιλογή

Γι αυτό άλλωστε,
οι κρατικές υπηρεσίες έχουν το «κακό» ελάττωμα,
να γράφουν πάντα με κεφαλαία...
Για να μην έχουν πολλά-πολλά...(*βλέπε Ταυτότητες, διαβατήρια)
Απάντηση με παράθεση
  #24  
Παλιά 09-10-17, 09:47
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.156
Προεπιλογή

Καλημέρα

Στο συνημμένο η μετατροπή των ελληνικών χαρακτήρων σε λατινικούς γίνεται με βάση το πρότυπο 743 2η έκδοση του ΕΛΟΤ.

Στο πρότυπο οι οδηγίες για τη μετατροπή των διφθόγγων (αυ, ευ και ηυ) είναι αναλυτικές και σωστές.

Το λάθος που παρουσιάζεται, κατά την μετατροπή του «Ευάγγελος» στην επίσημη ιστοσελίδα της Διεύθυνσης Διαβατηρίων, δεν οφείλεται στο πρότυπο, αλλά στη λανθασμένη υλοποίησή του από τον κατασκευαστή της σελίδας.

Στο πρότυπο επίσης υπάρχουν μετατροπές που εξαρτώνται από τον τονισμό.

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

Με άλλα λόγια τέτοιες αλλαγές θα πρέπει γίνουν πριν από τη γενική αλλαγή των χαρακτήρων.
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm FromGreeKToLatin3.xlsm (28,6 KB, 49 εμφανίσεις)
Απάντηση με παράθεση
  #25  
Παλιά 09-10-17, 12:10
Το 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
Προεπιλογή

Με την βοήθεια του πληροφοριακού .pdf (το οποίο δεν είχαμε από την αρχή)
θεωρώ, τον τελευταίο κώδικα του Γιώργου, αποτελεσματικό.

Αν είχαμε την πληροφορία από την αρχή, το ζητούμενο θα είχε κλείσει σε 2-3 posts το πολύ...

Η ιστοσελίδα έχει σφάλμα και στο «Παρασκευή»

Οι πιο κάτω αλλαγές στον αρχικό μου κώδικα (post #2 - παρ' όλο που βάδιζε στα τυφλά)
δίνουν ισοδύναμη μετάφραση μέχρι το σημείο που έχουμε ελέγχξει.
Αν κανείς θέλει για εκπαιδευτικούς λόγους, μπορεί να το μελετήσει και να το βελτιώσει.
Κώδικας:
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "Mp", "B") 'Μπ ακάλης
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "gg", "ng") 'Μου γγ ός
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "oy", "ou") 'Μ ου γγός
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "Oy", "Ou") 'Ου ρανός
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "Ey", "Ev") 'Ευ ανθία
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "ey", "ef") 'Ελ ευ θερία
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "ay", "av") 'Στ αυ ρούλα
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "fi", "vi") 'Παρασκ ευή
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "fa", "va") 'Παρασκ ευάς
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "evan", "efan") 'Στ εφάν ου
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "efo", "evo") 'Ψαρεύω
    
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "eks", "ex") 'Αλ εξ ίου
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "ix", "ich") 'Μ ιχ αήλ Μ ιχ άλης
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "gxks", "nchx") 'Ελέγχξει
    
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "Evt", "Eft")
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "Evs", "Efs")
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "Ayt", "Aft") 'Αυτ ό
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "Ayg", "Avg") 'Αυγ ό
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "Ayl", "Avl") 'Αυλ αία
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "Xr", "Chr") 'Χρ υσούλα
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "Xar", "Char") 'Χαραλάμπους
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "Ksan", "Xan") 'Ξαν θόπουλος
Σαφώς και δεν είναι όσο απλός πρέπει για τον χρήστη, αλλά δείχνει την μέθοδο
όπου μπορούμε να κάνουμε αλλαγές στο ήδη μεταφρασμένο λατινικό κείμενο,
χωρίς να λάβουμε υπ' όψιν θέση, τονισμό κλπ...των φθόγγων.
Απάντηση με παράθεση
  #26  
Παλιά 24-01-20, 12:45
Όνομα: Δημήτρης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 24-01-2020
Μηνύματα: 1
Προεπιλογή

Πολύ καλές λύσεις, παιδιά, ευχαριστώ πολύ.
Απάντηση με παράθεση
Απάντηση στο θέμα

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

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

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


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
Word 2007 ελληνικά --> τόνους; gfevran Word - Ερωτήσεις / Απαντήσεις 1 23-05-13 13:07
ECDL - OFFICE 2007 ΕΛΛΗΝΙΚΑ E-BOOKS skoutsouris Off topic - Εκτός θέματος 1 23-02-12 08:30
[ Εκθέσεις ] BARCODES Ελληνικά gnikol Access - Ερωτήσεις / Απαντήσεις 4 19-05-11 20:24
[ Ερωτήματα ] Access και Ελληνικά Πρόβλημα soessartite Access - Ερωτήσεις / Απαντήσεις 2 23-03-11 14:29
Αρχεία βοήθειας Ελληνικά για Access 2003 kwstarikanos Access - Ερωτήσεις / Απαντήσεις 1 24-09-10 21:28


Η ώρα είναι 16:50.