Θέμα: VBA Unicode Message Box

Εμφάνιση ενός μόνο μηνύματος
  #1  
Παλιά 22-08-10, 16:55
Ms-Office-Development Team Ο χρήστης Ms-Office-Development Team δεν είναι συνδεδεμένος
Υπηρεσία υποστήριξης
Όνομα: °°°°°°°°°°°°°°°°°°
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Αγγλική, Γερμανική, Γαλλική
 
Εγγραφή: 10-11-2009
Μηνύματα: 42
Προεπιλογή Unicode Message Box

Δημιουργός: Τάσος Φιλοξενίδης (έτος 2010)
Περιβάλλον: Excel 2000, 2002, 2003, 2007, 2010


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

Το παρακάτω συνημμένο προσφέρει μια λύση γι αυτό το πρόβλημα κάνοντας χρήση API
(χρησιμοποιεί συνάρτηση "MessageBoxW" από την βιβλιοθήκη των Windows "user32".

Μπορείτε να "χτίσετε" και να δοκιμάσετε τα Msgbox από την επιφάνεια εργασίας της Excel.
Μπορείτε επίσης να αντιγράψετε τον κώδικα VB που δημιουργείται αυτόματα όταν επιλέγετε μια γραμμή στο φύλλο εργασίας του συνημμένου.

Για να εφαρμόσετε τη λύση αυτή σε άλλες εφαρμογές, θα πρέπει να αντιγράψετε το μοναδικό φύλλο
στο επιθυμητό βιβλίο (γίνεται πάτημα ενός κουμπιού στο φύλλο) και επίσης να αντιγράψετε (χειροκίνητα) τη λειτουργική μονάδα "ModuleToTransfer".

Δείτε το και αξιολογήστε το!
Συνημμένα Αρχεία
Τύπος Αρχείου: xls xl_msgbox_unicode.xls (110,5 KB, 218 εμφανίσεις)
__________________
Μη διστάσετε να δημοσιεύσετε τα σχόλια σας σε σχέση με τα παραδείγματα στο φόρουμ!
Ms-Office-Development Team

Τελευταία επεξεργασία από το χρήστη Tasos : 19-09-10 στις 23:10.
Απάντηση με παράθεση