|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(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
* 아래줄에 질문을 작성하세요 >> |
|