<DIV>
<P>========================================================================================</P>
<P>현재 사용하는 엑셀 버젼을 기재하시면 좀더 <SPAN style="FONT-SIZE: 11pt"><STRONG><FONT color=#112a75>정확하고 신속한 답변</FONT></STRONG></SPAN>을 얻으실 수 있습니다. </P>
<P> </P>
<P><STRONG><SPAN style="FONT-SIZE: 11pt">엑셀 버젼(<FONT color=#e31600>예: 2007</FONT>) : 2007</SPAN></STRONG></P>
<P><STRONG><SPAN style="FONT-SIZE: 11pt"></SPAN></STRONG>========================================================================================</P>
<P>저번건은 if~ElseIf call로 해결 했는데요 이번에 추가 하고 싶은 상황이라 ....</P>
<P>질문이 보시면 B2에서 1부터 20증가시 시트2에 있는 자료에 의해 0과 다른 숫자가 나올겁니다,,, 여기서 0외의 숫자가 특정 숫자 상관 없이 C2에 몇번 나왔 는지... 그 결과를 G3에 나타나게 하고 싶은데요 방법이... 총 6번 나왔으니 ..결과에6------2007</P></DIV>
<!-- -->
C2 함수의 에러를 제거하고 =IFERROR(IF($B2="","",VLOOKUP($B2,Sheet2!$A:$C,2,0)),"")
Sub 증가() Dim i As Long Dim xCount As Long Dim FindVal
On Error Resume Next FindVal = 0 For i = 1 To 20 Cells(2, "b") = Cells(2, "b") + 1 If Range("C2") = FindVal Then xCount = xCount + 1 End If Next i Range("G3") = xCount End Sub
첫댓글 반갑습니다... [아이니오]님...
굳이 VBA를 이용해야 할 필요없이 간단히 수식으로 해결하셔도 가능합니다.
=COUNTIF(Sheet2!B1:B20,"<>0")
그럼 잘 해결되시길... ^^*
죄송합니다만 시트2의 자료는 예라 이 상황이 vba로 필요한 상황이라서요....
C2 함수의 에러를 제거하고
=IFERROR(IF($B2="","",VLOOKUP($B2,Sheet2!$A:$C,2,0)),"")
Sub 증가()
Dim i As Long
Dim xCount As Long
Dim FindVal
On Error Resume Next
FindVal = 0
For i = 1 To 20
Cells(2, "b") = Cells(2, "b") + 1
If Range("C2") = FindVal Then
xCount = xCount + 1
End If
Next i
Range("G3") = xCount
End Sub
답변 감사합니다...0의 개수를 설정 했네요 전 0 외의 숫자가 나왔을때 조건인데 암튼 답변 감사합니다...~~