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

Вход

Регистрация

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

 

= Мир MS Excel/Код проверки свойств ячейки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Код проверки свойств ячейки (Макросы/Sub)
Код проверки свойств ячейки
Ralf Дата: Пятница, 20.06.2014, 09:14 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация: 5 ±
Замечаний: 0% ±

Салют!
Пытаюсь привести отчёт, выгруженный из 1С, к форме списка. При этом использую функцию ColorIndex для распознавания контрагентов. Всё бы ничего, но номера договоров выделены тем же цветом, и если у одного контрагента несколько договоров - то происходит путаница - номера договоров принимаются за контрагентов.
Форматирование ячеек, содержащих номера договоров и контрагенты различается отступом (см. пример). Подскажите пользовательскую функцию по аналогии с ColorIndex, которая бы распознавала это различие.
К сообщению приложен файл: ____.xlsm (15.9 Kb)


Сообщение отредактировал Ralf - Пятница, 20.06.2014, 09:15
 
Ответить
СообщениеСалют!
Пытаюсь привести отчёт, выгруженный из 1С, к форме списка. При этом использую функцию ColorIndex для распознавания контрагентов. Всё бы ничего, но номера договоров выделены тем же цветом, и если у одного контрагента несколько договоров - то происходит путаница - номера договоров принимаются за контрагентов.
Форматирование ячеек, содержащих номера договоров и контрагенты различается отступом (см. пример). Подскажите пользовательскую функцию по аналогии с ColorIndex, которая бы распознавала это различие.

Автор - Ralf
Дата добавления - 20.06.2014 в 09:14
_Boroda_ Дата: Пятница, 20.06.2014, 09:21 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Так нужно?
[vba]
Код
Function КолОтступов(Ssylka As Range)
КолОтступов = Ssylka.IndentLevel
End Function
[/vba]
К сообщению приложен файл: _535_1.xlsm (17.9 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
[vba]
Код
Function КолОтступов(Ssylka As Range)
КолОтступов = Ssylka.IndentLevel
End Function
[/vba]

Автор - _Boroda_
Дата добавления - 20.06.2014 в 09:21
Ralf Дата: Пятница, 20.06.2014, 09:30 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация: 5 ±
Замечаний: 0% ±

_Boroda_, Отлично!!! yes
 
Ответить
Сообщение_Boroda_, Отлично!!! yes

Автор - Ralf
Дата добавления - 20.06.2014 в 09:30
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Код проверки свойств ячейки (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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