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

작성자:  

 오범석 (cidaks501)

추천:  2
파일:     조회:  1480
제목:   vba 고수님들 질문드립니다. ㅠ
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

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

* 아래줄에 질문을 작성하세요 >>

Private Sub CE_OP_ADD_B_Click()
    Application.ScreenUpdating = False
    Sheet01.Unprotect "pass"
    
    If Not IsNumeric(OperatingModeCount.Value) Then GoTo ER
    If OperatingModeCount > 10 Then GoTo ER
    
    For i = 1 To OperatingModeCount
        Range("OpEnd").Offset(-2).EntireRow.Copy
        Range("OpEnd").Offset(-1).EntireRow.Insert shift:=xlDown
        Application.CutCopyMode = False
    Next i
    Application.ScreenUpdating = True
    GoTo Clear
    
ER:
    MsgBox "1 부터 10까지 숫자를 입력하세요"
Clear:
    OperatingModeCount.Value = ""
    Application.CutCopyMode = False
    Sheet01.Protect Password:="pass"

End Sub

---------------------------------------------------------------

유저폼을 이용해서 서식 및 함수가 포함된 행을 추가하는 기능입니다.

제대로 작동 하다가도,

파일을 열어둔지 조금 지나서 다른 작업등을 하다가 해당 매크로를
실행하면

여러줄을 입력해도 한줄만 복사가 된 뒤 cutcopymode가 취소가 되지않고

다른 행을 선택해도 선택한 셀 주변의 녹색테두리가 보이지 않는 등의

현상이 자주 발생합니다.

보통은 그상태에서 저장 후 다시 불러와서 사용하면 다시 잘 되기도 하다가

어떤 때는 저장 후 불러와도 같은 상태일 경우도 발생 합니다.

원일이 뭘까요 ㅠ

고수님들 도움 부탁 드립니다.
 
[불량 게시물 신고]  
        
  

작성일 : 2019-05-30(16:59)
최종수정일 : 2019-05-30(16:59)