03-12-10, 13:58
|
 | Super Moderator Όνομα: Γιάννης Έκδοση λογισμικού Office: Ms-Office 2007 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 12-10-2009 Περιοχή: Ηγουμενίτσα
Μηνύματα: 161
| |
Καλησπέρα σε όλους! Παράθεση:
Αρχική Δημοσίευση από οριατης  Φίλε Θανάση ευχαριστώ για το χρόνο που διέθεσες για μέενα.Λειτουργεί τέλεια,ευχαριστώ πολύ. | Αν δεν κόψεις 49,9 κιλά από τη σαρδέλα, θα τους σκοτώσω όλους!!! 
Μια πιο γρήγορη αλλά και πιο αξιόπιστη μέθοδο είναι και η παρακάτω: Κώδικας: Sub HideZeroes()
Dim lngFound As Long
On Error Resume Next
With Range("d1:d1000")
lngFound = Application.Match(0, .Cells, 0)
If lngFound Then
.EntireRow.Hidden = True
.ColumnDifferences(.Cells(lngFound)).EntireRow.Hidden = False
Cells(1).Activate
MsgBox .Count - .SpecialCells(xlCellTypeVisible).Count & _
" rows are hidden now."
End If
End With
End Sub
Με άλλα λόγια... Μηδένα προ του τέλους μακάριζε. 
Φιλικά,
Γιάννης
__________________ Αν δεν το ρωτούσες, δεν θα το μαθαίναμε ποτέ...! 
----------------------------------------------- Τελικά η γνώση, αντίθετα με ό,τι μέχρι σήμερα πίστευα, είναι η φυλακή της σκέψης.
Όταν η αφετηρία είναι η ελεύθερη σκέψη, δεν χρειάζεται πλέον να φτάσεις πουθενά! |