Jump to content

Samdreamth

Core Members
  • Posts

    256
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by Samdreamth

  1. Και μερικά πιο πρόσφατα 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. Η λύση είναι πολύ απλή: 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 Έτσι θα δουλέψει...
  3. Αν και ο 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.
  4. Αν κατάλαβα καλά το πρόβλημα σου, θα πρότεινα: Ή να επαναλάβεις την ίδια διαδικασία με τις νέες, smoothed τιμές, ή πιο απλά αντί για 15 μπορείς να πάρεις πχ μόνο τις 5 πρώτες τιμές που υπολόγισες αρχικά. Όλα αυτά εξαρτώνται από την τιμή με την οποία κάνεις smooth, δηλ. την τιμή που βάζεις μέσα στο if (δες στο 3ο φύλλο του αρχείου που ανέβασα χθες).
  5. Συνάδελφε, Αν εννοείς, να φτιάξεις τα διαγράμματα χωρίς πολύ «θόρυβο», τότε αυτό γίνεται πολύ εύκολα με μια εντολή if. Απλά προκαθορίζεις το όριο και από εκεί και κάτω θεωρείς τις των u, u’ και u” = 0. Δες λίγο το τρίτο φύλλο (Removing Noise) στο επισυναπτόμενο αρχείο. Αυτό θες? YPODEIGMA 2.rar
  6. Συνάδελφε, Δες λίγο το επισυναπτόμενο αρχείο. Κάνει αυτό που θες? Όπως θα δεις στο φύλλο χρησιμοποιώ array formulas, δηλαδή συναρτήσεις που εφαρμόζονται με συνδυασμό πλήκτρων CTRL + SHIFT + ENTER. Νομίζω ότι το πρόβλημά σου λύνεται χωρίς να γράψω κώδικα οπότε δες το και πες μου... YPODEIGMA.xls
  7. Συνάδελφε, μάλλον κι εγώ δεν κατάλαβα τι ακριβώς θέλεις να κάνεις. Αυτό που έγραψα πριν είναι ένας προσεγγιστικός τρόπος να βρεις την 1η παράγωγο, χρησιμοποιώντας την διαφορά 2 τιμών (ΔV/Δt = dV/dt). Αν θέλεις να βρεις πχ την 3η μεγαλύτερη ή την 3η μικρότερη τιμή σε ένα πλήθος τιμών μπορείς να χρησιμοποιήσεις τις συναρτήσεις LARGE και SMALL αντίστοιχα. Γενικότερα θα βοηθούσε αν μπορούσες να ανεβάσεις ένα παράδειγμα - έστω και μη εικονικές τιμές - ώστε να δούμε καλύτερα το πρόβλημά σου και να σε βοηθήσουμε. Προσωπικά, δεν είμαι πολιτικός μηχανικός οπότε από σεισμούς κλπ δεν... Αν όμως προσδιοριστεί το πρόβλημά σου σε Excel κάτι μπορούμε να κάνουμε...
  8. Bullt-in συνάρτηση δε νομίζω ότι υπάρχει. Για την 1η παράγωγο μπορείς να πάρεις το dv/dt ως διαφορά δύο συνεχόμενων τιμών δηλ. (V2 - V1)/(t2 - t1) και να δεις που τείνει στο 0. Φυσικά μπορεί να μην βγαίνει 0 οπότε να ορίσεις εσύ ένα όριο (πχ όταν το dv/dt είναι 0,1, βρες τα μέγιστα αυτών των τιμών).
  9. Για δες λίγο το φύλλο conditional formatting στο επισυναπτόμενο αρχείο, νομίζω ότι κάνει περίπου αυτό που θες. Σε κάθε περίπτωση, παίζοντας λίγο με τα (περίπλοκα) κριτήρια θα βρεις την λύση στο πρόβλημά σου. Η δυσκολία έγκειται στο πώς θα χτίσεις τα κριτήρια σου με συναρτήσεις, πχ θα δεις ότι εδώ χρησιμοποιώ πολλαπλά countifs μέσα σε μια or... Conditional Formatting.xlsx
  10. Στα παρακάτω 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 Ελπίζω να σας χρησιμεύσουν κάπου...
  11. Βασικά χωρίς να θέλω να φανώ σαν εκ των υστέρων προφήτης αυτό το μέτρο επιβεβαιώνει την αρχική μου εκτίμηση προ 5ετίας. Τα Φ/Β αποδείχτηκαν μια τεράστια φούσκα, σαν το χρηματιστήριο στα τέλη του 90. Είχα το κακό προαίσθημα από την πρώτη στιγμή και ηθελημένα προσπάθησα να απέχω από όλο αυτό το πανηγυράκι που είχε στηθεί τα τελευταία χρόνια. Ελπίζω τουλάχιστον όσοι επενδύσανε να προλάβουν να κάνουν απόσβεση τα λεφτά τους γιατί από κέρδος μάλλον χλωμό το βλέπω…
  12. Η διόγκωση του ελλείμματος φαίνεται ότι δεν αφήνει περιθώρια για απαλλαγή ή ελάφρυνση των νοικοκυριών από τη φορολογία. Στην έκτακτη εισφορά και τα οικιακά φωτοβολταϊκά. Τι προτείνει το ΥΠΕΚΑ Έκτακτη εισφορά και για τα φωτοβολταϊκά στις στέγες σχεδιάζει το ΥΠΕΚΑ. Όπως αναφέρει η "Καθημερινή", σε πρώτη φάση εξετάζεται εισφορά της τάξης του 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 είδηση
  13. Η διόγκωση του ελλείμματος φαίνεται ότι δεν αφήνει περιθώρια για απαλλαγή ή ελάφρυνση των νοικοκυριών από τη φορολογία. Στην έκτακτη εισφορά και τα οικιακά φωτοβολταϊκά. Τι προτείνει το ΥΠΕΚΑ Έκτακτη εισφορά και για τα φωτοβολταϊκά στις στέγες σχεδιάζει το ΥΠΕΚΑ. Όπως αναφέρει η "Καθημερινή", σε πρώτη φάση εξετάζεται εισφορά της τάξης του 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
  14. Σ' ευχαριστώ dkalam για την πληροφορία, αν και δεν θα χρειαστεί, τουλάχιστον τώρα. Το μαγαζί οπτικών που πήγα σήμερα μου είπε ότι το σύστημα του ΕΟΠΥΥ είναι συνδεδεμένο με το (παλιό του) ΤΣΜΕΔΕ οπότε φαίνεται ότι πχ είχα πάρει χρήματα για γυαλιά το 2011. Το μόνο θετικό είναι ότι δεν θα χάσω κάποια ώρα από τον χρόνο μου για γραφειοκρατεία που δεν θα είχε κανένα αποτέλεσμα!
  15. Σε συμβεβλημένο ιατρό, όχι ΙΚΑ.
  16. Επιστρέφω στο θέμα μετά από πολύ καιρό... Πήγα σήμερα σε οφθαλμίατρο του ΕΟΠΥΥ έχοντας κλείσει ραντεβού πριν 2 μήνες. Μου είπε ότι από την στιγμή που μπήκαμε στον ΕΟΠΥΥ γυαλιά δικαιολογούν κάθε 4 χρόνια. Η ερωτήση που έχω, αν ξέρει κανείς φυσικά, είναι η εξής: Τα 4 χρόνια μετράνε από την προηγούμενη φορά που πήρες χρήματα πίσω ή από δω και στο εξής που γίναμε ΕΟΠΥΥ? Το ρωτάω γιατί είχα πάρει το 2011 από το ΤΣΜΕΔΕ και αναρωτιέμαι αν θα πρέπει να σπαταλήσω τον χρόνο μου να πάω δικαιολογητικά κλπ, ή στο τέλος θα μου ρίξουν άκυρο γιατί δεν κλέινω 4 χρόνια. Ξέρει κανείς καμιά παρόμοια περίπτωση? Ο οφθαλμίατρος δεν ήξερε να μου απαντήσει τι ισχύει και έτσι προκαταβολικα μου έδωσε τα απαραίτητα χαρτιά ώστε να τα πάω σε ελεγκτή του ΙΚΑ (?). Κατά τα άλλα, τα ραβασάκια ήρθαν και το 2 χιλιαρο έτσουξε... Την υγειά μας να έχουμε γιατί δεν μας βλέπω καλά...
  17. Παρακάτω θα βρείτε μια μακροεντολή την οποία όταν την τρέχετε δημιουργέιται μια λίστα με όλες τις αναφορές σε άλλα βιβλία εργασίας. Η λίστα δημιουργείται σε ένα νέο φύλλο του βιβλίου εργασίας (με όνομα 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
  18. Version 2

    1,013 downloads

    Το φύλλο αυτό λοιπόν υπολογίζει την πτώση τάσης ενός αγωγού βάση του φορτίου του, από τις γνωστές σχέσεις: Vd = 2*ρ*I*L/S για μονοφασικό και Vd = sqrt(3)*ρ*I*L/S για τριφασικό ρεύμα Έχω προσθέσει μέσα και οδηγίες – θεωρία σχετικά με τον υπολογισμό της πτώσης τάσης, οπότε λεπτομέρειες θα βρείτε εντός. Το rar περιέχει 2 αρχεία, ένα για office 2007 και ένα για office 2010 Ελπίζω τώρα να μπορείτε να το δουλέψετε και να σας φανεί κάπου χρήσιμο…
  19. Από εδώ μπορείς να κατεβάσεις ένα excel-όφυλλο το οποίο υπολογίζει με 11 διαφορετικούς τρόπους τον συντελεστή τριβής. Απ' ότι βλέπω φοιτητής είσαι οπότε θα σου είναι υπεραρκετό νομίζω.
  20. Χωρίς να είμαι 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 ώστε να μπει ως πίνακας. Παρεμπιπτόντως, καλή χρονιά σε όλους!
  21. dib, σε ευχαριστώ πολύ για τα καλά σου λόγια. Παρεμπιπτόντως, όποιος θέλει να δει λίγο θεωρία και κάποιες εξισώσεις (στα αγγλικά) μπορεί να ψάξει εδώ.
  22. 386 downloads

    Με το excel-όφυλλο αυτό θα μπορείτε να υπολογίσετε την ογκομετρική παροχή και την ταχύτητα του ρευστού σε ένα σωλήνα χρησιμοποιώντας έναν σωλήνα Venturi. Απλά συμπληρώνετε τα πράσινα κελιά και ο υπολογισμός γίνεται αυτόματα. Εκτός από το κύριο φύλλο υπάρχει και ένα βοηθητικό φύλλο στο οποίο μπορείτε να υπολογίσετε τον συντελεστή παροχής του οργάνου (Venturi) αν δεν τον γνωρίζετε. Τέλος, υπάρχει και μια βοηθητική φόρμα που περιέχει ιδιότητες υλικών σωληνώσεων και ρευστών. Το αρχείο, το οποίο ανοίγει σε office 2007 ή νεώτερο και για να το χρησιμοποιήσετε θα πρέπει να ενεργοποιήσετε τις μακροεντολές.
  23. Και μια εναλλακτική: Έτσι όπως έχεις τα δεδομένα, στην στήλη Ν (πχ στο κελί Ν2) μπορείς να γράψεις αυτό: =INDIRECT(ADDRESS(ROW(A2);COUNTA(B2:L2)+1))-INDIRECT(ADDRESS(ROW(A2);COUNTA(B2:L2))) Μετά, το σέρνεις προς τα κάτω...
  24. Γιώργο δεν ισχύει αυτό... Το Excel 2010 έχει τον ίδιο αριθμό γραμμών με το Excel 2007. Δες και εδώ: http://office-watch....t/n.aspx?a=1408 Εσύ όμως ξέρω ότι χρησιμοποιείς το 2003....
  25. Λοιπόν, έγραψα λίγο κώδικα στα γρήγορα. Ο παρακάτω κώδικας, βρίσκει την τελευταία τιμή της στήλης Α και στην συνέχεια ανεβαίνει προς τα πάνω. Αν βρει ασυνέχεια στον χρόνο, εισάγει κενές γραμμές και το χρονικό διάστημα. Αν θες, δες και το επισυναπτόμενο αρχείο. Στις κίτρινες γραμμές υπάρχει ασυνέχεια. Αν πατήσεις το κουμπί 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
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.