^^; 첨에 첨부파일이 없었 던것 같은데요
Sub 건수() Dim i As Integer Dim 시작일시 As Date 시작일시 = DateSerial(2008, 9, 2) + TimeSerial(14, 0, 0) i = Application.CountIf(Columns(1), ">" & Format(시작일시, "yyyy-mm-dd hh:mm")) MsgBox iEnd Sub
첫댓글 훌륭합니다. 고맙습니다.
^^;
함수로 처리하시면 안되나요? =COUNTIF(A:A,">"&DATE(2008,9,2)+TIME(14,0,0)) 결과가 일치하는거 같습니다.
함수로 해되 되지만 VBA로 처리해야만 하는 사정이 있는듯 합니다. 형님 ^^
첫댓글 훌륭합니다. 고맙습니다.
^^;
함수로 처리하시면 안되나요? =COUNTIF(A:A,">"&DATE(2008,9,2)+TIME(14,0,0)) 결과가 일치하는거 같습니다.
함수로 해되 되지만 VBA로 처리해야만 하는 사정이 있는듯 합니다. 형님 ^^