как создать макрос в Excel?
вывод темы на печать
← Предыдущая тема Следующая тема →
Страница 1 из 1
Новая тема Ответить на тему Сообщение
koleg
# 16 Апреля 2009 17:03
есть ли возможность в екселе создать макрос (запрограммировать одну ячейку), чтоб через например 10 дней эта ячейка меняла бы цвет. Например я что-либо изменил в этой ячейке. А через 10 дней она поменяла бы цвет заливки, тем самым сигнализируя, что прошло 10 дней с момента редактирования этой ячейки.
RFT
# 16 Апреля 2009 22:42
Напрямую не нашел(особо и не искал), но, как вариант, можно при изменении ячейки писать текущую дату в отдельную ячейку(ессно не ручками уже), и уже её сравнивать с сегодняшним днем(тоже не ручками). Если разница больше 9 дней, то заливать нужную ячейку нужным цветом(тоже блин не ручками).

Последний раз редактировалось: RFT (16 Апреля 2009 22:47), всего редактировалось 1 раз
koleg
# 16 Апреля 2009 22:45
RFT писал(а):

Напрямую не нашел, но, как вариант, можно при изменении ячейки писать текущую дату в отдельную ячейку, и уже её сравнивать с сегодняшним днем. Если разница больше 9 дней, то заливать нужную ячейку нужным цветом.



сможешь это всё выразить кодом в VB?
RFT
# 16 Апреля 2009 23:32
koleg писал(а):

сможешь это всё выразить кодом в VB?


Упрощенно как-то так http://narod.ru/disk/7778224000/Book11.xls.html
koleg
# 17 Апреля 2009 09:49
RFT писал(а):

koleg писал(а):

сможешь это всё выразить кодом в VB?


Упрощенно как-то так http://narod.ru/disk/7778224000/Book11.xls.html


спасибо добрый человек, а можешь прокоментировать как это работает? что такое проверяемое (в первой колонке)?
Гомер Симпсон
# 17 Апреля 2009 10:26
Формат - условное форматирование. Задавай временное значение и отображение ячейки при выполнении условия..
всё очень просто
RFT
# 17 Апреля 2009 13:25
koleg писал(а):

что такое проверяемое (в первой колонке)?


koleg писал(а):

Например я что-либо изменил в этой ячейке. А через 10 дней она поменяла бы цвет заливки


Это то, при изменении чего ему проставляется дата изменения. На основании сравнения этой проставленной даты с текущей, при открытии файла, ячейки в этой первой колонке и меняют свой цвет.
Только я не досмотрел и цвет меняется в колонке с датой. Чтобы он менялся все-таки в самой первой колонке, надо тут
Private Sub Workbook_Open()
For dr = 2 To ActiveSheet.UsedRange.Rows.Count
If Date - Cells(dr, 4).Value > 9 And Not (IsEmpty(Cells(dr, 4).Value)) Then
Cells(dr, 4).Interior.Color = RGB(255, 0, 0)
Else
Cells(dr, 4).Interior.ColorIndex = xlNone
End If
Next
End Sub
поставить единички вместо четверок.
Ну и вообще все распихать по нужным колонкам уже по факту, как там у тебя должно быть. Я же просто привел пример логики.
А общий смысл описан в моем первом ответе.

Гомер Симпсон, по условию проверка делается с момента последнего изменения. Расскажи мне, как ты это отследишь в условном форматировании.
koleg
# 17 Апреля 2009 16:14
2 RFT
слушай, прикольно - всё работает когда указанные четверки заменяю на единицы. Затем жму сохранить. А когда вновь открываю этот макрос, то там опять четверки стоят. Как правильно-то сохранить? Кстати, раз пошла такая пьянка, то последний вопрос: я так понял, что этот макрос работает на открытие документа, так? А как бы сделать чтоб макрос срабатывал и на изменение при вводе данных в этих ячейках? То есть, то же действие макроса и при изменении данных.
RFT
# 17 Апреля 2009 17:11
koleg писал(а):

Затем жму сохранить. А когда вновь открываю этот макрос, то там опять четверки стоят. Как правильно-то сохранить?


Достаточно просто сохранять, никаких хитростей нет.
koleg писал(а):

я так понял, что этот макрос работает на открытие документа, так?


да
koleg писал(а):

А как бы сделать чтоб макрос срабатывал и на изменение при вводе данных в этих ячейках? То есть, то же действие макроса и при изменении данных.


А смысл? Если при изменении у тебя дата в любом случае ставится сегодняшняя. Ну если уж очень хочется, то просто скопируй код в процедуру Worksheet_Change, в начало или в конец - не важно, и будет он её дергать постоянно Pardon
koleg
# 18 Апреля 2009 13:17
бля, как всё просто Good
Andreanich
# 25 Май 2010 11:29
Ребята, подскажите, можно ли в Экселе сделать так, что бы он число прописывал прописью??
Пример:
123,00 руб.
Сто двадцать три рубля 00 копеек.
-GnoM-
# 25 Май 2010 11:49
Цитата:

koleg есть ли возможность в екселе создать макрос (запрограммировать одну ячейку), чтоб через например 10 дней эта ячейка меняла бы цвет. Например я что-либо изменил в этой ячейке. А через 10 дней она поменяла бы цвет заливки, тем самым сигнализируя, что прошло 10 дней с момента редактирования этой ячейки.



Простой вариант: Меню Формат-Условное форматирование и там задать условие.

Andreanich писал(а):

Ребята, подскажите, можно ли в Экселе сделать так, что бы он число прописывал прописью??
Пример:
123,00 руб.
Сто двадцать три рубля 00 копеек.



Надстройку надо поставить. Их много, пользуюсь Excellerator/
Andreanich
# 25 Май 2010 12:04
-GnoM- писал(а):

Надстройку надо поставить. Их много, пользуюсь Excellerator/


Можно подробнее?
-GnoM-
# 25 Май 2010 12:15
Меню Сервис-надстройки.

Саму надстройку выбрать по вкусу Smile http://www.google.ru/#hl=ru&lr=lang_ru&newwindow=1&tbs=lr%3Alang_1ru&q=excel+%D1%87%D0%B8%D1%81%D0%BB%D0%BE+%D0%BF%D1%80%D0%BE%D0%BF%D0%B8%D1%81%D1%8C%D1%8E&aq=0&aqi=g7&aql=&oq=excel+%D1%87%D0%B8&gs_rfai=&fp=4787299801b7b74a
Andreanich
# 25 Май 2010 12:37
-GnoM-
Спасибо, все получилось gpn
Новая тема Ответить на тему
Показать сообщения:
Страница 1 из 1
Перейти:
ИНФОРМАЦИЯ ПО ИКОНКАМ И ВОЗМОЖНОСТЯМ

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

© 2007-2020 autolada.ru - автомобильный форум

По вопросам рекламы Поиск
  •  
  •