☰

Excel 모호한 이름이 감지되었습니다.

tag-icon • tag-icon microsoft-excel
Excel 모호한 이름이 감지되었습니다.

안녕하세요 이 학습서에 이 코드가 있어요

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 'Stop execution when workbook closes
 On Error Resume Next
 Application.OnTime Heure, "Calcul", , False
End Sub
Private Sub Workbook_Open()
 'start execution when workbook opens
 Application.OnTime Now + TimeValue("00:05:00"), "Calcul"
End Sub

그리고 모듈 1에는 이 코드가 있습니다

    Sub Calcul()
     Heure = Now + TimeValue("00:05:00")
     Application.OnTime Heure, "Calcul"
     Sheet1.Range("FA99666").End(xlUp).Offset(1) = Sheet1.[o5]
     Sheet1.Range("FE99666").End(xlUp).Offset(1) = Sheet1.[o6]
     Sheet1.Range("FI99666").End(xlUp).Offset(1) = Sheet1.[o7]
     Sheet1.Range("FM99666").End(xlUp).Offset(1) = Sheet1.[o8]
     Sheet1.Range("FQ99666").End(xlUp).Offset(1) = Sheet1.[o9]
end sub

] 위 코드는 5분마다 실행됩니다.

모듈 2에서는 이 코드를 10분마다 실행하고 싶습니다.

    Sub Calcul()
     Heure = Now + TimeValue("00:10:00")
     Application.OnTime Heure, "Calcul"
     Sheet2.Range("FA99666").End(xlUp).Offset(1) = Sheet2.[o5]
     Sheet2.Range("FE99666").End(xlUp).Offset(1) = Sheet2.[o6]
     Sheet2.Range("FI99666").End(xlUp).Offset(1) = Sheet2.[o7]
     Sheet2.Range("FM99666").End(xlUp).Offset(1) = Sheet2.[o8]
     Sheet2.Range("FQ99666").End(xlUp).Offset(1) = Sheet2.[o9]
end sub

하지만 오류가 발생합니다. - 모호한 이름이 감지되었습니다. 나는 새로운 능력을 발휘하기 위해 어떤 도움이라도 좋을 것입니다.

답변1

나는 댓글의 감정에 동의합니다. 읽어야 합니다. 그러나 귀하가 사용하고 있고 Application.OnTime링크에서 공유에 대해 언급한 것을 보지 못했기 때문에 특정 상황과 관련성이 없다고 봅니다.

여기에서 이에 대해 읽을 수 있습니다.

https://stackoverflow.com/questions/31439866/multiple-variable-arguments-to-application-ontime

요약하자면, 따옴표로 묶인 문자열을 작성해야 합니다. 정확한 구성은 전송하는 내용(예: 변수, 정수, 문자열)에 따라 결정됩니다.

구조가 중요합니다. 아마도 문자 하나를 놓치고 올바른 문자열을 찾을 때까지 시행착오를 거치며 상당한 시간을 소비하게 될 것입니다.

관련 정보