2014-03-13 3 views
0

배경 : 저는 최근 Excel에서 VBA 스크립트로 작업 해 왔습니다. 내 RC 라디오는 매일 로그 파일 만 생성합니다. 따라서 동일한 스프레드 시트에 세 개의 세션이있을 수 있습니다. 한 세션의 시작과 다른 세션의 시작을 알려주는 방법은 증분이 일반적으로 1 초 미만인 "시간대"열을보고하는 것입니다.Excel VBA 스크립트 큰 변경으로 별도의 시트

VBA를 사용하여 데이터를 별도의 시트로 분리 할 수 ​​있음을 발견했습니다. 스크립트.

Excel에서 열을 통해 읽은 다음 이전 값의 변경 사항이 몇 초를 초과하면 작업을 수행 할 수 있습니까?

Time of Day Rudder ... 
15:33:08.5 -1 
15:33:08.7 ... 
15:33:08.9 
15:33:09.2 
16:31:45.3 < 
16:31:45.5 
16:31:45.8 
16:31:46.0 
16:31:46.2 

는 상기 데이터 샘플 I에서의 열로부터 상기 델타 십초 이상이기 때문에 I는 표시 한 행으로 분할 VBA 싶습니다.

편집 : 분석하고자하는 시간 열을 선택한 후 내 스프레드 시트 중 하나에서 코드를 실행했습니다.

15:33:08.720 
15:33:08.940 
15:33:09.150 
16:31:45.320 Changes 
16:31:45.530 

을하지만 그것은 또한 여기 변화를 보여 주었다 : 그것은이 근무 그것은 다른 장소에 있기 때문에 이상해

16:31:58.780  
16:31:59.000  
16:31:59.200  
16:31:59.420  
16:31:59.620 Changes 
16:31:59.840  
16:32:00.040 

의 변화가 0.2 초이지만이 변화로 표시되어 있지 않습니다!

답변

0

실행이 코드

Sub testing() 
    Dim erange As Range 



For Each erange In Selection 

    va = Split(erange.Text, ":") 
    va2 = Split(erange.Offset(1, 0).Text, ":") 

    If va(1) <> va2(1) Then 

    erange.Offset(1, 1).Value = "Changes" 

    End If 

    Next erange 
    End Sub 
+0

당신의 도움에 @를 user3114645 주셔서 너무 감사드립니다. 일부 변경 사항에는 적용되지만 모든 변경 사항에는 적용되지 않습니다. 코드에서 찾고있는 변경 사항을 어떻게 변경합니까? 내 질문을 편집하여 코드가 약간 혼란스러워 보이는 부분을 보여줍니다. – user3413578

관련 문제