1. 아별툴
  2. 아별툴 패밀리
  3. 엑셀 질문하기
  4. 엑셀 강좌
  5. 엑셀 팁
  6. 엑셀 자료실
  7. 엑셀 연구과제
  8. 엑셀 북마크
  9. 관련 프로그램 소개

기본 제공 대화 상자 실행하면 초기 값 설정

기타 조회 수 6319 추천 수 0 2010.08.25 17:22:52

자주 가는 카페에 들렀다가, 재미있는 질문을 봐서 관련 정보를 찾아봤습니다.

관련질문: http://cafe.naver.com/xlsvba/11527

 

VBA로 페이지 설정시 실행 속도를 높이기 위해 고민한 결과라고 하네요.

 

Sub dhPageSetup_V()

Application.SendKeys "{enter}" , False
Application.Dialogs(xlDialogPageSetup).Show _
        arg1:="&R(&P/&N)", _
        arg3:=0.62992125984252, _
        arg4:=0.393700787401575, _
        arg5:=0.590551181102362, _
        arg6:=0.31496062992126
End Sub

 

사실 SendKeys는 멍텅구리 자식이라 잘 사용하지 않습니다.

어떨땐 작동하고 어떨땐 안되거든요..

그래서 대안으로 VK(Virtual Key)를 사용하는데.. 음.. 저 분은 어떻게 하실려는지..

 

 

암튼.. 저는 그것보다..

엑셀의 대화상자를 실행시킬 때 초기값을 설정해주는 방식에 눈길이 갔습니다.

위 코드는 페이지 설정창을 실행시킬때, 머릿글에 오른쪽 정렬해서 (페이지수/전체페이지수)를 넣고,

페이지 여백을 설정해주는 것이네요..

 

 

그래서 관련 정보를 더 찾아봤습니다.

ms에서 제공한 기술 문서가 있더군요..

MS 기술문서 : http://support.microsoft.com/kb/110670

 

그렇습니다.

엑셀에서 기본으로 제공하는 대화상자를 호출할때, 초기값을 설정할 수 있었던 것이었습니다.

 

그래서 저는 예전부터 고민에 휩싸였던 선택하여 붙여넣기를 유저폼을 이용해서 구현해보고자 했습니다.

abyul_20100826_pasteByValue.jpg

 

그나저나.. 저 유저폼의 인수들은 어떻게 되는지 알 수가 없습니다.

젠쟝.. MS 기술 문서.. 차례로 인수를 적으면 된다고 하면서.. 유저폼별로 인수가 뭔지를 알려주지 않습니다.

 

그래서 VBA 도움말을 찾아봤습니다.

엑셀에서 Alt+F11을 눌러 VBA 편집창을 띄우고, F1을 눌러서 VBA 도움말 창을 띄웁니다.

검색란에 "대화 상자 인수"라고 입력하고 검색하면 "기본 제공 대화 상자 인수 목록"을 찾을 수 있습니다.

 

 

제 홈페이지의 아래 게시물에 가시면, 

대화상자와 대화상자별 인수들의 목록을 엑셀 파일로 다운 받을 수 있습니다.

http://www.abyul.com/zbxe/70393

 

 

 

선택하여 붙여넣기 창인 xlDialogPasteSpecial을 찾아보니 아래와 같은 인수로 구성되어 있네요..

대화 상자 상수 인수 목록
xlDialogPasteSpecial paste_num, operation_num, skip_blanks, transpose

 

arg1은 paste_num이고, arg2는 operation_num이었습니다.

 

그럼 우리는 값으로 붙여넣기를 하려면 어떻게 해야할 까요?

arg1인 paste_num에 값(V) 옵션에 해당하는 숫자 3을 할당하면 됩니다.

 

Sub pasteByValue_form()
'# xlDialogPasteSpecial 인수목록 : paste_num, operation_num, skip_blanks, transpose
If Application.CutCopyMode Then  '# copy한게 있을 때만 팝업
    Application.Dialogs(xlDialogPasteSpecial).Show arg1:=3
End If
End Sub

 

위 프로시저를 실행시키면, 우리가 원했던 결과가 나옵니다.

"값(V)"가 선택된 채로 선택하여 붙여넣기 창이 실행되는 것이지요.. +_+)b

 

 

자.. 그럼.. 아별툴에서 제공하는 선택하여 붙여넣기 단축키(Ctrl+Shift+V)에 저 프로시저를 할당해야겠습니다.

왜냐구요? 기존의 아별툴의 기능은 엑셀의 실행취소 기록(Undo History)를 없애는 단점이 있었기 때문이죠..

 

유저폼을 이용해서 값으로 붙여넣기를 하면 히스토리를 파괴하지 않을 것이라고 생각했습니다.

흥분했었죠..

 

말투를 보면 아시겠지만.. (과거형이죠..ㅠ_ㅠ)

 

이 짓 또한 헛지꺼리였습니다. =_=;;

 

대화상자를 호출하는 것만으로도 실행취소 히스토리는 파괴되었습니다. 젠쟝.. MS

 

또 다시.. 연구입니다. =_=;;

 

 


문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 기타 엑셀 VBA 간단한 팁 모아놓기.. +_+ [레벨:30]아별 2007-01-24 33814
65 기타 [펌] 한글을 자음 모음으로 나누기 + 합치기(초성,중성,종성) [레벨:30]아별 2022-03-22 2370
64 기타 오피스2010 64bit(64비트)를 위한 API Declare 방법 _ 윈도우 도움말 file [레벨:30]아별 2017-04-21 39344
63 기타 [VBA] 컴퓨터 이름 알아내기 등 PC 환경 변수 읽오이기.. Environ [레벨:30]아별 2015-04-08 4395
62 기타 [VBA] 엑셀 파일을 PDF로 저장(EXPORT) 시키기 [1] [레벨:30]아별 2015-01-21 7338
61 기타 [펌] 추가 기능 개발시 리본메뉴에 넣을 MSO Image 쉽게 확인하기 imagefile [레벨:30]아별 2015-01-09 3431
60 기타 엑셀 2013에서 웹 브라우저 컨트롤(ActiveX, web browser)을 시트에 삽입할 수 없는 문제.. imagefile [레벨:30]아별 2014-01-19 7309
59 기타 [ VBA Tip ] 엑셀 VBA로 사진(JPG)의 EXIF 정보(GPS 포함) 불러 들이기.. imagefile [6] [레벨:30]아별 2012-02-27 7885
58 기타 VBA로 인디언식 이름 만들어주는 사용자 정의 함수 만들기.. imagefile [1] [레벨:30]아별 2012-01-11 5596
57 기타 오피스2010 64bit(64비트)를 위한 API Declare 방법 file [2] [레벨:30]아별 2011-10-05 9213
56 기타 [펌] VBA 공부를 시작하시는분들에게 추천하는 강의자료 imagefile [4] [레벨:30]아별 2011-03-21 13696
55 기타 VBA _ 레지스트리 다루기 ( registry control ) imagefile [레벨:30]아별 2011-03-19 8668
54 기타 엑셀에서 소리 내기(재생) _ sound play file [1] [레벨:30]아별 2010-12-13 7382
53 기타 헷갈리기 쉬운 워크시트 함수와 VBA함수 비교표 imagefile [레벨:30]아별 2010-10-05 6633
» 기타 기본 제공 대화 상자 실행하면 초기 값 설정 imagefile [레벨:30]아별 2010-08-25 6319
51 기타 [펌] 엑셀 VBA 총정리 _ Excel 개체 모델 참조 등 image [2] [레벨:30]아별 2010-03-09 15915
50 기타 [링크] VBA로 파일을 다루는 방법에 대한 강좌들을 모아놓은 겁니다. [레벨:30]아별 2010-03-03 9824
49 현재 엑셀 파일의 색상표(Color Chart) 확인용 코드 [레벨:30]아별 2009-12-24 7168
48 [펌] Visual Basic (비쥬얼 베이직) 함수 정리 imagefile [레벨:30]아별 2009-11-27 20067
47 엑셀 사용자 정의 수식(UDF)에 도움말 넣는 방법. [레벨:30]아별 2009-11-11 5776
46 Excel에서 메뉴 및 메뉴 모음을 사용자 지정하는 방법 image [레벨:30]아별 2009-11-04 7327