Forum

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

Πάμε!
ms-office.gr > Forum > Microsoft Office > Visual Basic for Applications (VBA) > [Word - VBA] Mail merge | Πρόβλημα στην απεικόνιση του ελληνικού νομισματικού φορμάτ

Visual Basic for Applications (VBA) Ερωτήσεις / Απαντήσεις σε σχέση με τη χρήση της VBA.

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 22-05-21, 22:02
Όνομα: Αλέξης
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 26-06-2020
Μηνύματα: 1
Προεπιλογή Mail merge | Πρόβλημα στην απεικόνιση του ελληνικού νομισματικού φορμάτ

Καλησπέρα σας,

Αντιμετωπίζω πρόβλημα με το ελληνικό νομισματικό format.

Εν ολίγοις, ενώ η αλλαγή που δίνω στο πεδίο είναι η \# ##.###,€ ώστε να μου φέρει πχ 15.538,45€, το αποτέλεσμα που φέρνει είναι 15,538.45 €.

Κάθε βοήθεια θα ήταν πολύτιμη

Ευχαριστώ θερμά
Απάντηση με παράθεση
  #2  
Παλιά 24-05-21, 16:58
Το avatar του χρήστη mdragon
Όνομα: Μάρω
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 09-03-2010
Περιοχή: Αθήνα
Μηνύματα: 276
Προεπιλογή

Καλησπέρα,
για δοκίμασε αυτό


Sub FormatTextToNumber()
Dim rng As Range, c As Range

'αντικατάσταση ποσού ώστε να διορθωθεί το κελί
Set rng = ActiveCell
rng.Replace WHAT:=",", REPLACEMENT:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
rng.Replace WHAT:="1", REPLACEMENT:="1", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
rng.Replace WHAT:="2", REPLACEMENT:="2", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
rng.Replace WHAT:="3", REPLACEMENT:="3", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
rng.Replace WHAT:="4", REPLACEMENT:="4", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
rng.Replace WHAT:="5", REPLACEMENT:="5", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
rng.Replace WHAT:="6", REPLACEMENT:="6", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
rng.Replace WHAT:="7", REPLACEMENT:="7", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
rng.Replace WHAT:="8", REPLACEMENT:="8", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
rng.Replace WHAT:="9", REPLACEMENT:="9", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
rng.Replace WHAT:="0", REPLACEMENT:="0", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False


'μορφοποίηση ποσού
rng.NumberFormat = " #.##0,0_ ;[red]-#.##0,0 "

End Sub
__________________
Ευχαριστώ,
Μάρω
Απάντηση με παράθεση
Απάντηση στο θέμα

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

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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
Εκτύπωση μιας εγγραφής από φόρμα με mail merge dratsaki Access - Ερωτήσεις / Απαντήσεις 34 29-10-13 17:41
[Excel07] Merge κελιών και αναδίπλωση κειμένου αλλά σύνθετο πρόβλημα demou Excel - Ερωτήσεις / Απαντήσεις 12 26-09-12 15:15
Mail Merge - προετοιμασία συγχώνευσης αλληλογραφίας σε Word Ms-Office-Development Team Access samples - Χρήσιμα αρχεία & παραδείγματα 0 03-05-10 15:00
[Γενικά] Mail Merge - Συγχωνευση αλληλογραφίας σε Word Ms-Office-Development Team Excel samples - Χρήσιμα αρχεία & παραδείγματα 0 01-02-10 07:46
Mail Merge - Συγχωνευση αλληλογραφίας σε Word Ms-Office-Development Team Word samples - Χρήσιμα αρχεία & παραδείγματα 0 31-01-10 12:46


Η ώρα είναι 13:09.