Samdreamth

Απρίλιος 5 , 2014

Και μερικά πιο πρόσφατα add-ins και VBA κώδικες:

1. Μέτρηση blocks (AutoCAD add-in) και εξαγωγή αποτελεσμάτων σε Excel:

http://www.myengineeringworld.net/2014/02/counting-blocks-in-autocad-vba-add-in.html

2. Σχεδιασμός κύκλων στο AutoCAD χρησιμοποιώντας δεδομένα από το Excel:

http://www.myengineeringworld.net/2014/03/drawing-circles-autocad-excel-vba.html

3. Προσθήκη κειμένου στο AutoCAD από το Excel:

http://www.myengineeringworld.net/2014/03/add-text-in-autocad-using-excel-vba.html

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

Μάρτιος 2 , 2014

Η λύση είναι πολύ απλή:

  If Abs(QI - Q) < 0.01 Then Exit For
    Else: ytrap = ytrap + 0.01
  End If

Πάνε το Exit For στην αμέσως από κάτω γραμμή:

    If Abs(QI - Q) < 0.01 Then
        Exit For
    Else
        ytrap = ytrap + 0.01
    End If

Έτσι θα δουλέψει...

Φεβρουάριος 10 , 2014

Έχω τρεις απορίες:

1. Πως μπορώ να κάνω διαγράμμιση γραμμών με χρώμα εναλλάξ. Π.χ. μία άσπρη μία γκρι κοκ;

2. Γίνεται με κάποιο τρόπο να υπολογίζει τι μέρα είναι και να το γράφει σε κελί, εάν εγώ του δώσω ημερομηνία και μήνα;

Πάνω σε αυτό, μπορεί να μου κάνει highlight την σημερινή ημερομηνία;

3. Θέλω να έχω μία αρχική καρτέλα και με κάποιο τρόπο να επιλέγω το όνομα κάποιας άλλης και να με πηγαίνει σε αυτή.

Εάν μπορεί κάποιος ας μου δείξει τουλάχιστον 'το δρόμο' για να το ψάξω καλύτερα.

edit

Και κάτι τελευταίο… όταν εισάγω ένα τύπο που αναφέρεται σε κενά κελιά, τα οποία θα συμπληρωθούν αργότερα,

γίνεται να μην μου βγάζει μηδενικά;

Αν και ο gvarth ήδη σου απάντησε στα περισσότερα:

1. Η εύκολη λύση είναι να κάνεις -> format as table (βρίσκεται στην home tab).

2. Είναι θέμα format του κελιού. Αν σε ένα κελί βάλεις την σημερινή ημερομηνία (10/2/2014) και επιλέξεις custom format, ορίσεις ηηηη (ή dddd) στο type, θα σου εμφανίσει στο κελί Δευτέρα.

3. Για αυτόματη δημιουργία "πίνακα περιεχομένου" σε ένα βιβλίο εργασίας μπορείς να εγκαταστήσεις το παρακάτω free add-in και με το πάτημα ενός κουμπιού θα δημιουργείται αυτόματα:

http://www.myengineeringworld.net/2013/12/Excel-VBA-workbook-index-add-in.html

4. Επιλέγεις το κελί -> δεξί κλικ, Format cells -> καρτέλα Number -> κατηγορία Number -> βάζεις Decimal places 0.

Φεβρουάριος 2 , 2014

Αν κατάλαβα καλά το πρόβλημα σου, θα πρότεινα:

Ή να επαναλάβεις την ίδια διαδικασία με τις νέες, smoothed τιμές, ή πιο απλά αντί για 15 μπορείς να πάρεις πχ μόνο τις 5 πρώτες τιμές που υπολόγισες αρχικά.

Όλα αυτά εξαρτώνται από την τιμή με την οποία κάνεις smooth, δηλ. την τιμή που βάζεις μέσα στο if (δες στο 3ο φύλλο του αρχείου που ανέβασα χθες).

Ιανουάριος 31 , 2014

Συνάδελφε,

Αν εννοείς, να φτιάξεις τα διαγράμματα χωρίς πολύ «θόρυβο», τότε αυτό γίνεται πολύ εύκολα με μια εντολή if.

Απλά προκαθορίζεις το όριο και από εκεί και κάτω θεωρείς τις των u, u’ και u” = 0.
Δες λίγο το τρίτο φύλλο (Removing Noise) στο επισυναπτόμενο αρχείο.

Αυτό θες?

YPODEIGMA 2.rar

Ιανουάριος 3 , 2014

Συνάδελφε,

Δες λίγο το επισυναπτόμενο αρχείο. Κάνει αυτό που θες?

Όπως θα δεις στο φύλλο χρησιμοποιώ array formulas, δηλαδή συναρτήσεις που εφαρμόζονται με συνδυασμό πλήκτρων CTRL + SHIFT + ENTER.

Νομίζω ότι το πρόβλημά σου λύνεται χωρίς να γράψω κώδικα οπότε δες το και πες μου...

YPODEIGMA.xls

Ιανουάριος 3 , 2014

Συνάδελφε, μάλλον κι εγώ δεν κατάλαβα τι ακριβώς θέλεις να κάνεις.

Αυτό που έγραψα πριν είναι ένας προσεγγιστικός τρόπος να βρεις την 1η παράγωγο, χρησιμοποιώντας την διαφορά 2 τιμών (ΔV/Δt = dV/dt).

Αν θέλεις να βρεις πχ την 3η μεγαλύτερη ή την 3η μικρότερη τιμή σε ένα πλήθος τιμών μπορείς να χρησιμοποιήσεις τις συναρτήσεις LARGE και SMALL αντίστοιχα.

Γενικότερα θα βοηθούσε αν μπορούσες να ανεβάσεις ένα παράδειγμα - έστω και μη εικονικές τιμές - ώστε να δούμε καλύτερα το πρόβλημά σου και να σε βοηθήσουμε.

Προσωπικά, δεν είμαι πολιτικός μηχανικός οπότε από σεισμούς κλπ δεν... Αν όμως προσδιοριστεί το πρόβλημά σου σε Excel κάτι μπορούμε να κάνουμε...

Δεκέμβριος 27 , 2013

Καλησπέρα και χρόνια πολλά. Έχω την καταγραφή ενός φάσματος από ένα σεισμό. Για μία συγκεκριμένη χρονική ιδιοπερίοδο, Τ=... sec. έχω τις αντίστοιχες μετατοπίσεις, ταχύτητες κλπ. Το δουλεύω στο excel. Υπάρχει κάποια συνάρτηση με if ή και κάποια άλλη που να με δίνει πέρα από το μέγιστο Sd=MAX((MAX(...);-MIN(...)) και άλλα μικρότερα μέγιστα (ακρότατα καμπυλών) ημικύκλων της ταλάντωσης ειδικότερα στα σημεία που μηδενίζεται η παράγωγος της ταχύτητας;

Bullt-in συνάρτηση δε νομίζω ότι υπάρχει. Για την 1η παράγωγο μπορείς να πάρεις το dv/dt ως διαφορά δύο συνεχόμενων τιμών δηλ. (V2 - V1)/(t2 - t1) και να δεις που τείνει στο 0.

Φυσικά μπορεί να μην βγαίνει 0 οπότε να ορίσεις εσύ ένα όριο (πχ όταν το dv/dt είναι 0,1, βρες τα μέγιστα αυτών των τιμών).

Δεκέμβριος 27 , 2013

Καλησπέρα και χρόνια πολλά,

στο επισυναπτόμενο excel θέλω μία εντολή η οποία να διαβάζει το εύρος τιμών και τη στήλη (στα δεξιά) και να χρωμματίζει το αντίστοιχο εύρος από τις δύο στήλες στα αριστερά (είτε πάνω στη τιμή είτε στα κελιά δεξιά των τιμών).

Το αποτέλεσμα που θέλω φαίνεται στο δεύτερο φύλλο.

Υπάρχει το πρόβλημα όταν συμπέφτουν 2 τιμές από τα εύρη ότι θα ήθελα να φάινεται κάπως.

Για δες λίγο το φύλλο conditional formatting στο επισυναπτόμενο αρχείο, νομίζω ότι κάνει περίπου αυτό που θες.

Σε κάθε περίπτωση, παίζοντας λίγο με τα (περίπλοκα) κριτήρια θα βρεις την λύση στο πρόβλημά σου.

Η δυσκολία έγκειται στο πώς θα χτίσεις τα κριτήρια σου με συναρτήσεις, πχ θα δεις ότι εδώ χρησιμοποιώ πολλαπλά countifs μέσα σε μια or...

Conditional Formatting.xlsx

Δεκέμβριος 11 , 2013

Στα παρακάτω links θα βρείτε μικρά προγραμματάκια, add-ins, καθώς και κώδικες VBA για AutoCAD & Excel:

Υπολογισμός μήκους γραμμών ανά layer & output σε Excel.

http://www.myengineeringworld.net/2012/03/autocad-calculate-total-length-of-lines.html
http://www.myengineeringworld.net/2012/06/autocad-total-length-of-lines-per-layer.html

Υπολογισμός του συνολικού μήκους των polylines και του εμβαδού αυτών.
http://www.myengineeringworld.net/2013/05/autocad-vba-add-in-polylines-length-area.html

Σχεδιασμός polyline και 3D polyline με συντεταγμένες από το Excel.
http://www.myengineeringworld.net/2013/04/draw-polyline-in-autocad-using-excel-vba.html
http://www.myengineeringworld.net/2013/11/draw-3d-polyline-pipe--autocad-excel-vba.html

Αντιγραφή περιοχής/πίνακα από το Excel στο AutoCAD.
http://www.myengineeringworld.net/p/excel-range-to-autocad-table-add-in.html

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

Απρίλιος 23 , 2013

Βασικά χωρίς να θέλω να φανώ σαν εκ των υστέρων προφήτης αυτό το μέτρο επιβεβαιώνει την αρχική μου εκτίμηση προ 5ετίας. Τα Φ/Β αποδείχτηκαν μια τεράστια φούσκα, σαν το χρηματιστήριο στα τέλη του 90. Είχα το κακό προαίσθημα από την πρώτη στιγμή και ηθελημένα προσπάθησα να απέχω από όλο αυτό το πανηγυράκι που είχε στηθεί τα τελευταία χρόνια.

Ελπίζω τουλάχιστον όσοι επενδύσανε να προλάβουν να κάνουν απόσβεση τα λεφτά τους γιατί από κέρδος μάλλον χλωμό το βλέπω…

Απρίλιος 23 , 2013

Η διόγκωση του ελλείμματος φαίνεται ότι δεν αφήνει περιθώρια για απαλλαγή ή ελάφρυνση των νοικοκυριών από τη φορολογία. Στην έκτακτη εισφορά και τα οικιακά φωτοβολταϊκά. Τι προτείνει το ΥΠΕΚΑ

Έκτακτη εισφορά και για τα φωτοβολταϊκά στις στέγες σχεδιάζει το ΥΠΕΚΑ.

Όπως αναφέρει η "Καθημερινή", σε πρώτη φάση εξετάζεται εισφορά της τάξης του 10 - 15% (με δυνατότητα εξαίρεσης για όσους διαθέτουν χαμηλό εισόδημα), ώστε να ενισχυθεί ο ΛΑΓΗΕ, που παρουσιάζει σοβαρά ελλείμματα, με 30 - 35 εκατ. ευρώ ετησίως

Ο συνολικός τζίρος από φωτοβολταϊκά στις στέγες ανέρχεται σε περίπου 300 εκατ. ευρώ ετησίως και δεν υπόκειται σε φορολογία.

Η υψηλή εγγυημένη τιμή σε συνδυασμό με το χαμηλό κόστος εγκατάστασης προσέλκυσε πλήθος οικιακών καταναλωτών, με αποτέλεσμα μέχρι το τέλος του 2012 η συνολική ισχύς των φωτοβολταϊκών στις στέγες να φτάσει τα 297,8 MW.

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

Σημειώνεται ότι ήδη δόθηκε σε δημόσια διαβούλευση το νομοσχέδιο για τις ΑΠΕ, το οποίο περιλαμβάνει σειρά μέτρων για το κλείσιμο της μαύρης τρύπας.

Οι νέες ρυθμίσεις προβλέπουν αύξηση της έκτακτης εισφοράς από το εύρος του 25% - 35% στο εύρος του 37% - 40% για φωτοβολταϊκούς σταθμούς, αλλά και πάγωμα της αγοράς φωτοβολταϊκών μέχρι το τέλος του 2013.

Πηγή: http://news247.gr/eidiseis/oikonomia/oikonomika/erxetai_tsoyxtero_xaratsi_gia_fwtovoltaika_se_steges.2223743.html

Click here to view the είδηση

Απρίλιος 18 , 2013

Σ' ευχαριστώ dkalam για την πληροφορία, αν και δεν θα χρειαστεί, τουλάχιστον τώρα.

Το μαγαζί οπτικών που πήγα σήμερα μου είπε ότι το σύστημα του ΕΟΠΥΥ είναι

συνδεδεμένο με το (παλιό του) ΤΣΜΕΔΕ οπότε φαίνεται ότι πχ είχα πάρει χρήματα για γυαλιά το 2011.

Το μόνο θετικό είναι ότι δεν θα χάσω κάποια ώρα από τον χρόνο μου για γραφειοκρατεία που δεν

θα είχε κανένα αποτέλεσμα!

Απρίλιος 16 , 2013

Σε συμβεβλημένο ιατρό, όχι ΙΚΑ.

Απρίλιος 15 , 2013

Επιστρέφω στο θέμα μετά από πολύ καιρό...

Πήγα σήμερα σε οφθαλμίατρο του ΕΟΠΥΥ έχοντας κλείσει ραντεβού πριν 2 μήνες.

Μου είπε ότι από την στιγμή που μπήκαμε στον ΕΟΠΥΥ γυαλιά δικαιολογούν κάθε 4 χρόνια.

Η ερωτήση που έχω, αν ξέρει κανείς φυσικά, είναι η εξής: Τα 4 χρόνια μετράνε από την προηγούμενη φορά

που πήρες χρήματα πίσω ή από δω και στο εξής που γίναμε ΕΟΠΥΥ? Το ρωτάω γιατί είχα πάρει το 2011 από το ΤΣΜΕΔΕ

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

θα μου ρίξουν άκυρο γιατί δεν κλέινω 4 χρόνια. Ξέρει κανείς καμιά παρόμοια περίπτωση?

Ο οφθαλμίατρος δεν ήξερε να μου απαντήσει τι ισχύει και έτσι προκαταβολικα μου έδωσε τα

απαραίτητα χαρτιά ώστε να τα πάω σε ελεγκτή του ΙΚΑ (?).

Κατά τα άλλα, τα ραβασάκια ήρθαν και το 2 χιλιαρο έτσουξε...

Την υγειά μας να έχουμε γιατί δεν μας βλέπω καλά...

Μάρτιος 9 , 2013

Παρακάτω θα βρείτε μια μακροεντολή την οποία όταν την τρέχετε δημιουργέιται μια λίστα με όλες τις αναφορές σε άλλα βιβλία εργασίας. Η λίστα δημιουργείται σε ένα νέο φύλλο του βιβλίου εργασίας (με όνομα Link List).

Ελπίζω να σας χρησιμεύσει...

>
Sub ListExternalFormulaReferences()

Dim ws As Worksheet, TargetWS As Worksheet, SourceWB As Workbook

If ActiveWorkbook Is Nothing Then Exit Sub

Application.ScreenUpdating = False

With ActiveWorkbook
 On Error Resume Next
 Set TargetWS = .Worksheets.Add(Before:=.Worksheets(1))
 If TargetWS Is Nothing Then ' the workbook is protected
	 Set SourceWB = ActiveWorkbook
	 Set TargetWS = Workbooks.Add.Worksheets(1)
	 SourceWB.Activate
	 Set SourceWB = Nothing
 End If
 With TargetWS
	 .Range("A1").Formula = "Sequence"
	 .Range("B1").Formula = "Cell"
	 .Range("C1").Formula = "Formula"
	 .Range("A1:C1").Font.Bold = True
 End With
 For Each ws In .Worksheets
	 If Not ws Is TargetWS Then
		 ListLinksInWS ws, TargetWS
	 End If
 Next ws
 Set ws = Nothing
End With
With TargetWS
 .Parent.Activate
 .Activate
 .Columns("A:C").AutoFit
 On Error Resume Next
 .Name = "Link List"
 On Error GoTo 0
End With
Set TargetWS = Nothing

Application.ScreenUpdating = True

End Sub

Sub ListLinksInWS(ws As Worksheet, TargetWS As Worksheet)

Dim cl As Range, cFormula As String, tRow As Long

If ws Is Nothing Then Exit Sub
If TargetWS Is Nothing Then Exit Sub
Application.StatusBar = "Finding external formula references in " & _
 ws.Name & "..."
For Each cl In ws.UsedRange
 cFormula = cl.Formula
 If Len(cFormula) > 0 Then
	 If Left$(cFormula, 1) = "=" Then
		 If InStr(cFormula, "[") > 1 Then
			 With TargetWS
				 tRow = .Range("A" & .Rows.Count).End(xlUp).Row + 1
				 .Range("A" & tRow).Formula = tRow - 1
				 .Range("B" & tRow).Formula = ws.Name & "!" & _
					 cl.Address(False, False, xlA1)
				 .Range("C" & tRow).Formula = "'" & cFormula
			 End With
		 End If
	 End If
 End If
Next cl
Set cl = Nothing

Application.StatusBar = False

End Sub

Ιανουάριος 24 , 2013

Από εδώ μπορείς να κατεβάσεις ένα excel-όφυλλο το οποίο υπολογίζει με 11 διαφορετικούς τρόπους τον συντελεστή τριβής.

Απ' ότι βλέπω φοιτητής είσαι οπότε θα σου είναι υπεραρκετό νομίζω.

Ιανουάριος 3 , 2013

Χωρίς να είμαι 100% σίγουρος ότι έχω καταλάβει αυτό που θες να κάνεις θα πρότεινα το εξής:

Α) Δημιουργείς ένα όνομα – πχ Data – χρησιμοποιώντας τον εξής τύπο:

=OFFSET(INDIRECT(ADDRESS(24+Sheet1!$A$8;1));0;0;Sheet1!$A$10)

Όπου Sheet1!$A$8 το κ και Sheet1!$A$10 το ν (τα αλλάζεις ανάλογα).

Β) Επιλέγεις ανάλογα v κελιά και πατάς =Data αλλά αντί για Enter πατάς CTRL + SHIFT + ENTER ώστε να μπει ως πίνακας.

Παρεμπιπτόντως, καλή χρονιά σε όλους!

Δεκέμβριος 7 , 2012

=IF(L2>0;L2-K2;IF(K2>0;K2-J2;IF(J2>0;J2-I2;IF(I2>0;I2-H2;IF(H2>0;H2-G2;IF(G2>0;G2-F2;IF(F2>0;F2-E2;IF(E2>0;E2-D2;IF(D2>0;D2-C2;IF(C2>0;C2-B2))))))))))

Και μια εναλλακτική: Έτσι όπως έχεις τα δεδομένα, στην στήλη Ν (πχ στο κελί Ν2) μπορείς να γράψεις αυτό:

=INDIRECT(ADDRESS(ROW(A2);COUNTA(B2:L2)+1))-INDIRECT(ADDRESS(ROW(A2);COUNTA(B2:L2)))

Μετά, το σέρνεις προς τα κάτω...

Δεκέμβριος 4 , 2012

Καλησπέρα .

Τα ζητούμενα :

Ουσιαστικά , για να εισαχθεί μια νέα γραμμή (που δεν θα είναι μία) θα πρέπει να υπάρχουν ισάριθμες κενές γραμμές στο φύλλο εργασίας .

Αν το πλήθος των γραμμών του αρχείου υπερβαίνει τις 1.048.576 , δεν πρόκειται να γίνει δουλειά στο Excel 2007 γιατί αυτό είναι και το όριο γραμμών που υποστηρίζει . Συζητάμε λοιπόν ότι η μακροεντολή ίσως να πρέπει να "τρέξει" στο Excel 2010 το οποίο πρακτικά δεν έχει όριο στο πλήθος των γραμμών .

Θα το δω αναλυτικότερα και αν έχω κάποιο θετικό αποτέλεσμα θα επανέλθω.

Γιώργο δεν ισχύει αυτό... Το Excel 2010 έχει τον ίδιο αριθμό γραμμών με το Excel 2007.

Δες και εδώ: http://office-watch....t/n.aspx?a=1408

Εσύ όμως ξέρω ότι χρησιμοποιείς το 2003....

Δεκέμβριος 4 , 2012

Λοιπόν, έγραψα λίγο κώδικα στα γρήγορα.

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

Αν θες, δες και το επισυναπτόμενο αρχείο.

Στις κίτρινες γραμμές υπάρχει ασυνέχεια. Αν πατήσεις το κουμπί run οι ασυνέχειες εξαφανίζονται...

>Sub TimeDiscontinuity()

Dim LastRow As Long
Dim i As Long
Dim insRows As Long
Dim j As Long

'Inserts missing time values, starting from the last row in column A.

Application.ScreenUpdating = False

With ActiveSheet
 LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With

For i = LastRow To 3 Step -1

 If Cells(i, 1).Value - Cells(i - 1, 1).Value > 6.94444446708076E-04 Then

 insRows = ((Cells(i, 1).Value - Cells(i - 1, 1).Value) / 6.94444446708076E-04) - 1
 '6.94444446708076E-04 = (1 / (24 * 60))

 ActiveSheet.Rows(i & ":" & i + insRows - 1).Insert

	 For j = i To i + insRows - 1
		 Cells(j, 1) = Cells(j - 1, 1) + 6.94444446708076E-04
	 Next j
	
 End If
Next i

MsgBox "The missing time values were inserted!", vbInformation, "Done"

Application.ScreenUpdating = True

End Sub

Time Discontinuity.zip

Νοέμβριος 15 , 2012

Τα ελληνικά φταίγανε....

Έχω αγγλική έκδοση ενώ εσύ ελληνική...

Δες το, τώρα θα πρέπει να δουλεύει

>Option Explicit
Option Base 1
Sub TransposeData()

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

Application.ScreenUpdating = False

Φύλλο1.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ο φύλλο
Φύλλο2.Activate

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

Application.ScreenUpdating = True

End Sub

Νοέμβριος 14 , 2012

Όταν σου βγάζει το error πατάς debug και σου επιλέγει αυτή την γραμμή?

Μήπως δεν πατάς debug?

Σε ρωτάω γιατί όπως βλέπεις όλες οι μεταβλητές δηλώνονται οπότε δεν πρέπει να βγάζει τέτοιο error.

Μάλλον κάτι άλλο θα είναι.

Παρεμπιπτόντως, στον παραπάνω κώδικα θεωρώ ότι τα δεδομένα σου είναι αριθμοί και όχι πχ κείμενο...

Νοέμβριος 14 , 2012

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

Νοέμβριος 7 , 2012

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

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

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

Σύνδεση

Profiles

Φόρουμ

Downloads

Gallery

Ειδήσεις

Media Demo

Store

Δημοσιεύσεις δημοσιεύτηκε από Samdreamth

Σημαντικό