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

[k1nd3rr]

Вот код:

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

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. Если не нужно всплывающее окошко - дай знать или убери сам.
Там захардкожено пару мест - мне леньки было писать фильтр значений. Если че - можно немного причесать это дело.

Sub ggg()
Dim TheDate As Date
Dim Date180 As Date
Dim ValueDate
Dim Sum As Integer
Dim i As Integer, w As Integer, a As Integer
Dim Msg
Dim sheetWithKvit As Worksheet

ILustRow = Cells(Rows.Count, "B").End(xlUp).Row

TheDate = Cells(ILustRow, "B")
Date180 = TheDate - 180
i = 1
w = ILustRow
Do While w > 2
w = w - 1

If Date180 >= Cells(w, "A") And Date180 <= Cells(w, "B") Then

ValueDate = -DateDiff("d", Cells(w, "B"), Date180)
a = Application.Sum(Range(Cells(w + 1, "C"), Cells(ILustRow, "C")))
'Msg = Range("D3")
Sum = a + ValueDate
Exit Do
Else

Do While w > 2

If Date180 < Cells(w, "A") Then
a = Application.Sum(Range(Cells(w, "C"), Cells(ILustRow, "C")))
Sum = a

End If
Exit Do
Loop

End If
Loop
Cells(ILustRow, "D").Value = Date180
Cells(ILustRow, "E").Value = Sum

End Sub
вот полностью рабочий код) уже разобрался, СПАСИБО!