[VBA]

● 중복 제거하는 코드 Sub remove_duplicate() Dim rng As Range, c As Range Dim dc As New Collection Set rng = Range("a1", "a10") On Error Resume Next For Each c In rng If Len(c) Then dc.Add Trim(c), CStr(Trim(c)) End If Next c End Sub

● 선 스타일 Sub LineStyle() Dim ws As Worksheet Dim style_rng As Range 'worksheet acativate Set ws = Worksheets(1) '범위 지정 Set style_rng = Range("a1", "a10") '선제거 style_rng.Borders.LineStyle = xlLineStyleNone '실선 style_rng.Borders.LineStyle = xlContinuous '파선 style_rng.Borders.LineStyle = xlDash '점선 style_rng.Borders.LineStyle = xlDot '이중선 style_rng.Borders.LineStyle = xlDouble End Sub

● 날짜 변수 선언 Dim year As Long, month As Long, day As Long, hour As Long, minute As Long, second As Long year = Format(Date, "yyyy") month = Format(Date, "mm") day = Format(Date, "dd") hour = Format(Time, "hh") minute = Format(Time, "nn") second = Format(Time, "ss") >Date,Time 은 Now에서 분리됨 ● 날짜 데이터 필터 If month = 1 Then Range("B5").AutoFilter Field:=6, Criteria1:=">=" & year - 1 & "-12-01", Operator:..

● 필터 해제 If ActiveSheet.AutoFilterMode Then ActiveSheet.UsedRange.AutoFilter > 필터가 걸려 있다면 필터해제하는 코드이다. 반대로 아래 코드만 쓴다면 ActiveSheet.UsedRange.AutoFilter >필터를 활성화 하는 코드이기도 하다. ● 필터 데이터 모두 보이기 If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData >필터를 해제하지는 않고 필터되어 있는 데이터를 모두 보이게 하는 코드이다.

밑에 코드를 앞단에 '작업소요시간 측정 시작 밑에 있는 코드를 쓰고 마지막에 '작업소용시간 측정 종료 코드를 넣으면 코드 작업시간이 측정 돼서 직접실행창에 입력된다. Sub time() Dim worktime As Single '작업소요시간 측정 시작 worktime = Timer '작업중~~~~ '작업소요시간 측정 종료 Debug.Print "작업시간 : " & Format(Timer - worktime, "#0.00") & " 초" End Sub