|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
16.06.2008, 08:34 | #1 |
Регистрация: 16.06.2008
Сообщений: 5
|
Несколько вопросов по VBA
Доброго времени суток!
Задача стоит в следующем: есть Excel документ, в первом столбце на ячейках есть выбор определенных значения (занят/не занят/отсутствует), необходимо что бы при выборе какого либо значения соответсвующая строчка перекрашивалась в определенный цвет. Проблема заключаеться в том что я не знаю двух моментов: 1. Как автоматически выполнить код ТОЛЬКО для строки в которой поставили/изменили значение первой ячейки. 2. И каким образом в функцию покраски строки передать номер строки в первом столбце Заранее благодарю за ответы |
16.06.2008, 10:02 | #2 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
В модуль нужного листа вставьте код, выполняемый по событию изменения значения требуемых ячеек. Например:
Код:
Чем шире угол зрения, тем он тупее.
|
16.06.2008, 11:28 | #3 |
Регистрация: 16.06.2008
Сообщений: 5
|
Благодарю!
Но т.к. я откровенно фиговый программист то код получился малясь избыточным Код:
1. Можно ли как либо этот кусок Код:
2. Как можно избавиться от привязки к названию листа |
16.06.2008, 11:28 | #4 |
Регистрация: 16.06.2008
Сообщений: 5
|
Благодарю!
Но т.к. я откровенно фиговый программист то код получился малясь избыточным Код:
1. Можно ли как либо этот кусок Код:
2. Как можно избавиться от привязки к названию листа |
16.06.2008, 12:39 | #5 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Если этот код находится в модуле нужного листа, то ссылку на лист делать нет необходимости. Т.е. примерно так:
Код:
Чем шире угол зрения, тем он тупее.
|
17.06.2008, 07:43 | #6 |
Регистрация: 16.06.2008
Сообщений: 5
|
Еще раз благодарю за ответ, извините за дабл пост =)
|
27.08.2008, 08:50 | #7 |
Регистрация: 16.06.2008
Сообщений: 5
|
Еще раз доброго времени суток!
У меня есть новый вопрос: Что есть: Excel документ-таблица с несколькими листами, на каждом листе кроме двух второй столбец является датой. Требуеться что бы при прошествии 30 дней цвет ячейки поменялся на другой. Макрос отрабатывает только при октрытии. Вопросы: 1. Можно ли написать единый код для нескольких страниц в Auto_open и как это сделать 2. Все это ЖЕЛАТЕЛЬНО, но не обязательно согласовать, с кодом выше Насколько я понял надо делать что то типа: Private Sub Workbook_Open() Dim m As Date Dim z As Date Dim x As Date m = Date z = Worksheets("Лсит1").Cells(12, 2).Value - береться дата x = m - z - высчитывается разница If x > 30 Then Worksheets("Лист1").Cells(1, 1).Interior.ColorIndex = 10 Else Worksheets("Лист1").Cells(1, 2).Interior.ColorIndex = 0 End If End Sub Если можно реализовать с меньшими затратами, буду рад поправкам. Заранее благодарю за ответы! |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Несколько вопросов | Зубоскалик | Общие вопросы Delphi | 14 | 20.11.2008 14:28 |
Код и несколько вопросов | artemavd | Общие вопросы Delphi | 18 | 20.08.2008 10:51 |
несколько вопросов по RichEdit | TaTT DoGG | Компоненты Delphi | 4 | 27.05.2008 10:57 |
Несколько Вопросов | Дорст | Общие вопросы Delphi | 3 | 12.11.2007 09:18 |
Несколько вопросов по Delphi 2005 | Nez | Общие вопросы Delphi | 53 | 21.02.2007 05:49 |