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

Вход

Регистрация

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

 

= Мир MS Excel/Определение формата других ячеек - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Определение формата других ячеек (Формулы)
Определение формата других ячеек
and708 Дата: Понедельник, 06.01.2014, 10:27 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Доброго времени суток и с наступившим Новым годом!
Прошу решить задачу. я попробую рассказать по-русски, прошу переложить на язык формул (не Vba)
1) В ячейке h1 должно быть:
1, если в ячейке A1 есть все 4 границы и при этом есть заливка (любая, отличная от "нет заливки")
0 - во всех остальных случаях
Спасибо, жду решение.
 
Ответить
СообщениеДоброго времени суток и с наступившим Новым годом!
Прошу решить задачу. я попробую рассказать по-русски, прошу переложить на язык формул (не Vba)
1) В ячейке h1 должно быть:
1, если в ячейке A1 есть все 4 границы и при этом есть заливка (любая, отличная от "нет заливки")
0 - во всех остальных случаях
Спасибо, жду решение.
Автор - and708
Дата добавления - 06.01.2014 в 10:27
Pelena Дата: Понедельник, 06.01.2014, 10:50 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19197
Репутация: 4423 ±
Замечаний: ±

Excel 365 & Mac Excel
Здравствуйте.
Формулы не работают с форматом ячейки

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Формулы не работают с форматом ячейки
Автор - Pelena
Дата добавления - 06.01.2014 в 10:50
and708 Дата: Понедельник, 06.01.2014, 11:42 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Pelena, спасибо. а с VBA то же самое можно?
 
Ответить
СообщениеPelena, спасибо. а с VBA то же самое можно?
Автор - and708
Дата добавления - 06.01.2014 в 11:42
Pelena Дата: Понедельник, 06.01.2014, 12:01 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19197
Репутация: 4423 ±
Замечаний: ±

Excel 365 & Mac Excel
Это надо ждать ответа макрописателей.
Перенести тему в ВОПРОСЫ ПО VBA?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЭто надо ждать ответа макрописателей.
Перенести тему в ВОПРОСЫ ПО VBA?
Автор - Pelena
Дата добавления - 06.01.2014 в 12:01
_Boroda_ Дата: Понедельник, 06.01.2014, 12:21 | Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Примерно так можно - каждое условие отдельной строкой
[vba]
Код
Public Function tt_(adr_ As Range) As Byte
      On Error GoTo A
      Application.Volatile
      tt_ = 0
      If adr_.Borders(xlEdgeLeft).LineStyle <> xlNone Then
          If adr_.Borders(xlEdgeTop).LineStyle <> xlNone Then
              If adr_.Borders(xlEdgeBottom).LineStyle <> xlNone Then
                  If adr_.Borders(xlEdgeRight).LineStyle <> xlNone Then
                      If adr_.Interior.Pattern <> xlNone Then
                          tt_ = 1
      End If: End If: End If: End If: End If
      Exit Function
A: tt_ = "Ошибка"
End Function
[/vba]
К сообщению приложен файл: 56897468_1.xlsm (14.2 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеПримерно так можно - каждое условие отдельной строкой
[vba]
Код
Public Function tt_(adr_ As Range) As Byte
      On Error GoTo A
      Application.Volatile
      tt_ = 0
      If adr_.Borders(xlEdgeLeft).LineStyle <> xlNone Then
          If adr_.Borders(xlEdgeTop).LineStyle <> xlNone Then
              If adr_.Borders(xlEdgeBottom).LineStyle <> xlNone Then
                  If adr_.Borders(xlEdgeRight).LineStyle <> xlNone Then
                      If adr_.Interior.Pattern <> xlNone Then
                          tt_ = 1
      End If: End If: End If: End If: End If
      Exit Function
A: tt_ = "Ошибка"
End Function
[/vba]
Автор - _Boroda_
Дата добавления - 06.01.2014 в 12:21
vikttur Дата: Понедельник, 06.01.2014, 14:28 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2941
Репутация: 526 ±
Замечаний: 0% ±

Иногда и формулы умеют :)
Но макросы нужно разрешить. Именованная формула с макрофункцией:
Код
=ПОЛУЧИТЬ.ЯЧЕЙКУ(7;Лист1!$B$1)

Да, это не тот формат. Но умеют :)
Ищите. Заливка: =ПОЛУЧИТЬ.ЯЧЕЙКУ(38;Лист1!$B$1)
К сообщению приложен файл: 2243353.xlsm (9.8 Kb)


Сообщение отредактировал vikttur - Понедельник, 06.01.2014, 14:32
 
Ответить
СообщениеИногда и формулы умеют :)
Но макросы нужно разрешить. Именованная формула с макрофункцией:
Код
=ПОЛУЧИТЬ.ЯЧЕЙКУ(7;Лист1!$B$1)

Да, это не тот формат. Но умеют :)
Ищите. Заливка: =ПОЛУЧИТЬ.ЯЧЕЙКУ(38;Лист1!$B$1)
Автор - vikttur
Дата добавления - 06.01.2014 в 14:28
Serge_007 Дата: Понедельник, 06.01.2014, 14:35 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата vikttur, 06.01.2014 в 14:28, в сообщении № 6
Иногда и формулы умеют
Не умеют (макрофункции - это совсем не функции листа)

Аргумент 38 - Число от 1 до 56, обозначающее цвет тени переднего плана. Если цвет выбирается автоматически, возвращается 0

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата vikttur, 06.01.2014 в 14:28, в сообщении № 6
Иногда и формулы умеют
Не умеют (макрофункции - это совсем не функции листа)

Аргумент 38 - Число от 1 до 56, обозначающее цвет тени переднего плана. Если цвет выбирается автоматически, возвращается 0
Автор - Serge_007
Дата добавления - 06.01.2014 в 14:35
vikttur Дата: Понедельник, 06.01.2014, 14:41 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2941
Репутация: 526 ±
Замечаний: 0% ±

[offtop]Не занудствуй :)
Макрофункции - в имени, а на листе - только формула с именем! :p [/offtop]
Естественно, формулы листа такого не умеют. О чем я и написал.


Сообщение отредактировал vikttur - Понедельник, 06.01.2014, 14:41
 
Ответить
Сообщение[offtop]Не занудствуй :)
Макрофункции - в имени, а на листе - только формула с именем! :p [/offtop]
Естественно, формулы листа такого не умеют. О чем я и написал.
Автор - vikttur
Дата добавления - 06.01.2014 в 14:41
Serge_007 Дата: Понедельник, 06.01.2014, 14:48 | Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата vikttur, 06.01.2014 в 14:41, в сообщении № 8
О чем я и написал.
Где?

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата vikttur, 06.01.2014 в 14:41, в сообщении № 8
О чем я и написал.
Где?
Автор - Serge_007
Дата добавления - 06.01.2014 в 14:48
vikttur Дата: Понедельник, 06.01.2014, 14:56 | Сообщение № 10
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2941
Репутация: 526 ±
Замечаний: 0% ±

[offtop]
Цитата
макросы нужно разрешить. Именованная формула с макрофункцией

Давайте не флудить дальше. [/offtop]
Я признаю, что нечетко отметил, что это не функции листа.


Сообщение отредактировал vikttur - Понедельник, 06.01.2014, 14:57
 
Ответить
Сообщение[offtop]
Цитата
макросы нужно разрешить. Именованная формула с макрофункцией

Давайте не флудить дальше. [/offtop]
Я признаю, что нечетко отметил, что это не функции листа.
Автор - vikttur
Дата добавления - 06.01.2014 в 14:56
Serge_007 Дата: Понедельник, 06.01.2014, 14:59 | Сообщение № 11
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Ок. В любом случае это не решение
Кроме заливки нужны ещё и границы. Причём все четыре :)

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеОк. В любом случае это не решение
Кроме заливки нужны ещё и границы. Причём все четыре :)
Автор - Serge_007
Дата добавления - 06.01.2014 в 14:59
and708 Дата: Понедельник, 06.01.2014, 15:05 | Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
у меня почему-то нет функции получить.ячейку подскажите пожалуйста как ее вытащить
 
Ответить
Сообщениеу меня почему-то нет функции получить.ячейку подскажите пожалуйста как ее вытащить
Автор - and708
Дата добавления - 06.01.2014 в 15:05
Serge_007 Дата: Понедельник, 06.01.2014, 15:11 | Сообщение № 13
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата and708, 06.01.2014 в 15:05, в сообщении № 12
нет функции получить.ячейку подскажите пожалуйста как ее вытащить

http://www.excelworld.ru/publ/funcs/makrofuncs/makrofuncs/24-1-0-50

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата and708, 06.01.2014 в 15:05, в сообщении № 12
нет функции получить.ячейку подскажите пожалуйста как ее вытащить

http://www.excelworld.ru/publ/funcs/makrofuncs/makrofuncs/24-1-0-50
Автор - Serge_007
Дата добавления - 06.01.2014 в 15:11
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Определение формата других ячеек (Формулы)
  • Страница 1 из 1
  • 1
Поиск:

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