[Μορφοποίηση] αλλαγη στο δευτερο δεκαδικο ψηφιο

[Quenya]

Γεια σας , σε κενη στηλη υπαρχει η δυνατοτητα προτου εισαχθουν αριθμοι να οριστει η αλλαγη του δευτερου δεκαδικου απο 3 4 6 7 σε 5 και 1 2 8 9 σε 0 ?
Αν οχι σε κενη τοτε αφου εισαχθουν ? ευχαριστω

[kapetang]

Καλημέρα

Μορφέα, δες μια πρόταση στο συνημμένο.

Ελπίζω να δουλεύει στην αγγλική έκδοση.

Από περιέργεια σε τι σε εξυπηρετεί το ζητούμενο;

Φιλικά/Γιώργος

[Quenya]

Αρχική Δημοσίευση από kapetang

Καλημέρα

Μορφέα, δες μια πρόταση στο συνημμένο.

Ελπίζω να δουλεύει στην αγγλική έκδοση.

Από περιέργεια σε τι σε εξυπηρετεί το ζητούμενο;

Φιλικά/Γιώργος

Ο κωδικας μια χαρα δουλευει , αλλα εγω δεν ανελυσα οπως επρεπε το ακριβες ζητουμενο.
οι αριθμοι που ερχονται στην στηλη εχουν 2 δεκαδικα, σε ολη την κλιμακα 0-9 .
τα ψηφια 8 κ 9 να τα κλεινει στην επομενη δεκαδα και οχι προς τα κατω , αναλυτικα,
1,61 1,62 = 1,60 1,63 1,64 1,66 1,67 = 1,65 1,68 1,69 = 1,70 ετσι επρεπε να το ζητησω

ειναι ομως καλυτερη η εξης παραλλαγη 1,61 1,62 1,63 1,64 = 1,65 και 1,66 1,67 1,68 1,69 = 1,70 και να μην αλλαζει το δευτερο δεκαδικο οταν ειναι 5 η 0. να τρεχει σε μηκος 1500 κελιων διοτι δεν ειμαι κ πολυ σιγουρος οτι μπορω να το αλλαξω, πολυ προχω θεματα αυτα εχω μεινει αγαλμα με αυτα που βλεπω να φτιαχνονται. ευχαριστω πολυ για την βοηθεια Γιωργο.

[Spirosgr]

ο κώδικας στο φύλλο, συμβάν Change:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Columns.Count > 1 Then Exit Sub
    If Target.Rows.Count > 1 Then Exit Sub
    If Intersect(Target, Columns(1)) Is Nothing Then
        Exit Sub
    Else
        Target = Application.WorksheetFunction.Ceiling(Target, 0.05)
    End If
End Sub

Σημείωση:
Ισχύει για εισαγωγή αριθμών στην στήλη Α.
Χρησιμοποιεί την CEILING σε πολλαπλάσιο 0,05 προς τα επάνω.

[kapetang]

Καλησπέρα

Μορφέα, δες το συνημμένο.

Είναι προσαρμοσμένο στην πρώτη εκδοχή στρογγυλοποίησης.

Για τη δεύτερη χρησιμοποίησε τον κώδικα του Σπύρου.

Φιλικά/Γιώργος

[Quenya]

Αρχική Δημοσίευση από Spirosgr

ο κώδικας στο φύλλο, συμβάν Change:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Columns.Count > 1 Then Exit Sub
    If Target.Rows.Count > 1 Then Exit Sub
    If Intersect(Target, Columns(1)) Is Nothing Then
        Exit Sub
    Else
        Target = Application.WorksheetFunction.Ceiling(Target, 0.05)
    End If
End Sub

Σημείωση:
Ισχύει για εισαγωγή αριθμών στην στήλη Α.
Χρησιμοποιεί την CEILING σε πολλαπλάσιο 0,05 προς τα επάνω.

Εκανα αντιγραφη του φυλλου εξελ με την προταση κωδικα του Γιωργου σε νεο φυλλο εξελ
πηγα στον κωδικα τον εσβησα κ τον αντεγραψα τον παραπανω που προτεινες
το στρογγυλεμα γινετε οπως ειναι το ζητουμενο, ομως προεκυψε ενα νεο θεμα και ενα ακομα που δεν ειχα προσεξει ουτε στην προηγουμενη προταση , αυτα ειναι
οι δυο κωδικες δουλευουν εαν πληκτρολογηθουν αριθμοι μεσα στα κελια και μονο,
ζητω λυση ωστε να επεμβαινουν και να αλλαζουν τους αριθμους που θα ερχονται στη στηλη με αντιγραφη απο αλλο φυλλο , καθως εαν ειναι να γραφω 1000 και πλεον κελια δεν κερδιζω τιποτα απο χρονο
το δευτερο που προεκυψε και αφορα τη δευτερη λυση ειναι οτι καθε αριθμος που πληκτρολογω στο κελι γονατιζει τον επεξεργαστη στο 95% ( α6 6400Κ κ 8G RAM )και κολλαει το πσ για 30 δευτερα περιπου
η πρωτη λυση εστελνε τον επεξεργαστη καπου στο 50 %
οπως κ να χει ο κωδικας πρεπει να επεμβαινει σε δεδομενα τα οποια θα επικολουνται στη στηλη προερχομενα απο αλλη στηλη αλλου φυλλου. ευχαριστω

[Quenya]

Αρχική Δημοσίευση από kapetang

Καλησπέρα

Μορφέα, δες το συνημμένο.

Είναι προσαρμοσμένο στην πρώτη εκδοχή στρογγυλοποίησης.

Για τη δεύτερη χρησιμοποίησε τον κώδικα του Σπύρου.

Φιλικά/Γιώργος

Γιωργο , η νεα προταση ακουει το ζητουμενο στρογγυλοποιησης στη κοντινοτερη δεκαδα, αλλα δεν μπορω να βρω αν υπαρχει καποιος τροπος επικολλησης , των εισερχομενων αριθμων ωστε να μετατρεπει οσους εχουν δευτερο δεκαδικο διαφορετικο του 5 η 0 . ευχαριστω..

[Spirosgr]

Ο υπολογιστής σου «γονατίζει», είτε γιατί είναι «μικρός» είτε γιατί σε κάθε αλλαγή (εισαγωγή),
τρέχουν κι άλλες συναρτήσεις.
Με τεστ σε 120000 γραμμές, ο κώδικας, τρέχει ακαριαία.
Όσο για τα ζητούμενα σου, καλό είναι να λες ξεκάθαρα και ακριβώς, αυτό που θέλεις.

[Quenya]

Αρχική Δημοσίευση από Spirosgr

Ο υπολογιστής σου «γονατίζει», είτε γιατί είναι «μικρός» είτε γιατί σε κάθε αλλαγή (εισαγωγή),
τρέχουν κι άλλες συναρτήσεις.
Με τεστ σε 120000 γραμμές, ο κώδικας, τρέχει ακαριαία.
Όσο για τα ζητούμενα σου, καλό είναι να λες ξεκάθαρα και ακριβώς, αυτό που θέλεις.

η αληθεια ειναι οτι πραγματι εχω ενα σοβαρο θεμα να εξηγησω με σαφηνεια τα ζητουμενα.
ζηταω σε κενη στηλη να υπαρχει η δυνατοτητα προτου εισαχθουν αριθμοι στην περιοχη α1 εως α1500 (εχουν 2 δεκαδικα ) με τη μεθοδο της επικολλησης, οι οποιοι προερχονται απο αλλο φυλλο εξελ , να οριστει η αλλαγη του δευτερου δεκαδικου απο 1 2 3 4 σε 5 και 6 7 8 9 σε 0 ? αυτο ειναι το ζητουμενο . ευχαριστω πολυ για τον χρονο σας.

[kapetang]

Καλημέρα

Μορφέα, μετά τη διευκρίνιση του ζητούμενου, το πρόβλημα είναι απλό.

Δε χρειάζεται αντιγραφή και επικόλληση και κώδικας VBA.

Αρκεί στη στήλη A1:A1500 να βάλλουμε ένα τύπο.

Δες το συνημμένο.

Φιλικά/Γιώργος