Даты сравнить с заданными, и если они не входят в интервал, удалить строки со смещением вверх.

@stepe · Регистрация: 19.02.2013

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

Добрый день!
Уважаемые Гуру VBA, у меня возник вопрос,так как с VBA никогда раньше не сталкивался.
Суть вопроса:
Имеется столбец с датами и временем
15.02.2013 20:06
15.02.2013 20:12
15.02.2013 20:28
15.02.2013 20:28
Мне необходимо эти даты сравнить с другими и если они не входят в интервал,удалить строки со смещением вверх.
Я не знаю как удалить строки и сместить их,я даже не знаю, как сделать правильно проверку,внизу мой код,если поможете буду очень признателен.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Макрос30()
'
' Макрос30 Макрос
'
 
Dim i As Integer
Dim z As Date
Dim z1 As Date
z = Val(InputBox("Vvdite niz"))
z1 = Val(InputBox("Vvdite vvereh"))
For i = 1 To 30
If Cells(i, 3) > z1 Or Cells(i, 3) < z Then (удалить строку) Else (переходим к следующему i)
Next i
 
 
'
End Sub

Заранее спасибо большое!

Скрипт · 10.04.2013, 12:40

stepe, сформируйте Excel-книгу с примерными данными, выложите эту книгу на Форуме и уже конкретно по книге задайте ваш вопрос.

@stepe · 10.04.2013, 12:48 **[ТС]**

Вопрос в следующем, правильно ли я сравниваю даты? Если нет то как правильно,и как удалить строку со сдвигом вверх?
В том файле только один столбец заполнен датами. Файл не имею возможности скинуть,так как на работе закрыт доступ.

@Казанский · 10.04.2013, 12:54

Сравниваете правильно, вводите неправильно - Val не работает с датами.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Макрос30()
'
' Макрос30 Макрос
'
 
Dim i As Integer
Dim z As Date
Dim z1 As Date
z = InputBox("Vvdite niz")
z1 = InputBox("Vvdite vvereh")
For i = 30 To 1 Step -1
    If Cells(i, 3) > z1 Or Cells(i, 3) < z Then Rows(i).Delete
Next i
 
 
'
End Sub

@stepe · 10.04.2013, 12:59 **[ТС]**

Спасибо большое.
А в InputBox дату вводить в таком формате? 15.03.2013 20:00:00
или : просто время?

@Казанский · 10.04.2013, 13:05

Или дату, или дату и время. Просто время - нет. То есть ввести-то можно, но программа в этом случае либо ничего не удалит, либо удалит все. Почему - почитайте про представление даты и времени в Excel или VBA.

@stepe · 10.04.2013, 13:08 **[ТС]**

Я читал,что представляется дата в таком виде : #15.02.2013#
Соответственно что бы ввести и дату и время необходимо в InputBox ввести: #15.02.2013# #20:00:00#? Я правильно понял?

@Казанский · 10.04.2013, 13:36

Нет. С "решетками" вводятся константы типа Date в VBA.
В диалоговое окно вводите так, как дата и время отображается в Excel в формате по умолчанию, т.е.
15.02.2013 20:00
А вообще - пробуйте, проходите программу по шагам (F8), смотрите на состояние переменных в окне Locals.
Вместо удаления строк можете на время отладки например красить их в желтый:

Visual Basic
1
    If Cells(i, 3) > z1 Or Cells(i, 3) < z Then Rows(i).Interior.Color = vbYellow 'Delete

@stepe · 10.04.2013, 15:00 **[ТС]**

Спасибо,но он мне все красит в желтый цвет,хотя не должен. Я ввожу в нижнюю границу 15.02.2013 19:00
а в верхнюю 15.02.2013 21:00
Данные на листе такие
15.02.2013 20:06
15.02.2013 20:12
15.02.2013 20:28
15.02.2013 20:28
15.02.2013 20:41
15.02.2013 20:42
15.02.2013 20:43
15.02.2013 20:47
15.02.2013 20:47
15.02.2013 20:47
15.02.2013 20:56
15.02.2013 20:59
15.02.2013 21:00
15.02.2013 21:00
15.02.2013 21:00
15.02.2013 21:03
15.02.2013 21:04
15.02.2013 21:04
15.02.2013 21:06
15.02.2013 21:08
15.02.2013 21:09
15.02.2013 21:10
15.02.2013 21:10
15.02.2013 21:10
15.02.2013 21:11
15.02.2013 21:11
15.02.2013 21:11
15.02.2013 21:53
15.02.2013 22:06

И я не понимаю почему он красит абсолютно все строки.

Добавлено через 23 минуты
Все сделал,спасибо большое! Без вашей помощи я бы не справился!

Новые блоги и статьи Все статьи Все блоги /
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,576
	10.04.2013, 12:40
	stepe, сформируйте Excel-книгу с примерными данными, выложите эту книгу на Форуме и уже конкретно по книге задайте ваш вопрос. 1

@stepe 0 / 0 / 0 Регистрация: 19.02.2013 Сообщений: 36
	10.04.2013, 12:48 [ТС]
	Вопрос в следующем, правильно ли я сравниваю даты? Если нет то как правильно,и как удалить строку со сдвигом вверх? В том файле только один столбец заполнен датами. Файл не имею возможности скинуть,так как на работе закрыт доступ. 0

@stepe 0 / 0 / 0 Регистрация: 19.02.2013 Сообщений: 36
	10.04.2013, 12:59 [ТС]
	Спасибо большое. А в InputBox дату вводить в таком формате? 15.03.2013 20:00:00 или : просто время? 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	10.04.2013, 13:05
	Или дату, или дату и время. Просто время - нет. То есть ввести-то можно, но программа в этом случае либо ничего не удалит, либо удалит все. Почему - почитайте про представление даты и времени в Excel или VBA. 1

@stepe 0 / 0 / 0 Регистрация: 19.02.2013 Сообщений: 36
	10.04.2013, 13:08 [ТС]
	Я читал,что представляется дата в таком виде : #15.02.2013# Соответственно что бы ввести и дату и время необходимо в InputBox ввести: #15.02.2013# #20:00:00#? Я правильно понял? 0

@stepe 0 / 0 / 0 Регистрация: 19.02.2013 Сообщений: 36
	10.04.2013, 15:00 [ТС]
	Спасибо,но он мне все красит в желтый цвет,хотя не должен. Я ввожу в нижнюю границу 15.02.2013 19:00 а в верхнюю 15.02.2013 21:00 Данные на листе такие 15.02.2013 20:06 15.02.2013 20:12 15.02.2013 20:28 15.02.2013 20:28 15.02.2013 20:41 15.02.2013 20:42 15.02.2013 20:43 15.02.2013 20:47 15.02.2013 20:47 15.02.2013 20:47 15.02.2013 20:56 15.02.2013 20:59 15.02.2013 21:00 15.02.2013 21:00 15.02.2013 21:00 15.02.2013 21:03 15.02.2013 21:04 15.02.2013 21:04 15.02.2013 21:06 15.02.2013 21:08 15.02.2013 21:09 15.02.2013 21:10 15.02.2013 21:10 15.02.2013 21:10 15.02.2013 21:11 15.02.2013 21:11 15.02.2013 21:11 15.02.2013 21:53 15.02.2013 22:06 И я не понимаю почему он красит абсолютно все строки. Добавлено через 23 минуты Все сделал,спасибо большое! Без вашей помощи я бы не справился! 0