소프트웨어 엑셀(64bit) 시작시 기본 한글 입력모드로 VBA

2020.10.28 14:01

지후빠 조회:1163 추천:12

안녕하십니까? 요즘 집사람 오더를 받아 엑셀 VBA 제작에 집중하고 있어 윈포를 자주 못 봤습니다.

 

얼마전 폰으로 잠깐 봤을때 엑셀 시작시 기본 한글 입력모드로 만들어주는 추가기능을 찾는 질문이 있었습니다.

아침에 찾아보니 그 게시물을 못 찾겠습니다. 혹시 게시물 위치 아시는 분 계시면 링크 부탁드립니다.

 

오피스 64bit 나오면서 VBA에서 win32api 선언에 64bit 형식이 추가되어서 기존 32bit용을 64bit에 사용시 오류가 납니다.

구글에서 vba win32api 64bit 로 검색하면 정보를 얻을 수 있습니다. 구글 검색 보기

 

이미 32bit용으로 만드신 분이 계십니다.

https://www.officetutor.co.kr/board/DType/bfrmvw.asp?f_tn=Dqa_excel_n2&f_bno=118357&page=58

 

저는 64bit용 선언부만 추가 하였고 한글, 영어 선택이 쉽도록 lang = "KO" 부분을 추가 하였습니다.

한글로 쓰기 위한 것이라 의미는 없겠지만 원본을 존중하는 차원에서...

 

추가 기능 설치는 파일 - 옵션 - 추가 기능 - 이동 - 찾아보기... 로 추가하시면 됩니다. 한글로시작v0.1.1.xlam

엑셀 2016 64bit 에서 테스트 되었습니다. 32bit에서 테스트(댓글에 결과) 부탁드립니다.

 

아래는 코드 부분인데 PtrSafe 추가 되는 것이 핵심입니다. ^^


Option Explicit

 

#If VBA7 Then

    Private Declare PtrSafe Function GetActiveWindow Lib "user32.dll" () As Long

    Private Declare PtrSafe Function ImmGetContext Lib "imm32.dll" (ByVal hwnd As Long) As Long

    Private Declare PtrSafe Function ImmGetConversionStatus Lib "imm32.dll" (ByVal himc As Long, lpdw As Long, lpdw2 As Long) As Long

    Private Declare PtrSafe Function ImmSetConversionStatus Lib "imm32.dll" (ByVal himc As Long, ByVal dw1 As Long, ByVal dw2 As Long) As Long

#Else

    Private Declare Function GetActiveWindow Lib "user32.dll" () As Long

    Private Declare Function ImmGetContext Lib "imm32.dll" (ByVal hwnd As Long) As Long

    Private Declare Function ImmGetConversionStatus Lib "imm32.dll" (ByVal himc As Long, lpdw As Long, lpdw2 As Long) As Long

    Private Declare Function ImmSetConversionStatus Lib "imm32.dll" (ByVal himc As Long, ByVal dw1 As Long, ByVal dw2 As Long) As Long

#End If

 

Private Sub Workbook_Open()

 

    Dim himc          As Long

    Dim dwConversion  As Long

    Dim dwSentence    As Long

    Dim rc            As Long

    Dim temp          As Long

    Dim lang          As String

    

    lang = "KO" '한글 KO, 영어 EN

    

    himc = ImmGetContext(GetActiveWindow())

    rc = ImmGetConversionStatus(himc, dwConversion, dwSentence)

    

    If rc <> 0 Then

        temp = dwConversion

        temp = temp And &H1

        If temp <> &H1 Then

            If lang = "KO" Then

                dwConversion = dwConversion Or &H1  '한글로 시작

            Else

                dwConversion = dwConversion And &HFFFE  '영문으로 시작

            End If

            rc = ImmSetConversionStatus(himc, dwConversion, dwSentence)

        End If

    End If

 

End Sub

 

번호 제목 글쓴이 조회 추천 등록일
[공지] 강좌 작성간 참고해주세요 gooddew - - -
3855 윈 도 우| PE 업데이트 스크립트 V1.13 [19] 히이이잌 2062 40 10-28
» 소프트웨어| 엑셀(64bit) 시작시 기본 한글 입력모드로 VBA [14] 지후빠 1163 12 10-28
3853 윈 도 우| 20H2에서 예전 시스템 정보 보는 명령어 [12] 현토리 2202 8 10-28
3852 소프트웨어| MS Office 2019 에서 VBA(visual basic) 사용 팁 오호라7 1551 4 10-27
3851 소프트웨어| 배치파일로 각종 대화상자 만들기 (The Wizard's Apprentice) [3] 히이이잌 1175 10 10-27
3850 소프트웨어| 엑셀 활용하여 배치파일 만들기 [8] 히이이잌 1913 10 10-24
3849 소프트웨어| upx 언패킹 강좌 입니다 [15] 줄리아니 1576 8 10-21
3848 윈 도 우| 외장 SSD/HDD 에 멀티부팅 윈투고를 만들어 봅시다. [16] 디폴트 2640 25 10-20
3847 소프트웨어| snapshot지역화도구로 한글화하기-2 [최종] [16] sunshine 1185 14 10-19
3846 하드웨어| VHDMAN 으로 순간 복구 구현하기 (UEFI) [8] gooddew 1967 18 10-18
3845 소프트웨어| snapshot지역화도구로 한글화하기-1 [수정2] [38] sunshine 1697 19 10-17
3844 윈 도 우| 윈도우 7 설치본 드라이버 추가 하기 [8] 디폴트 808 13 10-17
3843 윈 도 우| PE 수정 스크립트 V3.71 [37] 히이이잌 3462 36 10-12
3842 소프트웨어| FASTKEYS 런처 기능 소개 BecauseI 1273 6 10-10
3841 소프트웨어| VHD 교차 부팅으로 순간 복구 구현하기 [14] gooddew 1623 20 10-10
3840 소프트웨어| "열기/다른 이름으로 저장" 창에서 빠른 경로 변... [8] 지후빠 1232 14 10-09
3839 윈 도 우| 윈도우 메모장 노트패드3 로 바꿔쓰기.. [9] 포토엔유 2536 12 10-07
3838 모 바 일| [팁] 아이폰 뒷면 탭 기능 이용한 COVID-19 QR 코드 생성기 [3] asklee 1446 4 10-04
3837 윈 도 우| MS에서 DISM 기능을 축소한것일까요? [2] maniaa 1423 6 10-04
3836 윈 도 우| 멀티부팅부터 Wimboot 만들기까지 (2부) [5] maniaa 980 11 10-03
XE1.11.6 Layout1.4.8