Подскажите,как реализовать учёт документов с напоминанием

Дата: Четверг, 19.11.2015, 16:26 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

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

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

Excel 2003

Доброго времени суток! Прошу подсказать - есть ли возможность решить Excel'ем вот такую задачу:

Есть входящий документ с информацией о том, кто его получил, датой получения, короткой информацией в самом документе и датой, по которой на основании этого документа нужно получать другие документы. Документов много и ведётся бумажный учёт. Что хотелось бы:
Вывод информации только на текущую дату получения бумажек
Вывод информации только по тем документам, которые нужно получать только сегодня (по возможности выделить их цветом)
Возможность разделения вывода информации в зависимости от того, кто получил документ (сортировка по фамилии получающего) или когда получен документ.

Главное - хотелось бы что бы при открытии файла - можно было сразу определить какие именно сегодня документы нужно сдавать и кто был получатель.

Спасибо.

Дата: Четверг, 19.11.2015, 17:48 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

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

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

2019

Цитата Саранский, 19.11.2015 в 16:26, в сообщении № 1

есть ли возможность решить Excel'ем вот такую задачу

Есть - вариантов много.
Можно формулой, можно макросом, главное чтобы даты были :D
На общий вопрос ответил
А детальнее - после примера согласно правилам форума deal

Можете почитать эту тему

Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Четверг, 19.11.2015, 18:01

Дата: Понедельник, 23.11.2015, 14:33 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

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

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

Excel 2003

Цитата SLAVICK, 19.11.2015 в 17:48, в сообщении № 2

А детальнее - после примера

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

Пример прикладываю.

К сообщению приложен файл: 7461764.xls (76.0 Kb)

Сообщение отредактировал Саранский - Понедельник, 23.11.2015, 14:47

Gustav

Дата: Понедельник, 23.11.2015, 15:56 | Сообщение № 4

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

Ранг: Участник клуба

Сообщений: 2843

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

Замечаний: ±

начинал с Excel 4.0, видел 2.1

А зачем такая сетка мелкая-то?! Это ж не книга покупок и не ТТН...

МОИ: Ник, Tip box: 41001663842605

Дата: Вторник, 24.11.2015, 09:49 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

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

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

Excel 2003

Цитата Gustav, 23.11.2015 в 15:56, в сообщении № 4

А зачем такая сетка мелкая-то?!

Извините, не подумав схватил первый попавшийся лист, вот - вроде исправил.

К сообщению приложен файл: _Microsoft_Exce.xls (17.0 Kb)

VIDEO56

Дата: Вторник, 24.11.2015, 10:44 | Сообщение № 6

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

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

Сообщений: 262

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

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

Excel 2010

Как вариант!
С УФ

К сообщению приложен файл: 4911787.xls (30.0 Kb)

Всем удачного дня!

Сообщение отредактировал VIDEO56 - Вторник, 24.11.2015, 10:46

Дата: Вторник, 24.11.2015, 10:45 | Сообщение № 7

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

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

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

2019

Пробуйте

[vba]

Код

Sub DD()
Dim I&, S$, C As Range
I = 4
Do Until Cells(I, "E").Value = ""
    If Int(Cells(I, "E")) = Int(Now()) Then S = S & vbCr & Cells(3, "E") & "=>" & Cells(I, "B")
    If Int(Cells(I, "F")) = Int(Now()) Then S = S & vbCr & Cells(3, "F") & "=>" & Cells(I, "B")
    I = I + 1
Loop
If Len(S) > 0 Then MsgBox S Else MsgBox "Nothing today"
Debug.Print S
End Sub

[/vba]

К сообщению приложен файл: 8372463.xls (43.0 Kb)

Иногда все проще чем кажется с первого взгляда.

Дата: Вторник, 24.11.2015, 11:03 | Сообщение № 8

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

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

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

Excel 2003

Цитата SLAVICK, 24.11.2015 в 10:45, в сообщении № 7

Пробуйте

Ого, здорово, спасибо! %)
Извините, я не хочу сказать что это не верно, но немного не то. Получается, что он не показывает какие именно документы мне сегодня нужно получить (столбец получения) - не выделяет их. Извините, если прошу невозможное. pray

Сообщение отредактировал Саранский - Вторник, 24.11.2015, 11:03

Дата: Вторник, 24.11.2015, 13:41 | Сообщение № 9

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

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

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

2019

Цитата Саранский, 24.11.2015 в 11:03, в сообщении № 8

он не показывает какие именно документы мне сегодня нужно получить (столбец получения) -

так в столбце получения - у Вас Дата, а тип действия макрос показывает <_<

Если нужно подсветить строки, то просто УФ. :

Код

=ИЛИ($E4=СЕГОДНЯ();$F4=СЕГОДНЯ())

Если нужно добавить в сообщение информацию с других ячеек - правьте строки:
[vba]

Код

If Int(Cells(I, "E")) = Int(Now()) Then S = S & vbCr & Cells(3, "E") & "=>" & Cells(I, "B")
If Int(Cells(I, "F")) = Int(Now()) Then S = S & vbCr & Cells(3, "F") & "=>" & Cells(I, "B")

[/vba]
Например, добавил "основание" и поменял местами клиента - тип действия.
[vba]

Код

If Int(Cells(I, "E")) = Int(Now()) Then S = S & vbCr & Cells(I, "b") & "=>" & Cells(3, "e") & " / " & Cells(I, "C")
If Int(Cells(I, "F")) = Int(Now()) Then S = S & vbCr & Cells(I, "b") & "=>" & Cells(3, "f") & " / " & Cells(I, "C")

[/vba]

Кстати забыл сказать - сообщение не только выводится, но и пишется в "immediate" - его можно от туда скопировать. Окно "immediate" можно открыть нажав ctrl G в редакторе VBA ^_^

К сообщению приложен файл: 8372463-1-.xls (47.5 Kb)

Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Вторник, 24.11.2015, 14:51

Дата: Вторник, 24.11.2015, 16:31 | Сообщение № 10

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

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

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

Excel 2003

SLAVICK,
Спасибо, а только на текущую дату с номером документа и исполнителем не скажите как сделать?

Дата: Вторник, 24.11.2015, 17:09 | Сообщение № 11

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

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

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

2019

Цитата Саранский, 24.11.2015 в 16:31, в сообщении № 10

с номером документа и исполнителем не скажите как сделать?

А где в примере исполнитель?
Добавляйте нужные данные в конец строк
[vba]

Код

[/vba]
Для номера документа будет:
[vba]

Код

& Cells(I, "D")' значит данные будут смотреться в столбце "D"

[/vba]
т.е.:
[vba]

Код

If Int(Cells(I, "E")) = Int(Now()) Then S = S & vbCr & Cells(I, "b") & "=>" & Cells(3, "e") & " / " & Cells(I, "C") & " " & Cells(I, "D")
If Int(Cells(I, "F")) = Int(Now()) Then S = S & vbCr & Cells(I, "b") & "=>" & Cells(3, "f") & " / " & Cells(I, "C") & " " & Cells(I, "D")

[/vba]

Иногда все проще чем кажется с первого взгляда.