Samdreamth

Και μερικά πιο πρόσφατα 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 Ελπίζω να σας χρησιμεύσουν κάπου...

Η λύση είναι πολύ απλή: 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 Έτσι θα δουλέψει...

Αν και ο 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.

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

Συνάδελφε, Αν εννοείς, να φτιάξεις τα διαγράμματα χωρίς πολύ «θόρυβο», τότε αυτό γίνεται πολύ εύκολα με μια εντολή if. Απλά προκαθορίζεις το όριο και από εκεί και κάτω θεωρείς τις των u, u’ και u” = 0. Δες λίγο το τρίτο φύλλο (Removing Noise) στο επισυναπτόμενο αρχείο. Αυτό θες? YPODEIGMA 2.rar

Συνάδελφε, Δες λίγο το επισυναπτόμενο αρχείο. Κάνει αυτό που θες? Όπως θα δεις στο φύλλο χρησιμοποιώ array formulas, δηλαδή συναρτήσεις που εφαρμόζονται με συνδυασμό πλήκτρων CTRL + SHIFT + ENTER. Νομίζω ότι το πρόβλημά σου λύνεται χωρίς να γράψω κώδικα οπότε δες το και πες μου... YPODEIGMA.xls

Συνάδελφε, μάλλον κι εγώ δεν κατάλαβα τι ακριβώς θέλεις να κάνεις. Αυτό που έγραψα πριν είναι ένας προσεγγιστικός τρόπος να βρεις την 1η παράγωγο, χρησιμοποιώντας την διαφορά 2 τιμών (ΔV/Δt = dV/dt). Αν θέλεις να βρεις πχ την 3η μεγαλύτερη ή την 3η μικρότερη τιμή σε ένα πλήθος τιμών μπορείς να χρησιμοποιήσεις τις συναρτήσεις LARGE και SMALL αντίστοιχα. Γενικότερα θα βοηθούσε αν μπορούσες να ανεβάσεις ένα παράδειγμα - έστω και μη εικονικές τιμές - ώστε να δούμε καλύτερα το πρόβλημά σου και να σε βοηθήσουμε. Προσωπικά, δεν είμαι πολιτικός μηχανικός οπότε από σεισμούς κλπ δεν... Αν όμως προσδιοριστεί το πρόβλημά σου σε Excel κάτι μπορούμε να κάνουμε...

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

Για δες λίγο το φύλλο conditional formatting στο επισυναπτόμενο αρχείο, νομίζω ότι κάνει περίπου αυτό που θες. Σε κάθε περίπτωση, παίζοντας λίγο με τα (περίπλοκα) κριτήρια θα βρεις την λύση στο πρόβλημά σου. Η δυσκολία έγκειται στο πώς θα χτίσεις τα κριτήρια σου με συναρτήσεις, πχ θα δεις ότι εδώ χρησιμοποιώ πολλαπλά countifs μέσα σε μια or... Conditional Formatting.xlsx

Στα παρακάτω 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 Ελπίζω να σας χρησιμεύσουν κάπου...

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

Η διόγκωση του ελλείμματος φαίνεται ότι δεν αφήνει περιθώρια για απαλλαγή ή ελάφρυνση των νοικοκυριών από τη φορολογία. Στην έκτακτη εισφορά και τα οικιακά φωτοβολταϊκά. Τι προτείνει το ΥΠΕΚΑ Έκτακτη εισφορά και για τα φωτοβολταϊκά στις στέγες σχεδιάζει το ΥΠΕΚΑ. Όπως αναφέρει η "Καθημερινή", σε πρώτη φάση εξετάζεται εισφορά της τάξης του 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 είδηση

Σ' ευχαριστώ dkalam για την πληροφορία, αν και δεν θα χρειαστεί, τουλάχιστον τώρα. Το μαγαζί οπτικών που πήγα σήμερα μου είπε ότι το σύστημα του ΕΟΠΥΥ είναι συνδεδεμένο με το (παλιό του) ΤΣΜΕΔΕ οπότε φαίνεται ότι πχ είχα πάρει χρήματα για γυαλιά το 2011. Το μόνο θετικό είναι ότι δεν θα χάσω κάποια ώρα από τον χρόνο μου για γραφειοκρατεία που δεν θα είχε κανένα αποτέλεσμα!

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

Επιστρέφω στο θέμα μετά από πολύ καιρό... Πήγα σήμερα σε οφθαλμίατρο του ΕΟΠΥΥ έχοντας κλείσει ραντεβού πριν 2 μήνες. Μου είπε ότι από την στιγμή που μπήκαμε στον ΕΟΠΥΥ γυαλιά δικαιολογούν κάθε 4 χρόνια. Η ερωτήση που έχω, αν ξέρει κανείς φυσικά, είναι η εξής: Τα 4 χρόνια μετράνε από την προηγούμενη φορά που πήρες χρήματα πίσω ή από δω και στο εξής που γίναμε ΕΟΠΥΥ? Το ρωτάω γιατί είχα πάρει το 2011 από το ΤΣΜΕΔΕ και αναρωτιέμαι αν θα πρέπει να σπαταλήσω τον χρόνο μου να πάω δικαιολογητικά κλπ, ή στο τέλος θα μου ρίξουν άκυρο γιατί δεν κλέινω 4 χρόνια. Ξέρει κανείς καμιά παρόμοια περίπτωση? Ο οφθαλμίατρος δεν ήξερε να μου απαντήσει τι ισχύει και έτσι προκαταβολικα μου έδωσε τα απαραίτητα χαρτιά ώστε να τα πάω σε ελεγκτή του ΙΚΑ (?). Κατά τα άλλα, τα ραβασάκια ήρθαν και το 2 χιλιαρο έτσουξε... Την υγειά μας να έχουμε γιατί δεν μας βλέπω καλά...

Παρακάτω θα βρείτε μια μακροεντολή την οποία όταν την τρέχετε δημιουργέιται μια λίστα με όλες τις αναφορές σε άλλα βιβλία εργασίας. Η λίστα δημιουργείται σε ένα νέο φύλλο του βιβλίου εργασίας (με όνομα 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

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

Χωρίς να είμαι 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 ώστε να μπει ως πίνακας. Παρεμπιπτόντως, καλή χρονιά σε όλους!

Και μια εναλλακτική: Έτσι όπως έχεις τα δεδομένα, στην στήλη Ν (πχ στο κελί Ν2) μπορείς να γράψεις αυτό: =INDIRECT(ADDRESS(ROW(A2);COUNTA(B2:L2)+1))-INDIRECT(ADDRESS(ROW(A2);COUNTA(B2:L2))) Μετά, το σέρνεις προς τα κάτω...