컴퓨터/엑셀

vba countifs 함수 "문자"

풍경소리^^ 2018. 6. 6. 10:30

Sub U열계산()
Dim rng As Range

Dim rowsCnt As Integer
Dim Temp1 As String
Dim Temp2 As String
Dim Str1 As String
Dim Str2 As String

    rowsCnt = Cells(Rows.Count, "d").End(3).Row
    Set rng = Range(Cells(2, "F"), Cells(rowsCnt, "F"))

    Range(Cells(2, "U"), Cells(Rows.Count, "U")).ClearContents
   
    Str1 = "사입요망"
    Str2 = "출고대기"
    Temp1 = "$F$2:$F$" & Cells(Rows.Count, "F").End(xlUp).Row
    Temp2 = "$O$2:$O$" & Cells(Rows.Count, "O").End(xlUp).Row
  
    With rng.Offset(0, 15)
        .Formula = "=countifs(" & Temp1 & ",$F2, " & Temp2 & ", " & Chr(34) & Str1 & Chr(34) & ") +COUNTIFS(" & Temp1 & ", $F2, " & Temp2 & ", " & Chr(34) & Str2 & Chr(34) & ")"
        .Value = .Value
    End With
   
    Cells(2, "U").Select

End Sub

'컴퓨터 > 엑셀' 카테고리의 다른 글

vba 행번호매기기  (0) 2018.06.06
vba countif 함수 현재행  (0) 2018.06.06
vba countifs  (0) 2018.06.04
공부할것  (0) 2018.06.03
행번호매기기  (0) 2018.06.03