일요일 15 월 2022
  1 답글
  5.3K 방문
0
투표
취소
헬로우~~
이 ExtendOffice 기사에서는 굵게 표시된 숫자 값을 계산하기 위해 모듈에 일부 코드를 삽입하는 방법을 설명합니다.
https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3

그러나 코드 소수점 이하 자릿수 무시 부정확한 결과를 반환합니다(특히 작은 값을 처리할 때).

이를 테스트하기 위해 "0.5" 이하의 값을 가진 다수의 굵게 표시된 셀을 채웠습니다. 코드는 그것들을 모두 "0"으로 처리하여 결과적으로 0.51으로 계산되었습니다. 그러나 "1" 이상의 값을 입력하면 모두 "XNUMX"로 반올림되어 결과를 완전히 잘못 계산했습니다.

누구든지 이것에 대한 수정 사항이 있습니까? 코드는 다음과 같습니다.

함수 SumBold(WorkRng As Range)
'업데이트 20131202
범위로 딤 Rng
딤 xSum As Long
WorkRng의 각 Rng에 대해
Rng.Font.Bold인 경우 다음
xSum = xSum + Rng.값
END IF
다음 보기
SumBold = xSum
최종 기능
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
이 게시물에 대한 답변이 없습니다.