Vba максимальная дата excel

for i = 3 to last_lin
max_dat = ws.Range("C" & i).Value
Next

3

0 / 0 / 0

Регистрация: 22.05.2015

Сообщений: 4

Добрый день!
Помогите, пожалуйста, написать функцию (или формулу, если это возможно), чтобы находить самую позднюю дату среди указанных в одной ячейке. Дат может быть от одной до непонятного количества.
Пример значения ячейки:» , , 07.08.2018, 07.08.2018, 10.08.2018, 17.08.2018, 07.08.2018, 06.08.2018, 07.08.2018, 06.08.2018″.
Понимаю, что можно разделить значение по столбцам, а потом найти максимальное из них, но, к сожалению, такой способ не подходит, поскольку существующая таблица довольно объемная и редактируется несколькими сотрудниками, не понятно, кому я могу случайно данные «затереть» своими датами.
Догадываюсь, что нужно разделить значение ячейки на отдельные даты, сунуть их в массив, и достать из него максимум, но с синтаксисом беда у меня, ерунда всякая получается.
Заранее благодарна!

Я пишу код VBA, чтобы найти минимальные и максимальные даты в диапазоне. Когда я его выполняю, я получаю сообщение об ошибке:

Run-time error ‘1004’: Application-defined or object-oriented error.

Ниже мой код:

Sub GenerateSheet()

Dim i, r, numAssignments As Integer
Dim ssrRng, DestRange As Range
Dim StartDate, EndDate, d As Date

numAssignments = Sheets("Data").Range("A1048576").End(xlUp).Row - 1
Sheets("Schedule").Select

EndDate = WorksheetFunction.Max(Sheets("Data").Range(Cells(2, 8), Cells(numAssignments, 8)))
StartDate = WorksheetFunction.Min(Sheets("Data").Range(Cells(2, 5), Cells(numAssignments, 5)))

End Sub

Здесь, Таблица данных имеет 8 столбцов, столбцы 5 и 8 – даты

Лучше изменить несколько аспектов вашего кода, несмотря на то, что не все они несут ответственность за полученную ошибку. В общем, ваш код более подвержен ошибкам (например, при смене кода или применении его в других случаях).

• Использование Dim:
  Dim ssrRng, DestRange As Range объявляет ssrRng как Variant и DestRange как Range.
  Вы должны использовать Dim ssrRng As Range, DestRange As Range, считая, что хотите как диапазоны.

• Используйте переменные вместо явных ссылок, в частности, если они повторяются.
  использование

  Dim ws as Worksheet

  Set ws = Workbooks(<your workbook name>).Sheets("Data")

  numAssignments = ws...

  вместо

  numAssignments = Sheets("Data")...

• Полностью квалифицируйте диапазоны, используемые вами, если вы явно не хотите этого.

  • Заменить

    numAssignments = Sheets("Data")...
    с, например,

    numAssignments = Workbooks(<your workbook name>).Sheets("Data")...

    (или, лучше, следуйте точке 2, которая уже рассматривает эту точку).

  • Заменить

    EndDate = WorksheetFunction.Max(Sheets("Data").Range(Cells(2, 8), Cells(numAssignments, 8)))
    с

    EndDate = WorksheetFunction.Max(ws.Range(ws.Cells(2, 8), ws.Cells(numAssignments, 8)))
    Аналогично для StartDate. В этом случае эти строки были источником ошибки, так как Cells без квалификатора работает в ActiveSheet.

• Избегайте использования Select, если вы явно не нуждаетесь в нем. Объявите и установите переменные и используйте их для ссылки Range или Object, с которой вы хотите работать.

Вы указываете диапазон, что его родительский элемент Листы ( “Данные” ), но не ячейки. Для всех целей и целей вам нужен диапазон от Data! E2: Schedule! E99.

Sub GenerateSheet()

Dim i, r, numAssignments As Integer
Dim ssrRng, DestRange As Range
Dim StartDate, EndDate, d As Date

numAssignments = Sheets("Data").Range("A1048576").End(xlUp).Row - 1
Sheets("Schedule").Select

with Sheets("Data")
EndDate = WorksheetFunction.Max(.Range(.Cells(2, 8), .Cells(numAssignments, 8)))
StartDate = WorksheetFunction.Min(.Range(.Cells(2, 5), .Cells(numAssignments, 5)))
end with

End Sub

Использование With Sheets("Data") сообщает все внутри этого блока, которому предшествует период (aka . или полная остановка), что его родительский элемент Листы ( “Данные” ).

Excel VBA: код для поиска максимальной даты в строке, содержащей пустые ячейки

Dim s As Date

s = WorksheetFunction.Max((If IsNotEmpty (CDate(Range("A" & x + 1).Value), CDate(Range("B" & x + 2).Value), CDate(Range("C" & x + 1).Value)))
MsgBox s

У меня есть таблица, в которой есть около 8 столбцов, содержащих даты (бывшая дата начала, дата окончания и т. Д.). Теперь для каждой строки некоторые столбцы пусты. Я должен найти максимальную дату в каждой строке.

введите описание изображения здесь

Я бы посоветовал вам сделать это:

sub tryme()

For i = 1 To 50
    Max_date = Application.WorksheetFunction.Max(Rows(i))
    if isempty(Max_date) = False then
    MsgBox cDate("The most recent date for row : " & i & "is : " & Max_date)
    end if
Next
end sub

Где i — номер вашей строки; вам нужно будет указать количество строк или найти его с помощью .Count

Вы можете попробовать:

Option Explicit

Sub test()

    Dim i As Long, y As Long
    Dim dDate As Date

    With ThisWorkbook.Sheets("Sheet1")

        'Loop rows 1-10
        For i = 1 To 10
            'Set a default date
            dDate = "1/1/1900"
            'Loop columns from 1-8
            For y = 1 To 8
                If .Cells(i, y).Value <> "" And .Cells(i, y).Value > dDate Then
                    dDate = .Cells(i, y).Value
                End If
            Next y

            Debug.Print "Max date for row " & i & " is date " & dDate

        Next i

    End With

End Sub

Здравствуйте, обратитесь к приведенному ниже коду для ячейки A1 к AA1, также содержит дату с пустой ячейкой

Sub maxdaterow()
Max_date = Application.WorksheetFunction.Max(Range("A1:AA1"))
MsgBox Max_date
End Sub

Код ниже, чтобы найти максимальную дату в столбце A, который также содержит пустые ячейки

Sub maxdate()
Max_date = Application.WorksheetFunction.Max(Columns("A"))
MsgBox Max_date
End Sub