VBA를 사용하여 아래 셀이 비어 있는지 확인

VBA를 사용하여 아래 셀이 비어 있는지 확인

아래 셀이 비어 있는지 확인하려면 엑셀에서 VBA를 어떻게 사용해야 합니까?특정 범위의 값을 모두 합산하고 싶지만, 아래 셀이 비어 있지 않은 경우에만 해당됩니다.

VBA나 다른 방법으로 가능한 일입니까?

예:

4 2 3 2 1
2   3 1

합은 4 + 3 + 2 = 9 입니다.

이 간단한 코드를 사용해 보십시오.

If IsEmpty(ActiveCell.Offset(1, 0)) Then
'your code here
End If

이것에 대한 공식을 추천합니다.

공식

=SUMPRODUCT((A1:E1)*(A2:E2<>""))

스냅샷

그래도 VBA를 원하신다면.

VBA

Option Explicit

Sub Sample()
    Dim rng As Range
    Dim Cl As Range
    Dim tot As Long

    Set rng = Range("A1:F1")

    For Each Cl In rng
        If Len(Trim(Cl.Offset(1))) <> 0 Then tot = tot + Cl.Value
    Next

    Debug.Print tot
End Sub

실제로 VBA에는 여러 버전이 있을 수 있습니다.위 수식도 평가할 수 있습니다.예를들면

Option Explicit

Sub Sample()
    Debug.Print Evaluate("=SUMPRODUCT((A1:E1)*(A2:E2<>""""))")
End Sub

다른 데이터베이스에서 데이터를 내보낼 때 'Is Empty'만 사용하는 데 문제가 있었습니다.이것이 제가 개발한 기능입니다.

Function IsVacant(TheVar As Variant) As Boolean
  'LeandraG 2010

  IsVacant = False

  If IsEmpty(TheVar) Then IsVacant = True
  If Trim(TheVar) = "" Then IsVacant = True
  If Trim(TheVar) = "'" Then IsVacant = True


End Function

절망적인 사람들을 위해: 때때로 엑셀 셀은 비어있는 것처럼 보이지만, 확인해보면 공간 문자와 같은 보이지 않는 것이 포함되어 있을 수도 있습니다.그러면 모든 Is Empty 기능과 IsNull 기능은 도움이 되지 않습니다.

언급URL : https://stackoverflow.com/questions/10263644/using-vba-to-check-if-below-cell-is-empty