그러나 코드 소수점 이하 자릿수 무시 부정확한 결과를 반환합니다(특히 작은 값을 처리할 때).
이를 테스트하기 위해 "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
최종 기능
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
이 게시물에 대한 답변이 없습니다.
답장을 게시하려면 로그인하십시오
회신을 게시하려면 로그인해야합니다. 오른쪽의 양식을 사용하여 로그인하거나 여기에 새로 가입 한 경우 계정을 등록하십시오. 여기에서 등록»