엑셀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