Аватар для stogs
0 / 0 / 0
Регистрация: 05.05.2013
Сообщений: 57
1

Как выбрать нужные даты?

26.05.2013, 16:26. Показов 1106. Ответов 8
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Доброго времени суток форумчане.
Столкнулся с проблемой, и никак не могу ее решить.
Задача следующая: В ячейку "А1" вносится год, например "2013", в ячейку "В1" вносится месяц, например "Февраль".
Необходим код для внесения в колонку начиная с "С1", воскресений в числовом формате, именно того месяца, который выбран.
Подскажите как решить данный вопрос, у кого есть соображения. Жду Ваших ответов.
0
26.05.2013, 16:26
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
26.05.2013, 16:26
Ответы с готовыми решениями:

Как из перечня выбрать нужные компании и вывести их названия
Добрый день! Есть код Sub Çàïîëíåíèå2(NameList As String) Dim Company As Range Dim n As Object Set Company =...

Как с помощью макроса автоматически выбрать данные из другого файла Excel в нужные ячейки?
Как с помощью макроса автоматически выбрать данные из другого файла Excel в нужные ячейки?

Как открыть DBF-файл, выбрать нужные данные и передать их в Текстбоксы ? HELP ME !!!
1. Открываем c: empwork.dbf 2. выбираем (SQL) SELECT A1, A2, A3, A4 FROM WORK WHERE A1=Text1.Text 3. передаём значения: Text2.Text...

8
3218 / 967 / 223
Регистрация: 29.05.2010
Сообщений: 2,087
26.05.2013, 17:38 2
Проблему можно решить так:
1. Преобразовать значения ячеек А1 и В1 в дату с первым числом месяца.
2 Найти количество дней в этом месяце
3. В цикле от первой до последней даты месяца проверять на день недели, если равен 7, то записать в последнюю свободную ячейку колонки С.

Так что у тебя то не получается?
0
 Аватар для Sasha_Smirnov
5562 / 1368 / 150
Регистрация: 08.02.2009
Сообщений: 4,109
Записей в блоге: 30
26.05.2013, 23:27 3
Рискну предположить, что почти ничего!
Цитата Сообщение от toiai Посмотреть сообщение
....если равен 7, то записать в последнюю свободную ячейку колонки С
Это да, но (по умолчанию) номер воскесенья (vbSunday) не 7, а 1.
Однако выход прост: При выборе даты в календаре - заполнять ячейки по порядку до определенной даты и рядом высвечивать день недели
Цитата Сообщение от stogs Посмотреть сообщение
воскресений в числовом формате
Это что, номер дня недели или всё-таки число месяца?

Добавлено через 10 минут
Попробую на основе функции подсчёта воскресений (Удалить из строки символы, стоящие между двумя звездочками)

Добавлено через 32 минуты
Дошёл до п. 3 методики toiai:
Цитата Сообщение от toiai Посмотреть сообщение
3. В цикле от первой до последней даты месяца проверять на день недели, если равен 7, то записать в последнюю свободную ячейку колонки С.
Добавлено через 27 минут
Ура, заработало (гляньте — это то?):
Миниатюры
Как выбрать нужные даты?  
1
 Аватар для Sasha_Smirnov
5562 / 1368 / 150
Регистрация: 08.02.2009
Сообщений: 4,109
Записей в блоге: 30
27.05.2013, 03:25 4
(Под)программа EverRed работает в активной строке таблицы Excel. Испытайте же наконец (Alt-F8):
Вложения
Тип файла: xls заполнитель.xls (38.5 Кб, 6 просмотров)
0
 Аватар для stogs
0 / 0 / 0
Регистрация: 05.05.2013
Сообщений: 57
27.05.2013, 16:31  [ТС] 5
Большое спасибо, все работает правильно. Извиняюсь за назойливость, но все таки хочется узнать, есть ли возможность формировать выбраные даты не в строку а в колонку?
0
3218 / 967 / 223
Регистрация: 29.05.2010
Сообщений: 2,087
27.05.2013, 17:57 6
Замени в коде соответствующие строки на
Visual Basic
1
2
3
Cells(Selection.Row, 3).Resize(5, 1).Font.Color = vbRed 'êðàñíûé øðèôò
faul:
Cells(Selection.Row, 3).Resize(5, 1) = Application.Transpose(s)
0
 Аватар для Sasha_Smirnov
5562 / 1368 / 150
Регистрация: 08.02.2009
Сообщений: 4,109
Записей в блоге: 30
27.05.2013, 17:58 7
Есть. Буду дома — покажу (если меня не опередят).

С вашей стороны ожидаю более чётких замечаний.
0
3218 / 967 / 223
Регистрация: 29.05.2010
Сообщений: 2,087
27.05.2013, 18:14 8
Предлагаю такой вариант расчета:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub pr()
    Dim nDate As Date, i As Integer
    Dim s(1 To 5)
    
    nDate = CDate("01/" & Month("1/" & Cells(1, 2)) & "/" & Cells(1, 1))
    i = 1
    Do While Month(nDate) = Month("1/" & Cells(1, 2))
        If Weekday(nDate, 2) = 7 Then 'Начало недели с понедельника, тогда воскресенье =7
            s(i) = Day(nDate)
            i = i + 1
            nDate = nDate + 7
            GoTo SledDay
        End If
        nDate = nDate + 1
SledDay:
    Loop
    Cells(1, 3).Resize(5, 1) = Application.Transpose(s)
End Sub
2
 Аватар для Sasha_Smirnov
5562 / 1368 / 150
Регистрация: 08.02.2009
Сообщений: 4,109
Записей в блоге: 30
27.05.2013, 19:03 9
А вот мой (добавил также кнопку на панели: 7):
Вложения
Тип файла: xls заполнитель.xls (44.0 Кб, 6 просмотров)
0
27.05.2013, 19:03
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
27.05.2013, 19:03
Помогаю со студенческими работами здесь

Как выбрать нужные числа
Здравствуйте. У меня проблемка. Есть набор цифр по возростанию. Например: 0 0.01 0.013 0.0155 0.018 0.02 0.023 0.0255 ...

Как правильно выбрать нужные записи?
Работаю на perl. Думаю актульна проблема и с другими средствами... Подключаюсь к СУБД (неважно какой) и хочу выбрать только порцию данных...

как выбрать нужные данные из кучи бреда
Плиз!!! Покажите на примере как выбрать нужные мне данные. Напримет отсюда, чтобы остались только one, two: <table> ...

Как из таблицы выбрать нужные строки не по порядку, а начиная с 4-ой каждую 7-ую?
Есть таблица со множеством значений. В ней мне нужны 4 строка и от четвертой каждая 7-ая. Подскажите, как это реализовать в маткаде?

Как из документа из нескольких страниц выбрать нужные строчки в отдельный файл?
Есть документ, сканированный,распознанный. Состоит из 50 страниц.На каждой странице есть по нескольку строчек (например:строчка марка,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Ключевые слова Python
hw_wired 15.02.2025
Ключевые слова в Python - это специальные зарезервированные слова, которые имеют особое значение и функции в языке. В настоящее время Python включает 35 ключевых слов и 4 мягких ключевых слова. Эти. . .
Отличия изменяемых и неизменяемых типов в Python
hw_wired 15.02.2025
В Python существует принципиальное различие между изменяемыми (mutable) и неизменяемыми (immutable) типами данных, которое оказывает существенное влияние на работу программ. Это различие часто. . .
Python: сравнение списков и кортежей
hw_wired 15.02.2025
В Python последовательности являются одними из самых важных и часто используемых типов данных. Они позволяют хранить упорядоченные наборы элементов, к которым можно обращаться по индексу. Среди всех. . .
Как скачивать файлы с URL с помощью Python
hw_wired 15.02.2025
Для скачивания файлов Python предлагает как встроенные средства, так и сторонние библиотеки. Встроенный модуль urllib из стандартной библиотеки обеспечивает базовую функциональность для работы с URL. . .
Использование SQLAlchemy в Python
hw_wired 15.02.2025
SQLAlchemy - мощная библиотека для работы с базами данных в Python, которая предоставляет полноценный набор средств для объектно-реляционного отображения (ORM) и обширные возможности для работы с. . .
Взаимодействие с REST API в Python
hw_wired 15.02.2025
В современном мире разработки программного обеспечения REST API стал неотъемлемой частью архитектуры веб-приложений. API (Application Programming Interface) - это набор правил и протоколов,. . .
Разделение строк в Python
hw_wired 15.02.2025
Python предлагает богатый набор возможностей для работы со строками, и среди них разделение строк занимает особое место. Этот процесс позволяет разбивать текст на отдельные компоненты, что критично. . .
Объединение строк в Python
hw_wired 15.02.2025
При работе с текстовыми данными в Python нередко возникает необходимость объединять несколько строк в одну. Это может потребоваться при форматировании вывода, обработке текстовых файлов или создании. . .
Лучшие игровые движки на Python
hw_wired 15.02.2025
В последнее время разработка игр стала одним из самых популярных направлений программирования, и Python не остался в стороне от этого тренда. Несмотря на то, что Python обычно не ассоциируется с. . .
Декоратор jit в Python
hw_wired 15.02.2025
Если вы достаточно долго изучаете программы и пакеты на Python для машинного обучения, то наверняка замечали, что паттерн "JIT-декоратор" довольно популярен. Этот подход позволяет превратить обычные. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru