우리는 색으로 숫자를 요약 엑셀 VBA에서 프로그램을보고 아래.

상황 :

당신은 2-12 사람에게 돈을 lended있다. 어떤 사람들은 다시 준 (검은 색)에 일부는 여전히 돈 (빨간색)을 빚지고있다. 당신은 여전히받을 얼마나 많은 돈을 알고 싶어요.

Sum by Color in Excel VBA

  1. 먼저, 우리는 형 정수의 두 변수를 선언합니다. toReceive 이름 하나 하나는 내가 이름. 우리는 값이 0으로 변수 toReceive를 초기화

Dim toReceive As Integer, i As

Integer

toReceive = 0
  1. 두 번째, 우리는 다음의 루프를 시작합니다.

For i = 1 To 12
  1. 우리는 지금 각 번호를 확인하고 수의 색이 빨간색 경우에만 우리는 toReceive에 번호를 추가합니다.

If Cells(i, 1).Font.Color = vbRed Then

toReceive = toReceive + Cells(i, 1).Value

End If

루프를 닫을 것을 잊지 마십시오 4..

Next i
  1. 마지막으로, 우리는받을 여전히 돈을 표시합니다. 우리는 CONCATENATE (조인) 두 문자열에 & 연산자를 사용합니다. toReceive은 여기서 일하는 문자열 아니지만.

MsgBox "Still to receive " & toReceive & " dollars"
  1. 당신의 명령 단추에 매크로를 테스트합니다.

결과 :

Sum by Color Result