컴퓨터를 만나는 기쁨

PrintOut 메서드를 이용해서 ActiveSheet.PrintOut to:=1, ActivePrinter:="Microsoft Print to PDF" 라고 매크로를 작성할 수도 있지만 ExportAsFixedFormat 메서드를 이용해 PDF 파일 포맷으로 저장할 수 있습니다. 1. 구문expression.ExportAsFixedFormat (Type, FileName, Quality, IncludeDocProperties, IgnorePrintAreas, From, To, OpenAfterPublish, FixedFormatExtClassPtr) expression은 Worksheet 또는 Workbook가 될 수 있습니다. 인수는 아래와 같습니다.인수 명필수/선택데이터 형식설명Type필수xlFi..

다른 것은 아래 글을 읽어 보면 알 수 있으므로 생략하고, https://lsw3210.tistory.com/entry/Cell%EC%9D%98-%EC%86%8D%EC%84%B1%EC%9D%84-%EC%95%8C%EB%A0%A4%EC%A3%BC%EB%8A%94-Cell-%ED%95%A8%EC%88%98-1 아래 네 가지만 다뤄보겠습니다. 나. "type" 빈 셀인 경우 b(lank), 텍스트인 경우는 l(etter), 숫자, 날짜, 참과 거짓 값인 경우 v(alue)가 반환됩니다. 다. "contents" 참조 영역의 맨 왼쪽 위 셀의 값을 반환합니다. ① 단일 셀을 지정한 경우 참조로 단일 셀을 지정하는 경우는 그 셀의 값을 반환합니다. A4셀이 수식이더라도 값을 반환합니다. ② 범위를 지정한 경우 범..

1편에서 범위를 다뤘는데, Microsoft 도움말에 있는 예제를 하나 더 알아보겠습니다. 1. 3개 셀 선택 Sub Cbm_Value_Select() 'Set up the variables. Dim rng As Range 'Use the InputBox dialog to set the range for MyFunction, with some simple error handling. Set rng = Application.InputBox("Range:", Type:=8) If rng.Cells.Count 3 Then MsgBox "Length, width and height are needed -" & _ vbLf & "please select three cells!" Exit Sub End If 'Ca..

아래 글에서 정해진 범위를 복사해서 정해진 영역에 붙여 넣는 매크로를 다뤄봤는데, https://lsw3210.tistory.com/m/163 아래와 같이 A1셀부터 A5셀까지 데이터가 있는데, B1셀에 붙여 넣으려면 위 글에 의한 방식으로 하면 Range("A1:A5").Copy Destination:=Range("B1")이라고 모듈 1에 작성하면 됩니다. 모듈을 작성하려면 개발도구 - Visual Basic 명령을 누른 다음 Visual Basic Editor에서 삽입 - 모듈 메뉴를 눌러 모듈을 추가한 다음 코드 창에 아래와 같이 입력하고 Sub 복붙1() Range("A1:A5").Copy Destination:=Range("B1") End Sub 복붙1이라는 sub 프로시저 안에 커서를 넣은 다..

사용자 정의함수를 작성하는 방식은 Function 함수이름(인수명1 as type , 인수명2 as type, Optional 인수명3 as type = 기본값) 처리 루틴 함수이름 = 결과값 End Function 입니다. 1. Function으로 시작해서 End Funciton으로 끝나며, 그 사이에 처리 루틴을 작성하고, 함수명으로 rerurn값을 지정합니다. 2. 인수는 필요한 만큼 넣으면 되며, 숫자인지 문자인지 형식을 명확히 하기 위해 type을 지정해 주고, 예, i as Integer, search_cell as Range, 날짜1 as Date type은 입력시 소문자로 입력해도 알아서 대문자 등으로 변환되므로 대,소문자는 신경쓰지 않아도 됩니다. ​ 2. optional이란 인수가 꼭 ..