배열(2)
-
엑셀VBA 배열안에서 가장 최신의 날짜를 뽑아내기
Sub test() Dim m As Workbook Dim ms As Worksheet Set m = Workbooks(ThisWorkbook.Name) Set ms = m.Sheets("Sheet2") Dim v() As Variant Dim r As Integer ReDim v(1 To 1) '임시로 배열 생성 v = Array("2020-04-01", "2020-04-09", "2020-04-02") Dim strResult As String strResult = return_recentDate(v) Debug.Print (strResult) End Sub Function return_recentDate(ByRef v() As Variant) As String ' 버블 정렬 First = LBoun..
2020.04.10 -
VBA 배열과 Range의 속도차이!
100,000행에 "ㅎㅎ" 라는 글자를 넣는 업무를 한다고 하면! Range를 사용해서 넣었을 때와 배열을 사용해서 넣었을 때의 속도차이를 보겠다. 우선 Range를 사용하여 "ㅎㅎ"라는 글자를 넣는다. Range : 100,000 행에 "ㅎㅎ" 라는 글자 채우기 : 1.63초 [Range 사용] Sub test() Dim m As Workbook: Set m = Workbooks(ThisWorkbook.Name) Dim ms As Worksheet: Set ms = m.Sheets(ActiveSheet.Name) Dim oldTime As Single: oldTime = Timer Dim rng As Range, rn As Range Set rng = ms.Range("A1:A100000")..
2020.01.08