06-08-18, 06:24
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 22-11-2011 Περιοχή: Αθήνα
Μηνύματα: 2.321
| |
Καλημέρα.
Αντικατέστησε την γραμμή: Κώδικας: Cells(i, 4).Value = Cells(i, 1).Value & Cells(i, 2).Value
με την γραμμή: Κώδικας: Cells(i, 4).Value = Trim(Left(Cells(i, 1).Value, 3)) & Cells(i, 2).Value
Προϋπόθεση, η στήλη Β, να περιέχει μόνο αριθμό και όχι κάποιο string τύπου αβ123.
Ο αριθμός 3 στην γραμμή του κώδικα,
ορίζει πόσα γράμματα θα πάρουμε από την στήλη Α και
μπορούμε να τον αλλάξουμε αν χρειάζεται...
|