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

작성자:  

 엑린이 (munet88)

추천:  2
파일:     오투잡 질문.xlsm (4231.2KB) 조회:  1261
제목:   실제 출장시간을 계산하는 매크로 사용중인데 런타임 6 오류가 납니다
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

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


 Ctrl + t 를 누르면실제 출장시간을 계산하는 매크로 사용중인데
실행시 런타임 6 오류가 납니다

만든 파일을 받아서 쓰고있는데, 만드신 분 말로는

한달 범위만 가능하다는데 

2년치 자료를 넣어서 그런지는 모르겠습니다 ㅠ

혹시 2년치 자료 다 계산가능하게 변경을 해야하는걸까요

Sub 실제출장시간()
'
' 매크로1 매크로
'
    Dim BRow As Integer, NBRow As Integer, TimeC As Integer
    Dim STime As Integer, RTime As Integer, BTime As Integer
        
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    BRow = Range("a1").End(xlDown).Row
    NBRow = 2
    
    While NBRow <= BRow
    
        TimeC = Range("g" & NBRow).Value
        
        If TimeC = 1 Then '=MAX(C2-H2,I2-C2)
        
            Range("l" & NBRow).Value = "=max(c" & NBRow & "-h" & NBRow & ", i" & NBRow & "-c" & NBRow & ")"
            
        Else
                
            Range("l" & NBRow).Value = "max(c" & NBRow & "-h" & NBRow
        
            For i = 1 To TimeC - 1
            
                Range("l" & NBRow).Value = Range("l" & NBRow).Value & ", c" & NBRow + i & "-c" & NBRow + i - 1
                
            Next i
            
            Range("l" & NBRow).Value = "=" & Range("l" & NBRow).Value & ", i" & NBRow + TimeC - 1 & "-c" & NBRow + TimeC - 1 & ")"
                
        End If
        
        Range("l" & NBRow).NumberFormatLocal = "h:mm;@"
        
        NBRow = NBRow + TimeC
        
    Wend
    
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic

* 아래줄에 질문을 작성하세요 >>
 
[불량 게시물 신고]  
        
  

작성일 : 2022-02-05(15:23)
최종수정일 : 2022-02-05(15:23)