Microsoft Excel, Нужна помощь!!! Спасибо Опции

[k1nd3rr]

Ребята нужно помощь в Excel( я не особо силен в этой сфере) , или с формулой или макросом, кто готов помощь напишите в личку, буду очень благодарен!

[Carnifex]

Вот код:

» Нажмите, чтобы показать спойлер - нажмите опять, чтобы скрыть... «

Option Explicit

Public Sub GetTripsCount()
Dim dRequiredDateStart As Date ' Declare variables.
Dim dRequiredDateEnd As Date
Dim d180Days As Date

Dim tripsCount As Integer
Dim sMessage As String
Dim pSheet As Worksheet

Dim iterrator As Integer
iterrator = 2
tripsCount = 0
Set pSheet = Worksheets("Sheet1")
dRequiredDateEnd = Range("E2")
dRequiredDateStart = dRequiredDateEnd - 180
Do While Cells(iterrator, 1).Value <> ""

If dRequiredDateStart <= Cells(iterrator, 1).Value And dRequiredDateEnd >= Cells(iterrator, 2).Value Then
tripsCount = tripsCount + 1
End If

iterrator = iterrator + 1
Loop

Worksheets("Sheet1").Range("F2").Value = dRequiredDateStart
Worksheets("Sheet1").Range("F3").Value = tripsCount

Msg = "Time Interval Start Date: " & CStr(dRequiredDateStart) & " Trips Count: " & CStr(tripsCount) 'Comment with (') symbol in case you don't need the Message Box to be shown
MsgBox Msg 'Comment with (') symbol in case you don't need the Message Box to be shown
End Sub

Первая колонка твоего документа была принята за начало поездки, вторая - за конец. Дату, вплоть до которой нужно посчитать количество поездок вбиваешь в ячейку E2. Если не нужно всплывающее окошко - дай знать или убери сам.
Там захардкожено пару мест - мне леньки было писать фильтр значений. Если че - можно немного причесать это дело.

Сообщение отредактировал Carnifex - Sep 13 2016, 14:31