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

Вход

Регистрация

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

 

= Мир MS Excel/Фигура сигнализирующая что документ не сохранен - Мир MS Excel

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

Excel 2013
Доброго времени суток.

В книге эксель - на каждой странице, в ячейке А1 находится фигура - круг "Овал 1".

Как сделать так, чтобы если файл эксель сохранен, или например - только что открыт - то все фигуры "Овал 1" на всех листах имеют зеленую заливку (но если документ не сохранен - то все они делаются красными) ?

(Дело в том, что в текстовом редакторе "Notepad++" есть такой маячок, который цветом показывает когда документ сохранен, а когда нет - и это очень удобно. А в экселе нет такого)
К сообщению приложен файл: 5457457.xls(40.5 Kb)
 
Ответить
СообщениеДоброго времени суток.

В книге эксель - на каждой странице, в ячейке А1 находится фигура - круг "Овал 1".

Как сделать так, чтобы если файл эксель сохранен, или например - только что открыт - то все фигуры "Овал 1" на всех листах имеют зеленую заливку (но если документ не сохранен - то все они делаются красными) ?

(Дело в том, что в текстовом редакторе "Notepad++" есть такой маячок, который цветом показывает когда документ сохранен, а когда нет - и это очень удобно. А в экселе нет такого)

Автор - димитрий2
Дата добавления - 16.07.2019 в 00:32
skais Дата: Вторник, 16.07.2019, 09:43 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 186
Репутация: 25 ±
Замечаний: 60% ±

Excel 2010
[vba]
Код
Dim TimeToRun   'глобальная переменная, где хранится следующее время запуска
'этот макрос назначает время следующего запуска
Sub NextRun()
    TimeToRun = Now + TimeValue("00:00:01") 'прибавляем к текущему времени 1 сек
    Application.OnTime TimeToRun, "NextRun" 'назначаем следующий запуск
    If ThisWorkbook.Saved Then
        [a1].Interior.Color = vbGreen
        ThisWorkbook.Saved = True
    Else
        [a1].Interior.Color = vbRed
    End If
End Sub
[/vba]
К сообщению приложен файл: 323.xlsm(13.9 Kb)


Сообщение отредактировал skais - Вторник, 16.07.2019, 09:43
 
Ответить
Сообщение[vba]
Код
Dim TimeToRun   'глобальная переменная, где хранится следующее время запуска
'этот макрос назначает время следующего запуска
Sub NextRun()
    TimeToRun = Now + TimeValue("00:00:01") 'прибавляем к текущему времени 1 сек
    Application.OnTime TimeToRun, "NextRun" 'назначаем следующий запуск
    If ThisWorkbook.Saved Then
        [a1].Interior.Color = vbGreen
        ThisWorkbook.Saved = True
    Else
        [a1].Interior.Color = vbRed
    End If
End Sub
[/vba]

Автор - skais
Дата добавления - 16.07.2019 в 09:43
K-SerJC Дата: Вторник, 16.07.2019, 13:31 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 470
Репутация: 83 ±
Замечаний: 0% ±

Excel 2013
или так

[vba]
Код

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If ThisWorkbook.Saved Then
Sh.Shapes.Range(Array("Oval 1")).Fill.ForeColor.RGB = RGB(0, 176, 80)
Else
Sh.Shapes.Range(Array("Oval 1")).Fill.ForeColor.RGB = RGB(255, 0, 0)
end if
End Sub
[/vba]
К сообщению приложен файл: _5457457.xls(59.0 Kb)


Благими намерениями выстелена дорога в АД.

Сообщение отредактировал K-SerJC - Вторник, 16.07.2019, 15:58
 
Ответить
Сообщениеили так

[vba]
Код

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If ThisWorkbook.Saved Then
Sh.Shapes.Range(Array("Oval 1")).Fill.ForeColor.RGB = RGB(0, 176, 80)
Else
Sh.Shapes.Range(Array("Oval 1")).Fill.ForeColor.RGB = RGB(255, 0, 0)
end if
End Sub
[/vba]

Автор - K-SerJC
Дата добавления - 16.07.2019 в 13:31
димитрий2 Дата: Среда, 17.07.2019, 03:02 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
skais, K-SerJC, благодарю.
 
Ответить
Сообщениеskais, K-SerJC, благодарю.

Автор - димитрий2
Дата добавления - 17.07.2019 в 03:02
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Фигура сигнализирующая что документ не сохранен (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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