0
расстегивать
Голосов
Здравствуйте.
Эта 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 как диапазон)
'Обновление 20131202
Уменьшить кольцо как диапазон
Dim xSum как долго
Для каждого кольца в WorkRng
Если Rng.Font.Bold Тогда
xSum = xSum + Rng.Значение
End If
Следующая
Сумма жирным шрифтом = хСумма
End Function
0
расстегивать
Голосов
Всем привет,
Спасибо за отзыв, я уже обновляю код в статье.
Пожалуйста, используйте код ниже:
Если у вас есть дополнительные вопросы, пожалуйста, не стесняйтесь, дайте мне знать.
Аманда
Спасибо за отзыв, я уже обновляю код в статье.
Пожалуйста, используйте код ниже:
Function SumBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xSum As Double
For Each Rng In WorkRng
If Rng.Font.Bold Then
xSum = xSum + Rng.Value
End If
Next
SumBold = xSum
End Function
Если у вас есть дополнительные вопросы, пожалуйста, не стесняйтесь, дайте мне знать.
Аманда
- Страница:
- 1
Там нет ответов, сделанные на этот пост пока нет.