05-06-15, 06:30
|
| Όνομα: Μανώλης Έκδοση λογισμικού Office: Ms-Office 2013, Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 20-10-2009 Περιοχή: Ηλιούπολη
Μηνύματα: 280
| |
Αντικατασταση Γραμματων
Καλημέρα σε όλη την παρέα
Εχω φτιάξει την παρακάτω μακρο για να αντικαταστήσω ελληνικούς χαρακτήρες με αγγλικούς.
Sub ReplaceLetters i()
Columns("H:H").Select
Cells.Replace What:="Α", Replacement:="A"
Cells.Replace What:="Β", Replacement:="B"
Cells.Replace What:="Ε", Replacement:="E"
............................
End sub
Tο προβλημα μου είναι οτι ενω θέλω να γίνει η αλλαγή στη στήλη που επιλέγω , αυτο γίνεται σε όλες τις στήλες.
Τι έχω κάνει λάθος ?
Επίσης θα ήθελα αν γίνεται οτι αλλαγες γίνουν στα γράμματα να επισημανθούν πχ να γίνουν κόκκινα τα γράμματα που θα αλλαχθούν
Ευχαριστώ
ευχαριστώ
__________________ Μανώλης Γαβαλάς Σηκώστε το κεφάλι ψηλά ! ;)
Τελευταία επεξεργασία από το χρήστη manolis : 05-06-15 στις 08:33.
|