Календарь налогов

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Календарь налогов (Макросы/Sub)

Календарь налогов

roman66rus

Дата: Суббота, 06.01.2018, 03:03 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 113

Репутация: 0 ±

Замечаний: 0% ±

2010

Доброго времени суток и с наступившим всех!
Давно не обращался за помощью.
Помогите доработать макрос.
Ищет значение ячейки на листе "справочник" и добавляет подсказку в соответствующую ячейку на листе "календарь"
Макрос распознает только текст, поэтому даты переведены в текст. Можно ли сделать чтобы он распозновал даты или подсказки не дублировались в одном месяце.
То что хочу получить в первых трёх месяцах, но 8.03 должна быть подсказка "НДФЛ......" а макрос вставляет первую из списка "выда....".

К сообщению приложен файл: 2206845.xlsm (44.6 Kb)

Ответить

alex77755

Дата: Суббота, 06.01.2018, 06:20 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 362

Репутация: 64 ±

Замечаний: 0% ±

Цитата

но 8.03 должна быть подсказка "НДФЛ.

для этого искомые значения должны быть уникальны.
т.е. должна быть привязка и к месяцу
поэтому формулы на листе Справочник надо как-то так представить:
[vba]

Код

=ДЕНЬ(Календарь!AB37)&"."&МЕСЯЦ(Календарь!AB37)

[/vba]
соответственно и искать надо не просто день, а с месяцем типа 8.3
но у вас так напутано с формулами, что разбираться лень.
Могу предложить такой вариант переделки кода
[vba]

Код

            If IsNumeric(.Value) Then 'если в ячейке число
                'ищем значение ячейки на листе "справочник"

            find = .Value & "." & (rc.Row + 5) \ 9 - 1 + (rc.Column + 6) \ 8

            Set rf = wsDic.Columns(1).find(what:=find, LookIn:=xlValues, lookat:=xlWhole)

[/vba]

Могу помочь в VB6, VBA
Alex77755@mail.ru

Сообщение отредактировал alex77755 - Суббота, 06.01.2018, 06:20

Ответить

roman66rus

Дата: Понедельник, 08.01.2018, 06:01 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 113

Репутация: 0 ±

Замечаний: 0% ±

2010

alex77755, спасибо за вариант, но не подходит, не красиво будет если в календаре числа с точками будут))
Пробовал так

Код

If IsDate(.Value) Then

но тоже не получается.

Ответить

Pelena

Дата: Понедельник, 08.01.2018, 11:50 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 19182

Репутация: 4420 ±

Замечаний: ±

Excel 365 & Mac Excel

Тоже не понимаю, почему нельзя работать с датами напрямую.
Вариант без листа Справочник
В календарях именно даты с форматом Д
Условное форматирование убрала, заливка в макросе