vba예제(2)
-
엑셀VBA 가로로 정리 된 데이터 세로로 변형하기
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..
2020.04.13 -
(엑셀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