Γεια σας.
Αυτός ο διαλογισμός στα ExtendOffice Το άρθρο εξηγεί πώς να εισαγάγετε κάποιο κώδικα σε μια Μονάδα για να υπολογίσετε τις τιμές των αριθμών της οποίας είναι ενισχυμένες:
https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3
Ωστόσο, ο κώδικας αγνοεί δεκαδικά ψηφία και επιστρέφει ανακριβή αποτελέσματα (ειδικά όταν έχουμε να κάνουμε με μικρές τιμές).
Για να το δοκιμάσω, συμπλήρωσα έναν αριθμό ενισχυμένων κυττάρων με τιμή "0.5" ή μικρότερη. Ο κωδικός τα αντιμετώπισε όλα ως "0" και, ως εκ τούτου, κατέληξε σε έναν υπολογισμό μηδέν. Ωστόσο, όταν έβαλα τιμές από "0.51" και πάνω, όλες στρογγυλοποιήθηκαν στο "1", με αποτέλεσμα - και πάλι - να υπολογίσει εντελώς λάθος το αποτέλεσμα.
Έχει κανείς λύση για αυτό; Ακολουθεί κώδικας.
Αυτός ο διαλογισμός στα ExtendOffice Το άρθρο εξηγεί πώς να εισαγάγετε κάποιο κώδικα σε μια Μονάδα για να υπολογίσετε τις τιμές των αριθμών της οποίας είναι ενισχυμένες:
https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3
Ωστόσο, ο κώδικας αγνοεί δεκαδικά ψηφία και επιστρέφει ανακριβή αποτελέσματα (ειδικά όταν έχουμε να κάνουμε με μικρές τιμές).
Για να το δοκιμάσω, συμπλήρωσα έναν αριθμό ενισχυμένων κυττάρων με τιμή "0.5" ή μικρότερη. Ο κωδικός τα αντιμετώπισε όλα ως "0" και, ως εκ τούτου, κατέληξε σε έναν υπολογισμό μηδέν. Ωστόσο, όταν έβαλα τιμές από "0.51" και πάνω, όλες στρογγυλοποιήθηκαν στο "1", με αποτέλεσμα - και πάλι - να υπολογίσει εντελώς λάθος το αποτέλεσμα.
Έχει κανείς λύση για αυτό; Ακολουθεί κώδικας.
Συνάρτηση SumBold (WorkRng As Range)
«Ενημέρωση 20131202
Dim Rng ως εμβέλεια
Dim xSum As Long
Για κάθε Rng στο WorkRng
Αν Rng.Font.Bold Τότε
xSum = xSum + Rng.Τιμή
End If
Επόμενο
SumBold = xSum
Τέλος Λειτουργία