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

[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]

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

Καλησπέρα

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

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

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

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

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

[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 %
οπως κ να χει ο κωδικας πρεπει να επεμβαινει σε δεδομενα τα οποια θα επικολουνται στη στηλη προερχομενα απο αλλη στηλη αλλου φυλλου. ευχαριστω