OfficeTutor 365

엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.

"000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.

[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !

[필독] 저작권법 개정에 따른 이용안내

작성자:    update (gskim10) 추천:  2 파일:     조회:  1591 제목:   시트이벤트 실행 안됨 (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 　 [불량 게시물 신고]
slgi If 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)