|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007):2016
* 아래줄에 질문을 작성하세요 >>
OS를 32비트에서 64비트로 변경 후 32비트 엑셀에서 사용하던 화일을 열면
컴파일 오류입니다. 이프로젝트의 코드를 업데이트해야 64비트 시스템에서 사용할 수 있습니다. Declare문을 검토하고 업데이트한 다음 PtrSafe 특성으로 표시 하십시요"
라는 메세지가 뜹니다.
기존32에서 사용하는 소스는
Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const Vk_Lbutton = &H1 '마우스 좌측버튼
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If GetAsyncKeyState(Vk_Lbutton) <> 1 Then Exit Sub '좌측버튼이 눌려있으면 끝냄
If Target.Count > 1 Then Exit Sub
With Target.EntireRow
Cells.FormatConditions.Delete
.FormatConditions.Add 2, , 1
.FormatConditions(1).Interior.ColorIndex = 17
End With
End Sub
어떻게 수정해야 하는지요?
소스도 인터넷에서 얻어 사용하는 초보인지라.문의 드려 봅니다.
항상 즐거운 날 되세요 |
|