Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Напоминалка в Эксель - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Напоминалка в Эксель (Формулы/Formulas)
Напоминалка в Эксель
A_00016 Дата: Пятница, 28.08.2020, 17:33 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте.
Есть потребность в напоминалке.

Имеется список Клиентов с:
1 названием компании
2 контактная инфа
3 дата созвона
4 дата тендера

Что хотелось бы:
напоминалку с закладками на 7 дней (на 1 дату одна закладка, в ней перечень компаний с короткой инфой (1 название компании; 2 контактная инфа; 3 дата тендера). Друг от друга данные отделяются подчеркиванием и нужна прокрутка - Данных может быть много).

Также было бы удобно вызывать напоминалку кнопкой на листе или сочетанием клавиш после обновления данных на листе.

Как пока собрано на чужих примерах - Лист1
Прошу помощи применить к листу - Затея (расположение столбцов из моей базы)
Также прошу чтобы было 7 закладок с датами (позавчера, вчера, сегодня, завтра, послезавтра, сегодня +3, сегодня +4)
Данные должны отображаться в последовательности - столбец
1 название компании (столбец D)
2 контактная инфа (столбец F)
3 дата тендера (столбец M)
Пример приложил в виде 3 картинок
К сообщению приложен файл: -12.xls(85.5 Kb) · 8747328.jpg(54.2 Kb)
 
Ответить
СообщениеЗдравствуйте.
Есть потребность в напоминалке.

Имеется список Клиентов с:
1 названием компании
2 контактная инфа
3 дата созвона
4 дата тендера

Что хотелось бы:
напоминалку с закладками на 7 дней (на 1 дату одна закладка, в ней перечень компаний с короткой инфой (1 название компании; 2 контактная инфа; 3 дата тендера). Друг от друга данные отделяются подчеркиванием и нужна прокрутка - Данных может быть много).

Также было бы удобно вызывать напоминалку кнопкой на листе или сочетанием клавиш после обновления данных на листе.

Как пока собрано на чужих примерах - Лист1
Прошу помощи применить к листу - Затея (расположение столбцов из моей базы)
Также прошу чтобы было 7 закладок с датами (позавчера, вчера, сегодня, завтра, послезавтра, сегодня +3, сегодня +4)
Данные должны отображаться в последовательности - столбец
1 название компании (столбец D)
2 контактная инфа (столбец F)
3 дата тендера (столбец M)
Пример приложил в виде 3 картинок

Автор - A_00016
Дата добавления - 28.08.2020 в 17:33
A_00016 Дата: Пятница, 28.08.2020, 17:34 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Картинки продложение
К сообщению приложен файл: 9839898.jpg(52.1 Kb) · 8103159.jpg(54.2 Kb)
 
Ответить
СообщениеКартинки продложение

Автор - A_00016
Дата добавления - 28.08.2020 в 17:34
A_00016 Дата: Вторник, 01.09.2020, 17:09 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Что сейчас имеется:

В модуле книги ЭтаКнига:

[vba]
Код
Private Sub Workbook_Open()
msgText = ""
For Each i In Sheets("Лист1").[D1:D29]
If InStr(1, i, Format(Now(), "d.mm.yy")) Then
If Len(msgText) > 0 Then msgText = msgText & Chr(10)
msgText = msgText & Format(Now(), "d.mm.yy") & Chr(10) & _
Cells(i.Row, 1) & " " & Cells(i.Row, 2) & Chr(10) & _
Replace(i, Format(Now(), "d.mm.yy"), "") & Chr(10) & _
"------------------------------------------"
With i.Offset(0, 1) 'плюс ещё один столбец
If Len(.Value) > 0 Then
msgText = msgText & Chr(10) & Left(.Value, InStr(1, .Value, " ")) & Chr(10) & _
Cells(i.Row, 1) & " " & Cells(i.Row, 2) & Chr(10) & _
Mid(.Value, InStr(1, .Value, " ") + 1, 999) & Chr(10) & _
"------------------------------------------"
End If
End With
End If
Next
UserForm1.Show 0
End Sub
[/vba]

В обычном модуле (Insert -> Module):
[vba]
Код
Public msgText As String
[/vba]

Создаём пользовательскую форму (Insert -> UserForm), размещаем на ней Надпись (Label) и модуле формы (F7) прописываем:

[vba]
Код
Private Sub MultiPage1_Change()

End Sub

Private Sub UserForm_Initialize()
Me.Label1.Caption = msgText
Me.MultiPage1.Pages(0).Caption = Format(Now(), "d.mm.yy")
End Sub
[/vba]

В результате:
Дата и текст напоминания берутся из одной ячейки – у меня дата в одной ячейке, данные в других ячейках.
В примере, дата в столбике D – у меня в столбике К
В примере данные берутся из столбиков «В», «А», «D» - у меня должны браться из столбиков «D», «F», «М»
Учитывая большое количество событий, нужна полоса прокрутки – не все помещается на экране.
После обновления данных в экселе для запуска напоминалки нужна кнопка – закрывать, а потом открывать файлик долго.


Сообщение отредактировал A_00016 - Вторник, 01.09.2020, 18:09
 
Ответить
СообщениеЧто сейчас имеется:

В модуле книги ЭтаКнига:

[vba]
Код
Private Sub Workbook_Open()
msgText = ""
For Each i In Sheets("Лист1").[D1:D29]
If InStr(1, i, Format(Now(), "d.mm.yy")) Then
If Len(msgText) > 0 Then msgText = msgText & Chr(10)
msgText = msgText & Format(Now(), "d.mm.yy") & Chr(10) & _
Cells(i.Row, 1) & " " & Cells(i.Row, 2) & Chr(10) & _
Replace(i, Format(Now(), "d.mm.yy"), "") & Chr(10) & _
"------------------------------------------"
With i.Offset(0, 1) 'плюс ещё один столбец
If Len(.Value) > 0 Then
msgText = msgText & Chr(10) & Left(.Value, InStr(1, .Value, " ")) & Chr(10) & _
Cells(i.Row, 1) & " " & Cells(i.Row, 2) & Chr(10) & _
Mid(.Value, InStr(1, .Value, " ") + 1, 999) & Chr(10) & _
"------------------------------------------"
End If
End With
End If
Next
UserForm1.Show 0
End Sub
[/vba]

В обычном модуле (Insert -> Module):
[vba]
Код
Public msgText As String
[/vba]

Создаём пользовательскую форму (Insert -> UserForm), размещаем на ней Надпись (Label) и модуле формы (F7) прописываем:

[vba]
Код
Private Sub MultiPage1_Change()

End Sub

Private Sub UserForm_Initialize()
Me.Label1.Caption = msgText
Me.MultiPage1.Pages(0).Caption = Format(Now(), "d.mm.yy")
End Sub
[/vba]

В результате:
Дата и текст напоминания берутся из одной ячейки – у меня дата в одной ячейке, данные в других ячейках.
В примере, дата в столбике D – у меня в столбике К
В примере данные берутся из столбиков «В», «А», «D» - у меня должны браться из столбиков «D», «F», «М»
Учитывая большое количество событий, нужна полоса прокрутки – не все помещается на экране.
После обновления данных в экселе для запуска напоминалки нужна кнопка – закрывать, а потом открывать файлик долго.

Автор - A_00016
Дата добавления - 01.09.2020 в 17:09
bmv98rus Дата: Вторник, 01.09.2020, 17:33 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3219
Репутация: 554 ±
Замечаний: 0% ±

Excel 2013/2016


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщениекросс

Автор - bmv98rus
Дата добавления - 01.09.2020 в 17:33
A_00016 Дата: Вторник, 01.09.2020, 18:10 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
По теме, интересует 3 пункта:
1 Как изменить источник получения данных (одни ячейки сменить на другие)
2 как добавить прокрутку (Клиентов в моей базе больше 1500, не все помещаются в окошко напоминалки)
3 нужна кнопка за запуска напоминалки после обновления данных на листе экселя - сама база открывается не быстро (много листов с данными потенциальных Клиентов из разных источников)
 
Ответить
СообщениеПо теме, интересует 3 пункта:
1 Как изменить источник получения данных (одни ячейки сменить на другие)
2 как добавить прокрутку (Клиентов в моей базе больше 1500, не все помещаются в окошко напоминалки)
3 нужна кнопка за запуска напоминалки после обновления данных на листе экселя - сама база открывается не быстро (много листов с данными потенциальных Клиентов из разных источников)

Автор - A_00016
Дата добавления - 01.09.2020 в 18:10
китин Дата: Среда, 02.09.2020, 09:07 | Сообщение № 6
Группа: Модераторы
Ранг: Экселист
Сообщений: 6289
Репутация: 964 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
интересует 3 пункта:


Правила форума читаем. Один вопрос одна тема


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщение
интересует 3 пункта:


Правила форума читаем. Один вопрос одна тема

Автор - китин
Дата добавления - 02.09.2020 в 09:07
A_00016 Дата: Среда, 02.09.2020, 09:31 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Хорошо.
 
Ответить
СообщениеХорошо.

Автор - A_00016
Дата добавления - 02.09.2020 в 09:31
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Напоминалка в Эксель (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!