달가람
2015-08-05 09:56
조회: 198
추천: 0
베이직 간단하네Private Sub Latency()
Dim rngUsed As Range, rngFind As Range, intRow As Integer Set rngUsed = ActiveSheet.UsedRange Set rngFind = rngUsed.Find(what:="Clock") If rngFind Is Nothing Then MsgBox "Log file error!" Exit Sub End If intRow = rngFind.Row + 1 Do Select Case Cells(intRow, rngFind.Column) Case "Sensor1W" Cells(intRow, rngFind.Column + 2) = Cells(intRow, rngFind.Column - 3) - Cells(intRow - 1, rngFind.Column - 3) If Cells(intRow - 1, rngFind.Column) <> "" Then Cells(intRow, rngFind.Column + 2) = "" End If Case Else intRow = intRow + 1 End Select intRow = intRow + 1 Loop While Trim(Cells(intRow, rngFind.Column - 3)) <> "" End Sub 한시간 검색해보니까 되네
EXP
522,310
(50%)
/ 540,001
고수 인벤러 달가람
|
인벤 공식 앱
댓글 알람 기능 장착! 최신 게임뉴스를 한 눈에 보자