Условие макроса сравнение дат и времени работает не корректно.Как это исправить?

@Aleks 1978 · Регистрация: 02.01.2017

Author24 — интернет-сервис помощи студентам

Visual Basic

Sub Макрос_1()
 
For i = 5 To Sheets("Ввод Данных").Range("A" & Rows.Count).End(xlUp).Row
    If Sheets("Ввод Данных").Range("A" & i) > Sheets("Ввод Данных").Range("B1") Then
    
    Sheets("Ввод Данных").Range("C" & i).ClearContents
 
    End If
Next i
 
End Sub

Этот макрос удаляет значения в ячейках начиная со строки 5 по всему столбцу C при условии что если в столбце А этой же строки так же с 5 строки значение в ячейке больше значения из ячейки B1 и это значение дата и время вот в таком формате 03.04. 00:15 и если дата в ячейке из столбца А больше то условие выполнено,но условие работает не корректно,даты не верно понимаются макросом.Вопрос кто знает как прописать код чтобы макрос работал нормально?

@pashulka · 30.04.2017, 09:53

03.04. 00:15 это не дата, а текст. Если же отсутствие года предполагает, что речь идёт о текущем, то такой текст можно преобразовать в дату, но здесь лучше говорить не абстрактно, а имея на руках часть файла с проблемными "датами", ибо источник проблемы может быть не только в этом.

@Aleks 1978 · 30.04.2017, 14:18 **[ТС]**

Если это не дата,то помогите с макросом с новым условием,который просто очистит значения во всех ячейках выше тех строк между столбцами A и F если это значение из ячейки B1 будет в столбце А.нужно чтобы макрос нашёл значение из ячейки B1 в столбце А и очистил строки выше этого значения по 4 строку(4 строку не стирал),а очистил от столбца А до F включительно.Можете помочь в написании такого макроса или мне создать новую тему на форуме? В файле для примера зелёным цветом указан диапазон ячеек для очистки.

@Aleks 1978 · 30.04.2017, 14:19 **[ТС]**

вот тут

@pashulka · 30.04.2017, 14:37

В новой задаче - уже всё проще :

Visual Basic

Private Sub Test()
    Dim iCell As Range
 
    With Worksheets("Ввод Данных")
         Set iCell = .Range("A:A").Find(.Range("B1"), , xlValues, xlWhole)
         If iCell Is Nothing Then Exit Sub: If iCell.Row = 5 Then Exit Sub
         
         .Range(.Cells(5, 6), iCell(0)).ClearContents
    End With
End Sub

@Aleks 1978 · 30.04.2017, 15:07 **[ТС]**

Скопировал его в модуль,хочу запустить но его в списке макросов нет???Если Sub без Private то в списке есть но не работает выдает ошибку

@pashulka · 30.04.2017, 15:17

На какой строке выдаёт ошибку ?

@Aleks 1978 · 30.04.2017, 20:23 **[ТС]**

Всё,разобрался

Добавлено через 5 часов 5 минут

Visual Basic

1	.Range(.Cells(5, 6), iCell(0)).ClearContents

а как изменить эту строку кода чтобы строка 5 осталась такой же,а диапазон очищения ячеек был теперь между двумя столбцами например C и M. как это записать в коде ???

@pashulka · 30.04.2017, 21:11

Для старого примера, где неизменна строка#4

Visual Basic

1	.Range(.Cells(5, 13), iCell(0, 3)).ClearContents

или

Visual Basic

1	.Range(.Cells(5, 3), iCell(0, 13)).ClearContents

Условие макроса сравнение дат и времени работает не корректно.Как это исправить?

Решение

Решение

@pashulka 4134 / 2238 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	30.04.2017, 09:53	2
	03.04. 00:15 это не дата, а текст. Если же отсутствие года предполагает, что речь идёт о текущем, то такой текст можно преобразовать в дату, но здесь лучше говорить не абстрактно, а имея на руках часть файла с проблемными "датами", ибо источник проблемы может быть не только в этом. 0

@Aleks 1978 5 / 5 / 0 Регистрация: 02.01.2017 Сообщений: 164
	30.04.2017, 14:18 [ТС]	3
	Если это не дата,то помогите с макросом с новым условием,который просто очистит значения во всех ячейках выше тех строк между столбцами A и F если это значение из ячейки B1 будет в столбце А.нужно чтобы макрос нашёл значение из ячейки B1 в столбце А и очистил строки выше этого значения по 4 строку(4 строку не стирал),а очистил от столбца А до F включительно.Можете помочь в написании такого макроса или мне создать новую тему на форуме? В файле для примера зелёным цветом указан диапазон ячеек для очистки. 0

@Aleks 1978 5 / 5 / 0 Регистрация: 02.01.2017 Сообщений: 164
	30.04.2017, 15:07 [ТС]	6
	Скопировал его в модуль,хочу запустить но его в списке макросов нет???Если Sub без Private то в списке есть но не работает выдает ошибку 0

@pashulka 4134 / 2238 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	30.04.2017, 15:17	7
	На какой строке выдаёт ошибку ? 0

	30.04.2017, 21:11