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 |