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

Вход

Регистрация

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

 

= Мир MS Excel/Создание напоминания - Страница 2 - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание напоминания (Макросы/Sub)
Создание напоминания
Sacredcom Дата: Понедельник, 08.04.2019, 17:08 | Сообщение № 21
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
А что просто не написать текстом "Звонок"?
Звонок с восклицательными знаками важнее)) чем простой звонок
 
Ответить
Сообщение
А что просто не написать текстом "Звонок"?
Звонок с восклицательными знаками важнее)) чем простой звонок

Автор - Sacredcom
Дата добавления - 08.04.2019 в 17:08
_Boroda_ Дата: Понедельник, 08.04.2019, 17:28 | Сообщение № 22
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15195
Репутация: 5972 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
[vba]
Код
Sub tt()
    Dim c As Range, t$, x1_, x2_
    For Each c In Cells(2, 9).Resize(Cells(Rows.Count, 9).End(3).Row - 1)
        If c > Now Then
            t = Replace(c.Offset(, -8), """", """""")
            b = Replace(c.Offset(, 1), """", "")
            b = Replace(b, "!", "")
            x1_ = Len("'Задача """ & TimeValue(c) & """,""" & b & """,""" & """,""" & t & "'")
            x2_ = Left(c.Offset(, -3), 255 - x1_ - 7)
            uu = "'Задача """ & TimeValue(c) & """,""" & b & """,""" & x2_ & """,""" & t & """,""" & c.Address(0, 0) & "'"
            Application.OnTime c, uu
        End If
    Next
    MsgBox "Задачи поставлены!"
End Sub

Sub Задача(s1 As Date, s2$, s3$, s4$, s5$)
    MsgBox "[" & "]" & s1 & " Напоминание: " & s2 & " в " & s4 & s3
    Application.Goto reference:=Range(s5).Offset(, -8), scroll:=True
End Sub
[/vba]
К сообщению приложен файл: 7108698_2.xlsm(87.3 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение[vba]
Код
Sub tt()
    Dim c As Range, t$, x1_, x2_
    For Each c In Cells(2, 9).Resize(Cells(Rows.Count, 9).End(3).Row - 1)
        If c > Now Then
            t = Replace(c.Offset(, -8), """", """""")
            b = Replace(c.Offset(, 1), """", "")
            b = Replace(b, "!", "")
            x1_ = Len("'Задача """ & TimeValue(c) & """,""" & b & """,""" & """,""" & t & "'")
            x2_ = Left(c.Offset(, -3), 255 - x1_ - 7)
            uu = "'Задача """ & TimeValue(c) & """,""" & b & """,""" & x2_ & """,""" & t & """,""" & c.Address(0, 0) & "'"
            Application.OnTime c, uu
        End If
    Next
    MsgBox "Задачи поставлены!"
End Sub

Sub Задача(s1 As Date, s2$, s3$, s4$, s5$)
    MsgBox "[" & "]" & s1 & " Напоминание: " & s2 & " в " & s4 & s3
    Application.Goto reference:=Range(s5).Offset(, -8), scroll:=True
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 08.04.2019 в 17:28
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание напоминания (Макросы/Sub)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

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