Forum - VBA MsgBox Unicode για Excel ??

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [VBA] MsgBox Unicode για Excel ?? (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/708-msgbox-unicode-gia-excel.html)

MsgBox Unicode για Excel ??

Καλημέρα σε όλους!
Παρακολούθησα το θέμα στην ενότητα Access : http://www.ms-office.gr/forum/access...m-preview.html,
και βρήκα πολύ ενδιαφέρον το συνημμένο με τα message box με unicode χαρακτήρες.

Η ερώτηση μου είναι μπορώ να δημιουργήσω κάτι ανάλογο σε περιβάλλον Excel?

Αντιμετωπίζω μεγάλο πρόβλημα με τα ερωτηματικά όταν τα αρχεία μου ανοιχτούν σε υποκατάστημα
της εταιρίας που εργάζομαι στο εξωτερικό. Δεν διαβάζονται τα μηνύματα και εμφανίζουν ερωτηματικά ή ιερογλυφικά (á, â, ã, ä)!!

Ευχαριστώ για τον χρόνο σας.

Νίκος

Καλησπέρα Νίκο!
Δες το συνημμένο εδώ: http://www.ms-office.gr/forum/excel-...ssage-box.html

Μπορείς να αντιγράψεις το μοναδικό του φύλλο στο δικό σου βιβλίο με πατημα κουμπιού
και να περάσεις τον παρακάτω κώδικα σε μια λειτουργική μονάδα του βιβλίου σου:

Κώδικας:

Option Explicit
 

 Declare Function FindWindow Lib "user32" Alias "FindWindowA" _

                                    (ByVal lpClassName As String, _

                                     ByVal lpWindowName As String) As Long
 

 Declare Function UnicodeMsgBox _

                          Lib "user32" Alias "MessageBoxW" _

                              (Optional ByVal hWnd As Long, _

                               Optional ByVal Prompt As Long, _

                               Optional ByVal Title As String, _

                               Optional ByVal Buttons As Long) _

                               As Long

Public Const MB_TASKMODAL As Long = &H2000&
 

Function Msgbox_Gr(HW As Long, strPrompt As String, strTitle As String, lngFlags As Long) As Long

    If Trim(strTitle) = vbNullString Then strTitle = ThisWorkbook.Name

    Msgbox_Gr = UnicodeMsgBox(HW, _

                              StrPtr(strPrompt), _

                              StrConv(strTitle, vbUnicode), _

                              lngFlags)

End Function
 

'----------------------------------------------------------------------------------------------------

'For normal use in a procedure

'----------------------------------------------------------------------------------------------------

Sub Call_Msgbox_Gr_from_a_Procedure()

'Your code...........
 

'     Step 1 : From the work sheet, select the message you wish and klick the button "Copy code"

'     Step 2 : Paste the copied code here
 

'Your code...........
 

End Sub

'----------------------------------------------------------------------------------------------------

Ο κώδικας αυτός περιέχεται και στο συνημμένο στη λειτουργική μονάδα "ModuleToTransfer".

Ελπίζω να σ εξυπηρετεί.

Φιλικά

Τάσος

Καλημέρα σε όλη την παρέα!

Αγαπητέ Τάσο, μου λειτουργεί άψογα!

Μπορώ να σε κάθε αρχείο μου να αντιγράφω τη λειτουργική μονάδα και το φύλλο του συνημμένου σου και να και δημιουργώ Unicode MsgBox με τον πιο απλό τρόπο!

Να είσαι καλά!

Σ ευχαριστώ πολύ!

Με εκτίμηση

Νίκος