VBA와 별개의 양의 값을 추가
긍정적이고 고유 한 값만 추가 할 수있는 방법이 궁금한 경우이 문서가 적합합니다.
이 기사에서는 VBA 코드를 사용하여 Excel에서 고유 한 양수 값만 추가하는 방법을 배웁니다.
질문) : 매크로가 음수와 양수를 포함하는 지정된 범위의 고유 한 양수를 모두 합하기를 원합니다.
다음은 우리가 가지고있는 데이터의 스냅 샷입니다.
아래 단계를 따라야합니다.
개발자 탭을 클릭하십시오. 코드 그룹에서 Visual Basic을 선택하십시오
표준 모듈에 다음 코드를 입력하십시오.-
Function AddUnique (ByRef inputrange As Range, _
Optional IgnoreText As Boolean = True, _
Optional IgnoreError As Boolean = True, _
선택적 IgnoreNegativenumbers As Boolean = True)
Dim distinctnumbers As Double
범위로 셀 흐리게하기
Dim dict As Object
Set dict = CreateObject ( “Scripting.dictionary”)
고유 번호 = 0
각 셀의 경우 inputrange.Resize (inputrange.Rows.Count, 1)
cval = cell.Value
If IgnoreText Then
그렇지 않은 경우 (VBA.IsNumeric (cval)) Then cval = 0
그렇지 않으면
AddUnique = CVErr (0)
종료 기능
End If
===
If IgnoreError Then
If IsError (cval) Then cval = 0
그렇지 않으면
AddUnique = CVErr (1)
종료 기능
End If
만약 IgnoreNegativenumbers Then
cval <0이면 cval = 0
그렇지 않으면
AddUnique = CVErr (2)
종료 기능
End If
If Not dict.Exists (cval) Then
dict. cval, cval 추가
고유 번호 = 고유 번호 + cval
End If
다음
AddUnique = 고유 번호
끝 기능
-
C2 셀에서 공식은
* = AddUnique (A2 : A6)
-
코드가 반복 된 값을 무시하는지 확인하려면; A1 셀의 값을 50으로 변경하고 결과를 확인하겠습니다.
이런 식으로 매크로 코드를 통해 뚜렷한 양의 값을 추가 할 수 있습니다.
//wp-content/uploads/2015/06/Download-Sample-File-xlsm.xlsm[Download-Sample File-xlsm]