​ ​ Q: vba로 프린터 목록을 선택하고, 그 프린터이름을 가져올 수 있나요? ​ A : xlDialogPrinterSetup 이라는 기능으로 프린트 선택창을 띄울 수 있습니다. ① 프린터 선택 창을 띄운다. ② 프린터를 선택한다. ③ 선택한 프린터의 이름을 가지고 출력 등 활용을 한다. Sub teset9() '// 프린트 선택 창 띄움 Application.Dialogs(xlDialogPrinterSetup).Show '// 선택 한 활성화 된 프린터의 이름 출력 Cells(1, 1) = Application.ActivePrinter End Sub 참고자료 https://docs.microsoft.com/en-us/office/vba/api/excel.application.dialogs

Sub Test() Dim m As Workbook Dim ms As Worksheet Set m = Workbooks(ThisWorkbook.Name) For Each ms In m.Sheets If ms.Name = "청라" Then Set ms = ms Dim i As Integer: Dim j As Integer Dim START_ROW As Integer: Dim START_COL As Integer Dim outv As Variant '// (1 To 7) : Row : tctype ReDim outv(1 To 7, 1 To 1) START_ROW = 13 START_COL = 4 Dim r As Integer: r = 1 '// 우측으로 이름 반복 For i = 4 To ms.Cells(ST..

1. 상단 맞춤 Range(“A1:B1”).VerticalAlignment = xlTop 2. 가운데 맞춤 Range(“A1:B1”).VerticalAlignment = xlCenter 3. 하단 맞춤 Range(“A1:B1”). VerticalAlignment = xlBottom 1. 좌측 정렬 Range(“A1:B1”).HorizontalAlignment = xlLeft 2. 가운데 정렬 Range(“A1:B1”).HorizontalAlignment = xlCenter 3. 우측 정렬 Range(“A1:B1”).HorizontalAlignment = xlRight

Dim rng as Range Set rng = Range(“A2:C6”) rng.RemoveDuplicates Columns:=Array(1, 2, 3,), Header:=xlNo 'A, B, C 기준 잡고 중복제거

엑셀 내 배열에서 날짜를 비교하여 가장 최신 날짜를 뽑아내는 코드 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 Var..

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..