실마리

매크로 설명 파워포인트 슬라이드에 있는 그림들을 일괄적으로 저장하는 코드를 응용. 파워포인트에 사용된 모든 이미지를 특정 폴더 안에 그 폴더 이름으로 저장하는 매크로이다. 매크로 실행 동영상 VBA Code Option Explicit Sub picSaveAs() Dim i As Long, cnt As Long Dim savePath As String, folderName As String Dim pic As Shape Dim targetFormat As String targetFormat = ".PNG" '그림을 저장할 형식은 PNG With Application.FileDialog(msoFileDialogFolderPicker) .Show If .SelectedItems.Count = 0 Then '..

S Y N O P S I S #가성비킹 #배터지게 먹음 #맛있음 #주차 편함 #분위기 좋음 #깔끔함 # 미카도스시 회전초밥(사당) 사당역보다 이수역에 가까이 위치한 회전초밥 집이다. # 식당 전경. 앞 쪽에 3대 정도 주차할 수 있는 공간이 있다. # 가성비를 내세운 회전초밥집이 대개 좁은데, 여기는 탁 트인게 좋다. # 모~~든 메뉴를 접싯가(1,500)로 계산한다. # 장국도 접시에 내놓고, 우동도 접시로 내놓는다. 이것도 1,500원 # 회전초밥집 매너 '레일에서 내린 초밥은 다시 올리지 않는다.' 요것만 지키면 된다. # 차가운 초밥은 데워달라고 하면 친절하게 데워준다. # 레일에 없는 메뉴는 달라고 하면 바로 만들어서 준다. # 육사시미(이것만 3접시 먹었다.) # 새우 # 연어

매크로 설명 선택한 폴더 내의 이미지 파일 확장자를 변경하는 매크로. 선택한 폴더 안에서 미리 설정한 확장자(예컨대, JPG)를 원하는 확장자(예컨대, PNG)로 다시 저장해주는 매크로. 일일이 파일을 불러와서 저장할 필요없이 일괄적으로 변경 가능하다. 아래 VBA Code 중 폴더를 선택하고 폴더 내 파일들을 순환하는 코드는 니꾸님의 블로그를 참조하였음을 밝힌다. 매크로 실행 동영상(실행 방법 포함) VBA Code Sub img_batch_convert() Dim myFileName As String '불러올 파일명 변수 Dim strPath As String '불러올 파일이 있는 경로변수 Dim myFormat As String '불러올 파일의 확장자 변수 Dim targetFormat As Str..

S Y N O P S I S #VBA로 웹페이지 소스코드 리턴 URL로 설정된 웹페이지 주소의 소스코드를 따오는 매크로. 다시 말하면, 웹페이지에서 소스보기를 했을 때 나타나는 내용 모두를 myText 변수로 반환하는 매크로. VBA Code Sub web_source() Dim Http As Object Dim myText As String, myURL as String myURL = "http://www.naver.com" Set Http = CreateObject("MSXML2.XMLHTTP") 'Set Http = CreateObject("WinHTTP.WinHTTPrequest.5.1") '개인적으로 선호 Http.Open "GET", myURL, False Http.send myText = H..

# -- # -- # -- # --

# 런던으로 가기 전 인천국제공항에서 한 컷. # Holiday Inn. 곳곳에 널렸다. 시설은 나쁘지 않다.# 흡연 객실과 금연 객실을 따로 둔다. 팁은 받는다고 한다(프랑스는 팁문화가 거의 없다고 봐야).# 다른 숙박시설은 안가봐서 모르겠다만, 화장실이 정말 별로다(프랑스도 마찬가지).# 화장실 내에 배수구가 없어서 커튼을 치지 않고 샤워를 하면 욕실을 금새 바다로 만들 수 있다(우리나라에도 이런 호텔이 몇 군데 있음..). # 영국은 아파트가 거의 없다고 한다. # 앨버트 기념비. 이 정도로 어마어마한 기념비가 세워질 정도의 사연이 있었는데, 정확히 기억이 안 난다.# 하여튼 기념비를 세워달라고 해서 세웠다고 한다. # 하이드 파크(Hyde Park) 영국에서 가장 큰 공원 중 하나. # 빅벤을 보..

## 첫 번째 시트 "A"열의 빈셀 또는 빈셀이 있는 행을 윗머리 행과 같은 내용으로 채우는 매크로## 데이터를 다루다보면 빈 행은 껄끄러운 존재다. 특히 필터를 거는 경우에는 더더욱 그렇다.## 회사 일을 하면서 가장 많이 쓰는 매크로 중 하나이다. VBA Code Option Explicit Sub duplicate_headrow() Dim myItem Dim mySheet As Worksheet Dim i As Long, lastNum As Long Dim myCol As String Set mySheet = Sheets(1) '대상시트 설정(첫 번째 시트) myCol = "A" '빈행을 채울 열 번호(A열) With mySheet.UsedRange lastNum = .Row + .Rows.Coun..

매크로 설명 첫 번째 시트 "A"열의 빈셀 또는 빈셀이 있는 행 전체를 삭제하는 매크로 이 방법 외에도 SpecialCells 메서드로 빈행을 찾아서 없앨 수 있다. (방법은 많다.) 많은 데이터가 아니거나 손이 많이 가지 않는다면, 자동필터를 이용해서 빈 필드는 제외하고 따로 복사하는 방법을 추천한다. VBA Code 예시 Option Explicit Sub empt_row_del() Dim i As Long Dim lastRow As Long Dim targetCol As String Dim mySheet As Worksheet Set mySheet = Sheets(1) 'mySheet를 첫 번째 시트로 설정, 다른 시트가 필요하다면 변경 With mySheet.UsedRange lastRow = ...

## XML 형식으로 이루어진 텍스트에서 필요한 데이터만 잘라내기 위해 VBA Split 함수를 사용한다.Split 함수는 특정 문자열에서 "구분자"를 통해 나눠지는 각 문자열을 "배열로" 반환한다.Split 함수를 엑셀의 SUM 함수처럼 자유자재로 쓴다면(그정도로 써야한다) 문자열을 처리하는 데 있어서 활용성이 매우 높은 함수이다. ## Split 함수 구문 Split 함수의 구문은 다음과 같다. Split(Expression, [Delimiter], [Limit], [Compare]) Expression은 텍스트로써, 필수요소이다. Delimiter는 구분자로써, 선택요소이다. 생략하면 공백(" ")이 기본값이다. Limit은 반환할 문자열 길이이다. 생략하면 기본값은 -1로 전체 문자열을 반환한다...