24-01-11, 23:28
|
| Super Moderator Όνομα: Θανάσης Στυλιανίδης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2010 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 18-10-2009 Περιοχή: Βρυξέλλες, Βέλγιο
Μηνύματα: 758
| |
Παράθεση:
Αρχική Δημοσίευση από GEORGE1 ... μήπως είναι εύκολο όταν στην στήλη b υπάρχει η καταχώρηση: «Σύνολα Σελίδας», «Σε Μεταφορά», «Από Μεταφορά», «Γενικά Σύνολα» να μην γίνεται μορφοποίηση αλλά να παραμένουν λευκά τα κελιά ?... | Γιώργο,
στον κώδικα που σου έδωσα, βάζεις ακριβώς πριν από την End Select την παρακάτω If (7 γραμμές) για κενό γέμισμα "xlNone" και αυτόματο χρώμα γραμματοσειράς "0". Κώδικας: If Rng.Cells(1, 2) = "Σύνολα Σελίδας" Or _
Rng.Cells(1, 2) = "Σε Μεταφορά" Or _
Rng.Cells(1, 2) = "Από Μεταφορά" Or _
Rng.Cells(1, 2) = "Γενικά Σύνολα" Then
Rng.Interior.ColorIndex = xlNone
Rng.Font.ColorIndex = 0
End If
ΥΓ. Αν μας ανέβαζες ένα αρχείο όπως το βγάζει το πρόγραμμα εμπορικής διαχείρισης που λες, αν είναι txt ή csv ή xls υπάρχουν καλύτεροι τρόποι κάνοντας εισαγωγή δεδομένων αντί αντιγραφή επικόλληση.
|