IOANNISTSA
-
Posts
194 -
Εγγραφή
-
Τελευταία Επίσκεψη
Content Type
Forums
Ειδήσεις
Reviews
Αγγελίες
Blogs
Gallery
Posts posted by IOANNISTSA
-
-
On 12/5/2023 at 1:16 ΜΜ, το μέλος serpico75 έγραψε:Το αρχείο σου που έκανα download δουλεύει. Το πρόβλημα-θέμα είναι ότι δεν μπορώ να φτιάξω ένα αντίστοιχο δικό μου, και να καταλάβω πώς δουλεύουν οι μακροεντολές στο συγκεκριμένο θέμα που θέλω να λύσω.
Παρά τις οδηγίες σου, ακόμη καί με τα screenshoots, δεν τα καταφέρνω.
To Macro "Private Sub Worksheet_SelectionChange" πρέπει να το κάνεις copy-paste στο Sheet1 και όχι σε ένα Module.
Double left mouse click στο Sheet1 και στο δεξί μέρος του παραθύρου κάνεις copy paste το Macro [Private Sub Worksheet_SelectionChange(ByVal Target As Range)]
-
1
-
-
Για παν ενδεχόμενων
Download my test excel sheet.
https://www.udrop.com/file/880N/LAB_excel1.xlsm -
Κάνεις mouse click στο [DEVELOPER] και μετά στο [Visual basic] και εμφανίζεται το [Microsoft Visual Basic for Applications] Window
μετά double click στο Sheet1
στο δεξί μέρος του παραθύρου κάνεις copy paste το Macro [Private Sub Worksheet_SelectionChange(ByVal Target As Range)]
επιλέγεις όλο το Macro οπως παρακάτω
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Board_Col = 1 Board_Row = 1 Target_Col = 1 TargetSheetName = "Sheet2" x1 = 30 x2 = 2 Application.EnableEvents = False Application.ScreenUpdating = False Application.CutCopyMode = False If Target.Column >= Board_Col - 1 And Target.Column < Board_Col + x2 Then If Target.Row >= Board_Row And Target.Row < Board_Row + x1 Then k = 0 For i = 1 To x1 dd = Cells(i + Board_Row - 1, 2 + Board_Col - 1) If dd = 8 Then k = k + 1 Sheets(TargetSheetName).Cells(k, Target_Col) = Cells(i, x2 + Board_Col - 2) Else Sheets(TargetSheetName).Cells(i, Target_Col) = "" End If Next End If End If Application.EnableEvents = True Application.ScreenUpdating = True Application.CutCopyMode = True End SubΦτιάξε και ένα Macro [Events_on] σε ένα Module, όπως παρακάτω και κάνε [Run] μια φορά ή όταν τα Events δεν λειτουργούν
Sub Events_on() Application.EnableEvents = True Application.ScreenUpdating = True Application.CutCopyMode = True End Sub -
On 29/4/2023 at 12:40 ΜΜ, το μέλος serpico75 έγραψε:
Δεν την αποκλείω ακριβώς τη χρήση μακροεντολών. Απλά, θέλει αρκετές γνώσεις για να το φτιάξω με μακροεντολές, που τόσες γνώσεις δεν έχω. Με μακροεντολές γίνεται, αλλά είναι κάπως αρκετά υψηλό/περίπλοκο το στάδιο, που δεν έχω (για την ώρα, τουλάχιστον).
Τελικά σε βοήθησε καθόλου το MACRO (πέραν του like που έκανες) ?
-
Κάνε Copy-Paste τον κώδικα στο sheet1 οπως φαίνεται στην παρακάτω φωτογραφία
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Board_Col = 1 Board_Row = 1 Target_Col = 1 TargetSheetName = "Sheet2" x1 = 30 x2 = 2 Application.EnableEvents = False Application.ScreenUpdating = False Application.CutCopyMode = False If Target.Column >= Board_Col - 1 And Target.Column < Board_Col + x2 Then If Target.Row >= Board_Row And Target.Row < Board_Row + x1 Then k = 0 For i = 1 To x1 dd = Cells(i + Board_Row - 1, 2 + Board_Col - 1) If dd = 8 Then k = k + 1 Sheets(TargetSheetName).Cells(k, Target_Col) = Cells(i, x2 + Board_Col - 2) Else Sheets(TargetSheetName).Cells(i, Target_Col) = "" End If Next End If End If Application.EnableEvents = True Application.ScreenUpdating = True Application.CutCopyMode = True End Sub-
2
-
-
Σύμφωνα με όσα γνωρίζω μάλλον δεν γίνεται αυτό που ζητάς αυτόματα.
Χωρίς macro μπορείς να φτιάξεις την λίστα που θέλεις αλλά κάθε φορά που εισάγεις καινούρια στοιχεία για να ενημερωθεί θα πρέπει να το κάνεις χειροκίνητα.Για να δημιουργείται αυτόματα η στήλη/λίστα είναι απαραίτητη η χρήση μακροεντολών.
Και γιατί αποκλείεις την χρήση μακροεντολών ?
-
On 16/1/2023 at 6:41 ΜΜ, το μέλος l2phile έγραψε:
Ποιο επικαιροποιημένο εμβόλιο ραα;
Ο κορωνοϊός πλέον είναι πιο λάιτ και από συνηθισμένο κρυολόγημα (ειδικά αν είσαι νέος
)
Κολλήσαμε οικογενειακός (για πρώτη φορά) λίγο πριν τα Χριστούγεννα, εγώ (57) η γυναίκα μου(57) και η πεθερά(90) μου.
Χωρίς να λάβουμε υπόψιν ηλικίες, προβλήματα υγείας, φυσική κατάσταση κλπ τα συμπτώματα που είχαμε ήταν μη άξια λόγου και κράτησαν μια μέρα και χωρίς πυρετό (μέγιστη 37,4).
Το τελευταίο εμβόλιο το είχαμε κάνει στις 7 Ιανουαρίου του 22.
Με βάση την εξέλιξη του ιού έως τώρα άλλη δόση δεν βλέπω να κάνουμε εκτός και κάτι αλλάξει δραματικά προς το χειρότερο.
-
1
-
-
Υπάρχει και το Bosch GBH 2-28 F Professional 880W στα 220 ευρώ
-
1
-
-
Το Computer αγοράτηκε το 2011 και παραμενει χωρίς Format από τότε.
Οι αλλαγές που έχουν γίνει μετα την αγορά του ειναι:
Προσθήκη SSD και Υδρόψυξης
Upgrade των Windows 7 σε 8.1 αργότερα σε 10
-
On 31/12/2021 at 8:09 ΜΜ, το μέλος ΓιαγκΤ έγραψε:
Με κάθε επιφύλαξη... αν το 205 είναι ο τύπος του ανοξείδωτου δεν έχει νικέλιο αλλά μαγγάνιο που σημαίνει επιρρεπές στη διάβρωση.
Αν από μέσα δεν είναι ομοιογενές και φαίνεται η ένωση όπως έξω, τότε είναι πρεσαριστό το στεφάνι στο ταψί με άγνωστο παρέμβασμα ανάμεσα τους που πιθανώς να έρχεται σε επαφή με το φαγητό
Τέλος το ανοξείδωτο έχει τη χειρότερη συμπεριφορά στη θερμοκρασία από όλα τα μέταλλα για αυτό τις καλές κατσαρόλες τις φτιάχνουν σάντουιτς με χαλκό αλουμίνιο κλπ
Την καλύτερη συμπεριφορά στη θερμοκρασία την έχει το μαντέμι
-
1
-
1
-
-
"About two months ago, I bought a pot from IKEA that made by stainless steel 205 35"
About two months ago, I bought a pot from IKEA that made by stainless steel 205 35
-
1
-
-
Εγγύηση εφόρου ζωής μόνο μια μάρκα υπάρχει AMC.
Τις είχε πάρει η Μητέρα μου πριν σαράντα+ χρόνια και τις έχω εγώ τώρα. (ένα fissler της ίδιας εποχής δεν αντεξε ούτε τα μισά χρόνια των AMC)
Το υλικό είναι κράμα χάλυβα με χρώμιο και νικέλιο (AISI304 -X5CrNi18-10) ή απλά Inox 18/10. Ο πάτος των AMC είναι οκταμερές κράμα χάλυβα πατέντα της AMC. Τα υπόλοιπα σκεύη της AMC (δίσκοι, μπολ κλπ) είναι από 18/8
Ακόμα και να αφήσεις το φαγητό να καεί (να σωθεί το νερό) τα σκεύη δεν παθαίνουν σχεδόν τίποτα και αναλόγως πόση ώρα πέρασε χωρίς νερό θέλει και ανάλογο τρίψιμο μετά για να γίνουν όπως πριν και ίσως να τα περάσεις με μια «κρέμα» για να γυαλίσουν σε περίπτωση που θαμπώσουν (σπάνιο φαινόμενο μετά από ώρα/ες πάνω στο μάτι).
Το μόνο πρόβλημα είναι το κόστος.
-
3
-
-
Click on [More Borders] ...
-
πριν 30 λεπτά, το μέλος Simon έγραψε:
Τι ευσταθεί επιστημονικά ότι το διοξείδιο είναι ανθρωπογενές ή/και ότι είναι ρύπος ?
-
-
Το "ρεύμα" δεν κάνει διακρίσεις σε Ερασιτέχνες και Επαγγελματιες.
Εγώ σαν ερασιτέχνης πήρα αυτό το σετ το 2015.
-
2
-
-
On 10/10/2021 at 11:44 ΠΜ, το μέλος panos 12 έγραψε:
Το εκανα κι αυτο με το gov.gr μου λεει δεν εχετε πιστοποιημένο αριθμό τηλεφώνου, παω να το βαλω και μου λέει ότι αυτος ο αριθμός είναι δηλωμένος στο μητρώο αλλα δεν με αφήνει να μπω με βγάζει παλι μυνημα οτι δεν υπάρχει αριθμός τηλεφώνου δηλωμένος
Πήγαινε σε ένα ΚΕΠ και πιστοποίησε τον αριθμό του κινητού σου και μετά μπές το Gov.gr με του κωδικούς taxis και δήλωσε το αριθμό του κινητού σου και ενημέρωσε και τα υπόλοιπα στοιχεία σου.
-
-
Για να επωμισθούν το κόστος οι ιδιοκτήτες μια πολυκατοικίας ως κοινόχρηστο πρέπει να είναι και κοινόχρηστο δηλαδή να κάνουν κοινή χρήση.
Π.χ
Οι κάθετες στήλες της αποχέτευσης είναι κοινόχρηστες όχι όμως οι οριζόντιες δηλαδή αυτές που συνδέουν το κάθε διαμέρισμα με τις κάθετες.
Οι σωληνώσεις θέρμανσης είναι κοινόχρηστες εκτός από αυτές που συνδέουν τα σώματα στο κάθε διαμέρισμα, στην αυτόνομη θέρμανση οι σωληνώσεις θέρμανσης είναι κοινόχρηστες μέχρι και την ηλεκτροβάνα του κάθε διαμερίσματος.
Τα καλώδια του ΟΤΕ μέχρι το κουτί/ρεγκλέτα είναι ευθύνη του ΟΤΕ, από κει και πέρα είναι ευθύνη του κάθε Ιδιοκτήτη.
Οποιοδήποτε κόστος ζημιάς/επισκευής κλπ στο κοινόχρηστο δίκτυο επιμερίζεται σε όλους τους ιδιοκτήτες στο μη κοινόχρηστο το κόστος επιβαρύνει κάθε τον ιδιοκτήτη.
Π.χ
Διαρροή σε κάθετη στήλη αποχέτευσης το κόστος επιμερίζεται σε όλους τους ιδιοκτήτες.
Εάν προκληθούν ζημιές λόγο της διαρροής σε διαμερίσματα το κόστος αποκατάστασης αυτών επιμερίζεται σε όλους τους ιδιοκτήτες.
Διαρροή σε οριζόντια στήλη αποχέτευσης το κόστος επιβαρύνει τον ιδιοκτήτη του διαμερίσματος που συνδέει η οριζόντια στήλη.
Εάν προκληθούν ζημιές σε διαμερίσματα λόγο της διαρροής σε μια οριζόντια στήλη αποχέτευσης το κόστος αποκατάστασης αυτών επιβαρύνει τον ιδιοκτήτη του διαμερίσματος που συνδέει η οριζόντια στήλη.
-
2
-
-
- Δημοφιλής Δημοσίευση
- Δημοφιλής Δημοσίευση
-
11
-
Πριν 21 χρόνια (!) είχα φτιάξει το παρακάτω το οποίο υπάρχει έως σήμερα και φιλοξενεί 55" τηλεόραση χωρίς πλέον το στερεοφωνικό και τα ηχεία όπου έχω βάλει βιβλία.
Δεν φαίονται οι βίδες και το υλικό είναι μελαμίνη Shelman 18mm με pvc 3mm.
Το πάνω μέρος αποτελείται από δύο κομάτια.
Στο πρώτο βιδώνονται όλα τα καθετα με βίδες από την επάνω μεριά και το απο πάνω βιδώνεται από κάτω.
Στο κάτω μέρος υπάρχουν περιμετρικά εσωτερικά πηχάκια με βίδες που στερεώνουν τα κομάτια.
Το πισω μέρος έχει τρία πορτάκια με τρύπες για τα καλώδια του στερεοφωνικού και το ηχείων.
Στο μεσσαίο πορτάκι από πίσω έχω βιδώσει πολύπριζο ασφαλείας.
-
6
-
-
Από πρόσφατη περίπτωση :
Για να κάνεις κάποια επέμβαση π.χ. καταρράκτη ο ασθενής πρέπει να κάνει Rapid test πριν την επέμβαση ασχέτως εάν είναι εμβολιασμένος ή όχι.
Οι γιατροί που εμπλέκονται στην επέμβαση κάνουν Rapid test πριν την επέμβαση, ? εμβολιασμένοι και μη, ?
(εννοείτε ότι τεστ πρέπει να βγει αρνητικό)
-
πριν 15 ώρες, το μέλος acct έγραψε:
Στοιχεία: Είναι τουλάχιστον 70 φορές πιθανότερο να νοσήσεις από COVID αν είσαι ανεμβολίαστος ή ανεπαρκώς εμβολιασμένος. Αν νοσήσεις από COVID είναι πιθανό να πεθάνεις.
Ερμηνεία: "νΑι ΑλΛα Αν ΝοΣηΣεΙσ ΜπΟλΙαΣμΕνΟσ ΕιΝαΙ πΙθΑνΟτΕρΟ νΑ πΕθΑνΕισ!"
Ρε παιδιά, διαβάστε λίγη θεωρία για δεσμευμένη πιθανότητα και σταματήστε να ψάχνετε το συμπέρασμα που θέλετε στα νούμερα. Καταρχάς, τα νούμερα που υπάρχουν στην αρχική αναφορά δεν είναι επαρκή για να βγάλεις το συμπέρασμα που επιχειρείς.
Αν είχε και τον συνολικό αριθμό ανεμβολίαστων στον πληθυσμό χωρίς να χρειάζεται να ψάχνουμε τρίτες πηγές, ίσως έμπαινα στον κόπο να τα βάλω κάτω και να σου υπολογίσω πόσο στατιστικά σημαντική είναι η διαφορά που νομίζεις ότι μετράς. Αλλά με την ΤΕΡΑΣΤΙΑ διαφορά των νοσούντων, ακόμη και να έχει στατιστική ισχύ, πάλι είναι συντριπτικά πιθανότερο να νοσήσεις (και να πεθάνεις) αν είσαι ανεμβολίαστος.
Ρίξτε μια ματιά και στο παρακάτω για μια ένδειξη του τι μας περιμένει αν δεν πάρουμε την κατάσταση σοβαρά με το άνοιγμα των σχολείων. Το δημοσίευμα είναι από τη WaPo, τα γραφήματα από προσομοίωση του CDC. Εδώ έχουμε μόνο ένα σενάριο: Low Immunity, γιατί όλα τα παιδιά είναι ανεμβολίαστα και δε συζητώ καν ότι δεν υπάρχει αίθουσα με 2m απόσταση μεταξύ των θρανίων και με το 35% των τοίχων να είναι ανοιγόμενο παράθυρο.
Τα νούμερα δεν είναι επαρκή για να βγάλεις συμπεράσματα προς οποιαδήποτε κατεύθυνση (τα δεδομένα των τεσσάρων ομάδων) αλλά παρόλα αυτά στο τέλος αναφέρεται ότι «Αυτό ήταν που ελπίζαμε πως θα κάνουν τα εμβόλια για τον ιό και αυτό κάνουν: μας παρέχουν υψηλή προστασία.»
Το συμπέρασμα βασίζεται π.χ. στην ποσοστιαία κατανομή των θανάτων της Ομάδας Α (ανεμβολίαστοι) 82% σε σχέση με την Ομάδα Δ (πλήρως εμβολιασμένοι) 1,4% ενώ το ποσοστό θνησιμότητας είναι 1,067% και 2,034% δηλαδή σε κάθε 100 κρούσματα της Ομάδας Α σχεδόν ένας κατέληξε ενώ σε κάθε 100 κρούσματα της Ομάδας Δ σχεδόν δύο κατέληξαν.
Και επαναλαμβάνω ότι τα δεδομένα των τεσσάρων ομάδων δεν επαρκούν για να βγουν συμπεράσματα στον γενικό πληθυσμό ή/και μεταξύ των Ομάδων.
Τώρα όσον αφορά τα παιδιά και τους νέους στη Ελλάδα σε γενικές γραμμές ο μισός πληθυσμός είναι μέχρι την ηλικία των 40 ετών και ο άλλος μισός από 40 και πάνω.
Τα κρούσματα σε αυτές τις δυο ομάδες είναι μέχρι στιγμής σχεδόν ίδια αλλά ο αριθμός των θανάτων είναι διαφορετικός.
Έχουμε μόνο 99 θανάτους μέχρι την ηλικία των 39 ετών και 13537 από 40 ετών και πάνω.
Η κυβέρνηση εφόσον κόπτεται για την δημόσια υγεία πρώτο της μέλημα έπρεπε και πρέπει να είναι να κάνει ότι μπορεί για να εμβολιαστούν οι πάνω των 40 αφού αυτοί κατακλύζουν τα νοσοκομεία και τα νεκροταφεία με προτεραιότητα τις μεγάλες ηλικίες και τα άτομα με επιπλέον προβλήματα υγείας.
https://eody.gov.gr/wp-content/uploads/2021/08/covid-gr-daily-report-20210829.pdf
-
πριν 11 λεπτά, το μέλος acct έγραψε:
Αν είχε και τον συνολικό αριθμό ανεμβολίαστων στον πληθυσμό χωρίς να χρειάζεται να ψάχνουμε τρίτες πηγές, ίσως έμπαινα στον κόπο να τα βάλω κάτω και να σου υπολογίσω πόσο στατιστικά σημαντική είναι η διαφορά που νομίζεις ότι μετράς. Αλλά με την ΤΕΡΑΣΤΙΑ διαφορά των νοσούντων, ακόμη και να έχει στατιστική ισχύ, πάλι είναι συντριπτικά πιθανότερο να νοσήσεις (και να πεθάνεις) αν είσαι ανεμβολίαστος.
Εφόσον θέλεις πιθανότητα/ποσοστά νοσηλείας και θανάτων στα συγκεκριμένα δεδομένα πρέπει να τα υπολογίζεις σύμφωνα με τα σύνολα των ομάδων.
π.χ Ομάδα 1=[Θάνατοι1]/[Σύνολο1]*100
-
1
-
excel χωρις macro
In Εφαρμογές για Windows
Δοκίμασε αυτό, καλύτερη προσέγγιση
https://www.udrop.com/8ayN/LAB_excel2.xlsm
Worksheet_Activate on Sheet2
Private Sub Worksheet_Activate() Board_Col = 1 Board_Row = 1 Target_Col = 1 TargetSheetName = "Sheet2" SourceSheetName = "Sheet1" x1 = 30 x2 = 2 Application.EnableEvents = False Application.ScreenUpdating = False Application.CutCopyMode = False Sheets(TargetSheetName).Range("A1:A30").ClearContents k = 0 For i = 1 To x1 dd = Sheets(SourceSheetName).Cells(i + Board_Row - 1, 2 + Board_Col - 1) If dd = 8 Then k = k + 1 Sheets(TargetSheetName).Cells(k, Target_Col) = Sheets(SourceSheetName).Cells(i, x2 + Board_Col - 2) End If Next Application.EnableEvents = True Application.ScreenUpdating = True Application.CutCopyMode = True End Sub