Как можно сделать выборку по определенному месяцу?

@Belz · Регистрация: 28.09.2009

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

Есть столбец с датами. Мне нужно отфильтровать эти записи по указанному месяцу, то есть, например, ввести в диалоговом окошке месяц и получить записи с датами этого месяца. Помогите, пожалуйста, это сделать.

@Labuda · 27.10.2009, 14:54

а что мешает пользоваться автофильтром?

@Belz · 28.10.2009, 05:16 **[ТС]**

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

@T@sh · 28.10.2009, 05:25

в Exel?

@Belz · 28.10.2009, 05:27 **[ТС]**

да в Excel

@T@sh · 28.10.2009, 07:48

Если я правильно поняла и у тебя в какой-то ячейке забиты даты в обычном формате даты, то можно сделать что-то типа такого (пример для даты, стоящей в первом столбцеБ у там поменяешь, что надо):

Visual Basic

Sub Filter()
Dim str, str1 As Integer
Dim mounth As String
 
mounth = InputBox(prompt:='Input mounth')
With ActiveWorkbook.Worksheets('Лист1')
    str = 1
    str1 = 1
    Do Until .Cells(str, 1).Value = ''
        If Mid(.Cells(str, 1).Value, 4, 2) = mounth Then
            .Rows(str).Copy
            Do Until ActiveWorkbook.Worksheets('Лист2').Cells(str1, 1).Value = ''
                str1 = str1 + 1
            Loop
            ActiveWorkbook.Worksheets('Лист2').Range('A' & str1).PasteSpecial
        End If
        str = str + 1
    Loop
End With
End Sub

В итоге данные копируются с одного листа на другой и остаются только строки с введенным месяцем. наверняка можно доработать, это первое, что в голову пришло. Надеюсь, помогла

@Belz · 28.10.2009, 08:04 **[ТС]**

Большое спасибо. Очень помогли

@Labuda · 28.10.2009, 09:08

Кстати, в автофильтре можно указывать условие. Вот там и подставляешь свои даты.

@Belz 0 / 0 / 0 Регистрация: 28.09.2009 Сообщений: 19
		1
	Как можно сделать выборку по определенному месяцу? 27.10.2009, 12:28. Показов 2419. Ответов 7 Метки нет (Все метки) Есть столбец с датами. Мне нужно отфильтровать эти записи по указанному месяцу, то есть, например, ввести в диалоговом окошке месяц и получить записи с датами этого месяца. Помогите, пожалуйста, это сделать. 0

@Labuda 0 / 0 / 0 Регистрация: 21.05.2009 Сообщений: 101
	27.10.2009, 14:54	2
	а что мешает пользоваться автофильтром? 0

@Belz 0 / 0 / 0 Регистрация: 28.09.2009 Сообщений: 19
	28.10.2009, 05:16 [ТС]	3
	Потому что мне нужны все записи с одним месяцем, а не одна конкретная дата. Поэтому автофильтр не подходит. Помогите чайнику. 0

@T@sh 0 / 0 / 0 Регистрация: 21.09.2009 Сообщений: 65
	28.10.2009, 05:25	4
	в Exel? 0

@Belz 0 / 0 / 0 Регистрация: 28.09.2009 Сообщений: 19
	28.10.2009, 05:27 [ТС]	5
	да в Excel 0

@Belz 0 / 0 / 0 Регистрация: 28.09.2009 Сообщений: 19
	28.10.2009, 08:04 [ТС]	7
	Большое спасибо. Очень помогли 0

@Labuda 0 / 0 / 0 Регистрация: 21.05.2009 Сообщений: 101
	28.10.2009, 09:08	8
	Кстати, в автофильтре можно указывать условие. Вот там и подставляешь свои даты. 0