Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.09.2009, 17:38   #1
masterenergy
Пользователь
 
Регистрация: 28.08.2009
Сообщений: 34
По умолчанию Воросик по форматированию!

Не подскажите, вопрос вроде уже заезженный, но всётаки, существуют два столбца, в первом сумма по базе, а во втором по 1С. Так вот как сделать так чтобы в столбце где сумма по 1С ячейки выделялись красным если они не равны сумме по базе, а зелёным если равны! При помощи условного форматирования(встроенными средствами) оно на весь столбец не распространяется каким то боком, приходится аждую ячейку делать в ручную! Подскажите плз!
masterenergy вне форума Ответить с цитированием
Старый 01.09.2009, 17:54   #2
motorway
Участник клуба
 
Регистрация: 28.06.2009
Сообщений: 1,950
По умолчанию

Просто задайте в "Применяется к" в Условном форматировании нужный диапазон и все, напр. $A1:$B20 или $A:$B

Последний раз редактировалось motorway; 01.09.2009 в 18:05.
motorway вне форума Ответить с цитированием
Старый 01.09.2009, 18:35   #3
masterenergy
Пользователь
 
Регистрация: 28.08.2009
Сообщений: 34
По умолчанию

офис 2000 и там такого нет (((
masterenergy вне форума Ответить с цитированием
Старый 01.09.2009, 18:37   #4
motorway
Участник клуба
 
Регистрация: 28.06.2009
Сообщений: 1,950
По умолчанию

Ну тогда можно сделать с помощью макроса, если подойдет. А выделение столбцов не помогает при задании усл. форматирования?

Например, макрос делающий это для 20 строк в столбцах A и B:


Код:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False

For i = 1 To 20
If (Cells(i, 1) <> Cells(i, 2)) Then
 Cells(i, 1).Interior.Color = 255
 Cells(i, 2).Interior.Color = 255


End If
If (Cells(i, 1) = Cells(i, 2)) Then
 Cells(i, 1).Interior.Color = 5287936
 Cells(i, 2).Interior.Color = 5287936


End If


Next i
Application.EnableEvents = True
End Sub

Последний раз редактировалось motorway; 01.09.2009 в 18:49.
motorway вне форума Ответить с цитированием
Старый 01.09.2009, 19:27   #5
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

1. перейдите в режим ссылок R1C1.
2. отметьте столбик с данными с 1С, установите красный шрифт
3. (столбик с 1С по-прежнему отмечен) открываете условное форматирование и пишете: =RC=RC[-1]. назначаете зеленый шрифт. жмете ОК.

Предполагается, что столбик с суммами по базе находится слева от столбика с данными с 1С.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 02.09.2009, 17:36   #6
masterenergy
Пользователь
 
Регистрация: 28.08.2009
Сообщений: 34
По умолчанию

макрос чегото не работает ! и не фига не помогает ((((( может еще чтото предложите!Безымянный.jpg

Последний раз редактировалось masterenergy; 02.09.2009 в 18:14.
masterenergy вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вопрос по форматированию Виталий К Microsoft Office Excel 10 04.06.2009 09:53
Нужна помощь по форматированию max_paine Microsoft Office Excel 1 26.11.2008 11:07
есть вопрос мб по условному форматированию Exo Microsoft Office Excel 6 03.04.2008 12:33
Тип даты не поддается форматированию multyaga Microsoft Office Excel 2 22.12.2006 10:54