나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 update (gskim10)

추천:  0
파일:     조회:  251
제목:   시트이벤트 실행 안됨 (vba)
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 엑셀 버전(95,97,2000,xp,2003,2007):

* 아래줄에 질문을 작성하세요 >>
엑셀과 엑세스를 연동해서 사용하고 있습니다.
발주서 데이터를 엑세스로 올리고, 수정하기 위해서 발주번호 기준으로 불러오고 나면, 아래 내용의 시트이벤트가 실행이 되질 않는데 원인이 무었인지 알수가 없어 글을 올림니다.
수정할 부분이 있으면 어느부분인지 부탁 드립니다.

Private Sub Worksheet_Change(ByVal Target As Range)
    

    If Target.Address = "$D$4" And bGubun <> "2" Then '발주담당
    
        Call DBOpen
            
            S_발주번호 = Cells(4, 4) & Format(Cells(3, 4), "yy-mm") & "-NK"
            
            mySql = "SELECT MAX( 발주순번) + 1 FROM 발주서"
            
            mySql = mySql & " Where 발주담당자 & left(발주번호,len(발주번호)-3) = '" & S_발주번호 & "'"
            
            Call Execute_SQL(mySql)
            
            If IsNull(rs.Fields(0)) Then
                Cells(1, 1) = 1
            Else
                Cells(1, 1) = rs.Fields(0)
            End If
        Call DBClose
    End If
    
    
End Sub
 
[불량 게시물 신고]  
slgiIf Target.Address = "$D$4" And bGubun <> "2" Then '발주담당 
BreakPoint를 위에 걸어서 들어오는지 확인을 해보세요

이벤트가 발생하지 않을 가능성은 낮습니다.(보안설정을 하셨거나 매크로사용을 하셨다면)

Break가 걸렸다면 
bGubun 이 전역변수로 선언되어 있는지 확인해 보세요.
함수내에 선언이 되어 있으며 함수내에서만 동작이 됩니다.  

그래도 이벤트가 발생이 안되면 Excel 파일만 올려주세요
05-24 (14:15)
삭제 ■신고
update등록 할때 강제로 적용되도록 추가 하여 적용 했습니다.
감사 합니다.
06-15 (19:13)
삭제 ■신고
        
  

작성일 : 2021-05-20(18:12)
최종수정일 : 2021-05-20(18:12)