gkost

Ευχαριστώ για όλες τις απαντήσεις.

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

Το μηχανουργείο έχει έναν τόρνο και μία φρέζα καθώς και μια επιφάνεια ηλεκτροσυγκόλησης. Με 4 καμπάνες και λάμπες τύπου Υδραργύρου / Νατρίου, κλπ στα 18000-20000 lumen έκαστη εξασφαλίζεις ανω των 700-800 lux στα επίπεδα εργασίας.

Ο Πέτρανθος έθεσε δύο πολύ σωστά ζητήματα στα οποία και απαντώ:

Ο μηχανουργός μου είπε πως η πιστή απόδοση χρωμάτων δεν αποτελεί ιδιαίτερο πρόβλημα. Προτιμά δε ελαφρώς "θερμά" χρώματα καθώς το πολύ "λευκό" φως τον κουράζει. Παράλληλα ο χρόνος επανεκκίνησης μετά από διακοπή δεν αποτελεί κρίσιμη παράμετρο καθώς το μηχανουργείο λειτουργεί σε λογική custom προϊόντος (build-to-order) και δεν έχει σταθερή ροή παραγωγής.

Νομίζω πως θα πάμε σε ατμούς νατρίου ή Metal Halide και βλέπουμε...

Ευχαριστώ και πάλι συνάδελφοι!

Κάθε συμπληρωματική άποψη ευπρόσδεκτη.

αν δεν κάνω λάθος νατρίου 250W βγάζουν γύρω στα 100 lm/watt, οπότε από ενεργειακής άποψης είναι ό,τι καλύτερο. καλό θα ήταν να τις βάλεις να ανάβουν μεμονωμένα ή σε ομάδες ώστε να μπορεί να "παίζει" με το επιθυμητό ποσό φωτεινότητας.

Ευχαριστώ για τη γρήγορη απάντηση!

Έτσι είναι: χονδρικά 100lm/watt - τα οποία όμως αναφέρονται αποκλειστικά στην κατανάλωση της λάμπας! Μαζί με την κατανάλωση του ballast τα πράγματα χειροτερεύουν κατάτι.

Είδομεν!

Συνάδελφοι καλημέρα.

Έχω το εξής ζήτηημα: Ένα πελάτης με μικρό μηχανουργείο (MxΠxΥ=10x10x5.5) μου ζήτησε να τιου προτείνω μια λύση για τον αποτελεσματικό και ενεργειακά αποδοτικό φωτισμό των επιφανειών εργασίας.

Έχετε κάποια πρόταση σχετικά με τον αποδοτικότερο συνδυασμό λάμπας / φωτιστικού;

Η αρχική σκέψη είναι καμπάνες (μάλλον 6) των 250W. Αλλά με τι λαμπτήρες; Υδραργύρου / Metal Halide / Νατρίου / Μικτού / Απλές Οικονομικές; Το βασικό κριτήριο -πέραν του επαρκούς φωτσμού- είναι η οικονομία και η εύκολη συντήρηση.

Δεν έχω ασχοληθεί ποτέ με το ζήτημα οπότε κάθε βοήθεια θα είναι πολύτιμη. Ευχαριστώ πολύ εκ των προτέρων.

Γ.

Αchille καλησπέρα!

Χρειάζεσαι να χρησιμοποιήσεις κώδικα VBA που να παρακολουθεί τις αλλαγές στο φύλλο. Η συνάρτηση που θα δουλέψει είναι η Worksheet_Calculate(). Το τρυκ είναι να χρησιμποιήσεις σε κάποιο τυχαίο κελί του Φύλλου σου τη συνάρτηση "=Row(A1)". Αυτό θα ενεργοποιεί την Worksheet_Calculate() κάθε φορά που προσθέτεις γραμμή.

Εφόσον έχεις εμπειρία από κώδικα η διαδιακασία είναι σχετικά απλή. Εάν όχι στείλε μου λεπτομέρειες και θα σε βοηθήσω περαιτέρω. Για γενικότερες απορίες μπορείς να στείλεις λεπτομέρειες εδω: http://www.extreme-excel.net/tiprequest.php

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

Γ.

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

Sample_add_rows.zip

Αγαπητή Μαρία,

Δεν είμαι σίγουρος πως έχεις διατυπώσει με σαφήνεια την απορία σου γι' αυτό και ο κόσμος προτείνει (σωστά) τη συνάρτηση Transpose.

Ποιές οι διαστάσεις του αρχικού πίνακα; Είναι μ x ν και θες να γίνει ν x μ ? Τότε Transpose (Aντιμετάθεση).

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

Στις Γραμμές του πρέπει να μπαίνουν οι τιμές 1->n και στα Δεδομένα (data) οι τιμές Α->Ν. Η διαδικασία αυτοματοποιείται με χρήση δυναμικών περιοχών που "διαβάζουν" αυτόματα τη διάσταση του πίνακα δεδομένων.

Κοίτα το συνημμένο "Values.zip" στο κάτω μέρος του post. Θα δώσει, πιστεύω, μια αρχική απάντηση στο ερώτημά σου. Ο πινακας του Φύλλου "Pivot" έχει παραχθεί αυτόματα με βάση τις τιμές του Φύλλου "Dedomena".

Πληροφορίες για τους συγκεντρωτικούς πίνακες θα βρεις σε όλα τα καλά sites (MrExcel, Cpearson, OzGrid, Contextures, ... κλπ) αλλά και στο δικό μας: http://www.extreme-excel.net/tips.php?tc=31

Αυτά!

Values.zip

gnusselt καλημέρα!

Δεν είναι εκ των προτέρων δυνατό να ορίσεις τα κλειδωμένα κελιά σε ένα Φύλλο του Excel.

Μπορείς να κάνεις εύκολα αυτό που θες, μέσω VB, με τη συνάρτηση Worksheet_Change. Κατέβασε το συνημμένο ή πέρνα την παρακάτω συνάρτηση στον κώδικα του Φύλλου που σε ενδιαφέρει:

---

Private Sub Worksheet_Change(ByVal Target As Range)

Dim pass As String

pass = "password"

If Target.Cells.Count > 1 Or IsEmpty(Target) Or Target.Address <> "$A$1" Then Exit Sub

If Target.Address = "$A$1" Then

If ActiveSheet.ProtectContents = True Then

ActiveSheet.Unprotect Password:=pass

End If

Range("a:a").Locked = False

Range("a:a").Interior.ColorIndex = 0

Cells(1, 1).Interior.ColorIndex = 45

If Val(Cells(1, 1)) > 1 Then

Range(Cells(2, 1), Cells(Int(Val(Cells(1, 1))), 1)).Locked = True

Range(Cells(2, 1), Cells(Int(Val(Cells(1, 1))), 1)).Interior.ColorIndex = 36

End If

End If

ProtectSheet:

ActiveSheet.Protect Password:=pass

End Sub

----

Όπως ξέρεις ένα κλειδωμένο κελί κλειδώνει αληθινά μόνο όταν το Φύλλο είναι προστατευμένο. Όρισε το password σου στη μεταβλητή mypass και δοκίμασε τη συνάρτηση σε ένα αρχικώς ξεκλείδωτο Φύλλο.

Αφού δώσεις τιμή στο κελί Α1, η συνάρτηση θα κλειδώσει όλα τα κελιά από Α2 έως εκεί που υποδεικνύει ο αριθμός στο Α1 και θα τα χρωματίσει με κίτρινο.

Στη συνέχεια θα προστατεύσει το φύλλο με password ίσο με αυτό που όρισες.

Για τιμή Α1 < 2, πχ 0 ή 1, το Φύλλο ξεκλειδώνει ολόκληρο.

Δοκίμασέ το!

Επικοινώνησε μαζί μας για περαιτέρω δωρεάν συμβουλές επί του θέματος :

http://www.extreme-excel.net/tiprequest.php

ΕΡΩΤΗΣΗ

 

Έστω στο κελί Α1 η τιμή 5 (αριθμός). Θέλω το excel να "κλειδώνει" την εισαγωγή αριθμού στα κελιά Α2,Α3,Α4,Α5, δηλ. στα επόμενα 4 κελιά.

Ομοίως αν π.χ. ο αριθμός ήταν το 2 το excel να μην επιτρέπει την εισαγωγή αριθμού στο κελί Α2.

 

Κάποια ιδέα; Ευχαριστώ για τις απαντήσεις σας παίδες.

kleidoma.zip

σωστος ο gkost

με αυτην την βοηθεια αντικατασταση ή ευρεση λυνονται αρκετα προβληματακια και οχι μονο στο excell

Έτσι ακριβώς!

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

(Το αναφέρω επειδή αποτελεί σύνηθες ερώτημα πολλών συναδέλφων)

Πολύ καλό το παραπάνω λίνκ.

 

Μια που βρέθηκα σε αυτή την συζήτηση, να αναφέρω για ένα κόλπο που εφάρμοσα τις προάλλες.

 

Το πρόβλημά μου ήταν ότι έπρεπε να πληκτρολογήσω περίπου 200 ζευγάρια τιμών ώρας (δηλαδή, ώρα έναρξης 08:13 , ώρα λήξης 09:33) και να υπολογίσω την διαφορά τους.

Η εισαγωγή του "08:13" απαιτεί τον χαρακτήρα ":" και η απομάκρυνση από το αριθμητικό πληκτρολόγιο είναι αρκετά σπαστική.

Τι έκανα; Έγρψα όλες τις τιμές ώρας σε μορφή δεκαδική π.χ. 8,13 , 9,33 και μετά με την συνάρτηση int( ) , πήρα χωριστά το ακέραιο και χωριστά το δεκαδικό μέρος (επί 100/60), τα πρόσθεσα μαζί και έτσι πήρα την ώρα σε μορφή δεκαδικού αριθμού.

 

Ισως, συνολικά να έκανα περίπου τον ίδιο χρόνο (με αυτόν που έκανα εάν έγραφα και το ":" , αλλά μου άρεσε περισσότερο.

 

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

Η ιδέα αντικατάστασης του ":" από το "," είναι αποτελεσματική και εύκολα αντιστρέψιμη:

Μόλις τελειώσεις την καταχώριση πηγαίνεις στο μενού Επεξεργασία->Αντικατάσταση και αντικαθιστάς όλα τα "," της στήλης με ":", αντιστρέφοντας τη διαδικασία.

Να ρωτήσω και εγώ κάτι στο Excell (για να μην ανοίξω άλλο topic). Έστω ότι παίρνεις ένα αρχείο ecxell που σου έχει μια ομάδα δεδομένων οριζόντια.

 

π.χ. μια σειρά οι Μήνες και από κάτω σε μια άλλη σειρά διάφορες τιμές.

 

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

1. Με ειδική Επικόλληση->Αντιμετάθεση, εφόσον θέλεις μια "φωτογραφία" των δεδομένων σε ανάστροφο πίνακα.

2. Συνάρτηση "Transpose" (με CTRL+SHIFT+ENTER για ενεγοποίηση) αν θες δυναμική ενημέρωση των περιεχομένων.

Με την ευκαιρία, να δώσω κι εγώ δύο links για δωρεάν συμβουλές:

http://www.extreme-excel.net/tips.php

http://www.extreme-excel.net/forum.php

Eίναι ένας ιστότοπος φτιαγμένος από συνάδελφους μηχανικούς, με όρεξη για δουλειά και δυνατή γνώση του Excel.