Μετάβαση στο περιεχόμενο

Recommended Posts

Δημοσιεύτηκε

Καλό αλλά δεν θέλω να αποφεύγω τα μηδενικά. (Μόνο κείμενο και κενά κελιά)

Ευχαριστώ πολύ πάντως.

  • 1 month later...
Δημοσιεύτηκε

Προς όλους του «καμένους» με την VBA:

Εδώ θα βρείτε μια εφαρμογή σε Excel με την οποία θα μπορείτε να δημιουργήσετε έναν πίνακα με όλες τις υπορουτίνες/συναρτήσεις που περιέχονται σε όλα τα βιβλία εργασίας ενός φακέλου. Το πλεονέκτημα της συγκεκριμένης εφαρμογής είναι ότι δουλεύει και με κλειδωμένα VBA projects, αρκεί φυσικά να γνωρίζετε τα passwords. Πιστεύω ότι βοηθάει λίγο στην οργάνωση των αρχείων.

 

Ελπίζω να χρησιμεύσει σε κάποιους από εσάς…

  • Upvote 1
Δημοσιεύτηκε

Βέβαια . Για ποιά έκδοση ενδιαφέρεσαι ;

 

Όταν λέμε εγχειρίδιο , επεκτεινόμαστε και σε πλήρη οδηγό αναφοράς ;

 

Για την έκδοση 2007 , έχω να προτείνω :

 

Εxcel 2007 - Καρολίδη Ξαρχάκου

Ελληνικό Excel 2007 - Visually

Excel 2007 Βήμα - Βήμα

 

Η Ελληνική βιβλιογραφία σε περιορίζει αρκετά , ωστόσο , στα βιβλία που προτείνω , υπάρχει πλούτος πληροφοριών .

  • Upvote 2
Δημοσιεύτηκε

Παρακαλώ .

 

Για την έκδοση 2003 που μετρά αρκετά χρόνια στην αγορά, ίσως και να δυσκολευτείς κάπως να βρείς εκτός και αν κάνεις παραγγελία με αντικαταβολή .

 

Όμως έτσι , δεν έχεις ξεφυλλίσει το βιβλίο ώστε να δεις αν σου αρέσει ο τρόπος που προσεγγίζει τα θέματα. Οι επιλογές για βιβλία που αφορούν στην έκδοση , είναι σχετικά περιορισμένες.

 

Κοίταξε εδώ και πάρε τηλ για διαθεσιμότητα και ημερομηνία παράδοσης.

Δημοσιεύτηκε (edited)

Να κανω ενα ερωτημα :

 

Εχω ενα πίνακα 8 γραμμων και 195 στηλων με τιμες F(t). o χρόνος "τρεχει" ανα στηλη. Θελω λοιπον να αναδιαταξω τα δεδομενα σε μια στηλη ετσι ωστε να ειναι σε χρονικη σειρα

 

Για να μην κανω 195 "μεταφορες" στηλων υπαρχει κατι πιο γρήγορο?

Μπορω να δωσω συναρτηση οπου ο δεικτης θα ειναι συναρτηση ?

Edited by cvlengnr
Δημοσιεύτηκε (edited)

cvlengnr, δες λίγο τον παρακάτω κώδικα. Τον έγραψα στα γρήγορα αλλά νομίζω ότι κάνει αυτό που θες....

 

>Option Explicit
Option Base 1
Sub TransposeData()

Dim i As Integer
Dim k As Integer
Dim arr(1560) As Double

Application.ScreenUpdating = False

Sheet1.Activate
'Θεωρώ ότι τα δεδομένα σου είναι στο 1ο φύλλο, στην περιοχή Α1:GM8

For i = 1 To 195
 For k = 1 To 8
	 arr((i - 1) * 8 + k) = Cells(k, i).Value
 Next k
Next i

'Τη νέα στήλη την περνάω στο 2ο φύλλο
Sheet2.Activate

Range("A1:A1560").Value = WorksheetFunction.Transpose(arr)

Application.ScreenUpdating = True

End Sub

Edited by Samdreamth
  • Upvote 1
Δημοσιεύτηκε

το ετρεξα αλλα βγαζει compile error "variable not defined" και επιλεγει τη γραμμη

Sub TransposeData()

 

 

τι φταιει ?

Δημιουργήστε ένα λογαριασμό ή συνδεθείτε προκειμένου να αφήσετε κάποιο σχόλιο

Πρέπει να είστε μέλος για να μπορέσετε να αφήσετε κάποιο σχόλιο

Δημιουργία λογαριασμού

Κάντε μια δωρεάν εγγραφή στην κοινότητά μας. Είναι εύκολο!

Εγγραφή νέου λογαριασμού

Σύνδεση

Εάν έχετε ήδη λογαριασμό; Συνδεθείτε εδώ.

Συνδεθείτε τώρα
×
×
  • Create New...

Σημαντικό

Χρησιμοποιούμε cookies για να βελτιώνουμε το περιεχόμενο του website μας. Μπορείτε να τροποποιήσετε τις ρυθμίσεις των cookie, ή να δώσετε τη συγκατάθεσή σας για την χρήση τους.