Нові
 Питання

Як підсумувати жирні числа в діапазоні клітинок в Excel

  Kutools для Excel
TikTokOfOz
  TikTokOfOz
  Неділю, 15 травня 2022
  1 відповіді
  5.7 тис. Відвідувань
0
Голосів
розстібати
Здравствуйте.
це 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 Rng як дальність
Dim xSum As Long
Для кожного кільця в робочому кільці
Якщо Rng.Font.Bold Тоді
xSum = xSum + Rng.Value
End If
МАЙБУТНІ
SumBold = xSum
End Function
0
Більш старі першими  
Аманда Лі
Аманда Лі
1 рік тому
·
# 2707
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
На цю посаду ще немає відповідей.