VBA(40)
-
엑셀 VBA 가운데 정렬, 좌측 정렬 예제
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
2020.04.13 -
엑셀 VBA 중복제거 RemoveDuplicate
Dim rng as Range Set rng = Range(“A2:C6”) rng.RemoveDuplicates Columns:=Array(1, 2, 3,), Header:=xlNo 'A, B, C 기준 잡고 중복제거
2020.04.13 -
VBA 배열 내에서 날짜비교 최신날짜 가져오기 (MAX 미사용)
엑셀 내 배열에서 날짜를 비교하여 가장 최신 날짜를 뽑아내는 코드 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..
2020.04.13 -
엑셀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) VBA를 이용해서 CMD 명령어 실행하자
VBA를 이용해서 CMD 명령어를 사용할 수 있습니다. 간단한 명령어 이지만 여러모로 유용하게 사용할 수 있어요~ ALT + F11 를 입력해서 확인 해보세요. 1. CMD를 실행 한다 2. CD "현재경로" 이동한다. 3. mkdir "aaaaa" 폴더를 만든다. Sub Test() Dim m As Workbook: Set m = Workbooks(ThisWorkbook.Name) Dim ms As Worksheet: Set ms = m.Sheets(1) '@ Sheet 지정 '# Shell 을 사용하기 위해 선언 Dim wsh As Object: Set wsh = VBA.CreateObject("WScript.Shell") '# """" 경로 """" 해주는 이유는 띄어쓰기가 있는 경우를 위함..
2020.04.10 -
엑셀 VBA 특정 단어 포함 된 내용 찾아서 값 지우기
위와 같은 표의 경우에 아래의 조건을 만족할 때만 돌아가도록 해야 한다. For문을 1단계씩 늘리면 조건비교할 때 숫자 부분도 지워버릴 수 있기 때문. 조건1 : 특정 단계를 포함하는 단계의 값을 지운다. 조건2 : 모두 2칸씩 정해져있기 때문에 J + 1칸도 지워야 한다. Sub test() '======================================================== With Application .ScreenUpdating = False '매크로 동작, 화면에 안 나타남 .DisplayAlerts = False '클립보드 경고 메시지 안 나타남 .Calculation = xlCalculationManual ' 자동 계산 방지 End With '=================..
2020.04.09