Sub go()

Dim i As Integer

    For i = 1 To 500

        If Cells(i, 2) = "" Or Cells(i, 2) = "거래일자" Then

            Rows(i).Select

            Cells(i, 1).Select

            Selection.EntireRow.Delete

        End If

    Next i

End Sub

대학 오기 전에는 VB6이 주력언어..라기보단 유일하게 할 줄 아는 언어였는데 이젠 다 까먹어간다..ㅠㅠ
은행 거래기록을 xls로 다운로드했는데 자꾸 헤더가 반복되어서 보기 힘들길래 오랜만에 VB코딩.

250: 그냥 4000 * N번 돌리면 되는 말도안되게 쉬운 문제. DIV2인줄...

450: 나는 Dijkstra 한번 돌려서 Shortest Path의 edge만 남겨서 DAG를 만든 다음 위상정렬하면서 DP를 채웠는데(답이 -1인경우는 이 DAG에 가중치 0인게 있는 경우 뿐), 알고보니 그냥 Dijkstra 하면서 DP배열을 같이 채우면 되는거였다.

1000: 모르겠다 ㅎㅎ

Q) How to use SIGALRM under 1sec?

A) Use ualarm() instead of alarm().

ualarm(useconds_t useconds, useconds_t interval);

--> useconds(단위: microsecond)만큼 지난 뒤 SIGALRM 발생.
      interval이 0이 아니라면 interval(단위는 같음)마다 SIGALRM 발생.

Reference: http://pubs.opengroup.org/onlinepubs/009695399/functions/ualarm.html

'Computer' 카테고리의 다른 글

Excel Macro - Row Removal  (0) 2014.10.27
[연습]SRM 624 Div1  (0) 2014.09.04
DFS / BFS 한 단계씩 보여주는 미로찾기(Linux용)  (0) 2014.08.02
Difference between .so and .dll files.  (0) 2014.08.01
SIC/XE Machine Simulator  (0) 2014.05.26