QUOTE(NBAholic @ Feb 27 2008, 03:34 )
Mιας και είναι τόπικ των υπολογιστών, υποθέτω ότι μπορώ να κάνω την ερώτηση (μια απορία που είχα και σε άλλο τόπικ): Μπορούν σε αρχείο Excel να αντιστραφούν τα περιεχόμενα μιας λίστας; Δηλαδή τα πρώτα να έρθουν τελευταία και αντιστρόφως; Κάποιος τρόπος πρέπει να υπάρχει, μιλάμε για μια σχετικά στοιχειώδη λειτουργία.
Λεπον. Υποθετω πως εχεις τα 2007 οποτε βαση αυτου θα σου πω.
Πας στο tab "View". Τερμα δεξια λεει Macros. To επιλεγεις και μετα πατας "View macros". Εκει θα ειναι κενο λογικα, εκτος αν εχεις φτιαξει και σωσει δικια σου. Θα δημιουργησεις μια με ονομα "ReversI". Θα σου ζητησει να δωσεις τον τροπο που λειτουργει, δλδ ενα κωδικα. Εκει θα βαλεις αυτο οπως ακτιβως το βλεπεις:
Sub ReversI()
'David McRitchie 1998-07-30 documented in
'
http://www.mvps.org/dmcritchie/excel/join.htm 'Reverse (Flip) Item values in Range, Row, or Column [Ctrl+R]
'Counting in multiple rows/cols, item count proceeds down a
'column in range and continues top of next column in range
Dim tcells As Long, mCells As Long, ix As Long, ox As Long
Dim iValue As Variant
tcells = Selection.Count
mCells = tcells / 2
For ix = 1 To mCells
iValue = Selection.Item(ix).Value
ox = tcells + 1 - ix
Selection.Item(ix).Value = Selection.Item(ox).Value
Selection.Item(ox).Value = iValue
Next ix
End Sub
Πατας CTRL+S και το σωζεις οπου θες. Μετα το κλεινεις και ξαναγυρνας στο εξελ.
Επιλεγεις με το ποντικι ολα τα στοιχεια της στηλης και πατας παλι Macros, View Macros και πατας Run σε αυτη που μολις εφτιαξες, την ReverI. Αυτο ηταν.
Φαντα σου να ηξερα και απο εξελ δλδ...