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

Вход

Регистрация

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

 

= Мир MS Excel/Xor - Страница 2 - Мир MS Excel

Старая форма входа
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: китин  
Мир MS Excel » Работа и общение » Мозговой штурм » Xor (ИСКЛИЛИ)
Xor
Pelena Дата: Понедельник, 11.08.2014, 12:51 | Сообщение № 21
Группа: Админы
Ранг: Местный житель
Сообщений: 19197
Репутация: 4423 ±
Замечаний: ±

Excel 365 & Mac Excel
Виктор, откуда приехали?
Логика описана в первом посте. Сравниваются первые два значения по принципу исключающего ИЛИ, потом что получилось сравнивается с третьим и т.д. Пустые не участвуют


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеВиктор, откуда приехали?
Логика описана в первом посте. Сравниваются первые два значения по принципу исключающего ИЛИ, потом что получилось сравнивается с третьим и т.д. Пустые не участвуют

Автор - Pelena
Дата добавления - 11.08.2014 в 12:51
vikttur Дата: Понедельник, 11.08.2014, 13:00 | Сообщение № 22
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2941
Репутация: 526 ±
Замечаний: 0% ±

Цитата
откуда приехали?

Лето... Рюкзак... Родственники...

Условие понял. Я считал не так: ЛОЖЬ тогда и только тогда, когда ВСЕ (не последовательные пары, а все) входные сигналы одинаковы.
А здесь ИСКЛЮЧАЮЩЕЕ ИЛИ двухвходовое.
Ведь и простое И или ИЛИ рассматривается в теории как двухвходовой элемент (сравнение только двух сигналов), хотя на практике входов бывает 3 и больше.

Правил сообщение (выходил/входил) и случайно увидел формулы :(


Сообщение отредактировал vikttur - Понедельник, 11.08.2014, 13:16
 
Ответить
Сообщение
Цитата
откуда приехали?

Лето... Рюкзак... Родственники...

Условие понял. Я считал не так: ЛОЖЬ тогда и только тогда, когда ВСЕ (не последовательные пары, а все) входные сигналы одинаковы.
А здесь ИСКЛЮЧАЮЩЕЕ ИЛИ двухвходовое.
Ведь и простое И или ИЛИ рассматривается в теории как двухвходовой элемент (сравнение только двух сигналов), хотя на практике входов бывает 3 и больше.

Правил сообщение (выходил/входил) и случайно увидел формулы :(

Автор - vikttur
Дата добавления - 11.08.2014 в 13:00
alex1248 Дата: Понедельник, 11.08.2014, 13:28 | Сообщение № 23
Группа: Проверенные
Ранг: Обитатель
Сообщений: 384
Репутация: 71 ±
Замечаний: 0% ±

Excel 2007, 2010
случайно увидел формулы

Можно еще несколько вариантов подобрать примерно такой же длины, да и цель

в опубликованных решениях не достигнута. ;)


skype alex12481632
Qiwi +79276708519
 
Ответить
Сообщение
случайно увидел формулы

Можно еще несколько вариантов подобрать примерно такой же длины, да и цель

в опубликованных решениях не достигнута. ;)

Автор - alex1248
Дата добавления - 11.08.2014 в 13:28
AlexM Дата: Понедельник, 11.08.2014, 14:24 | Сообщение № 24
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4511
Репутация: 1128 ±
Замечаний: 0% ±

Excel 2003
Массивные, работают в Excel2003, 24 знака
Код
=ОСТАТ(СЧЁТ(1/A1:E1);2)=1
и
Код
=ИЛИ(СЧЁТ(1/A1:E1)={1:3})



Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
СообщениеМассивные, работают в Excel2003, 24 знака
Код
=ОСТАТ(СЧЁТ(1/A1:E1);2)=1
и
Код
=ИЛИ(СЧЁТ(1/A1:E1)={1:3})

Автор - AlexM
Дата добавления - 11.08.2014 в 14:24
krosav4ig Дата: Понедельник, 11.08.2014, 19:28 | Сообщение № 25
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
моя формула 26 массивная
Код
=ЕЧЁТН(СУММ(-ЕОШ(A1:E1^0)))


но имхо правильнее будет 45
Код
=ЕЧЁТН(СУММ(ЧИСЛСТОЛБ(A1:E1)+1;-ЕОШ(A1:E1^0)))


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Понедельник, 11.08.2014, 21:10
 
Ответить
Сообщениемоя формула 26 массивная
Код
=ЕЧЁТН(СУММ(-ЕОШ(A1:E1^0)))


но имхо правильнее будет 45
Код
=ЕЧЁТН(СУММ(ЧИСЛСТОЛБ(A1:E1)+1;-ЕОШ(A1:E1^0)))

Автор - krosav4ig
Дата добавления - 11.08.2014 в 19:28
MCH Дата: Вторник, 12.08.2014, 08:16 | Сообщение № 26
Группа: Админы
Ранг: Старожил
Сообщений: 2003
Репутация: 751 ±
Замечаний: ±

19
в опубликованных решениях не достигнута.

Ну тогда выкладываю:
Код
=-1^СЧЁТ(A1:E1^0)<0
 
Ответить
Сообщение
19
в опубликованных решениях не достигнута.

Ну тогда выкладываю:
Код
=-1^СЧЁТ(A1:E1^0)<0

Автор - MCH
Дата добавления - 12.08.2014 в 08:16
Pelena Дата: Вторник, 12.08.2014, 08:35 | Сообщение № 27
Группа: Админы
Ранг: Местный житель
Сообщений: 19197
Репутация: 4423 ±
Замечаний: ±

Excel 365 & Mac Excel
Красиво


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеКрасиво

Автор - Pelena
Дата добавления - 12.08.2014 в 08:35
AlexM Дата: Вторник, 12.08.2014, 09:50 | Сообщение № 28
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4511
Репутация: 1128 ±
Замечаний: 0% ±

Excel 2003
Здорово. :)
Михаил, а почему в условии задачи задан диапазон со столбцом Е?
Думал, что в пустом столбце секрет короткой формулы.



Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
СообщениеЗдорово. :)
Михаил, а почему в условии задачи задан диапазон со столбцом Е?
Думал, что в пустом столбце секрет короткой формулы.

Автор - AlexM
Дата добавления - 12.08.2014 в 09:50
vikttur Дата: Вторник, 12.08.2014, 10:44 | Сообщение № 29
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2941
Репутация: 526 ±
Замечаний: 0% ±

-1^ - чет/нечет, и без явных функций Excel. Красота.
 
Ответить
Сообщение-1^ - чет/нечет, и без явных функций Excel. Красота.

Автор - vikttur
Дата добавления - 12.08.2014 в 10:44
SM Дата: Среда, 13.08.2014, 13:25 | Сообщение № 30
Группа: Друзья
Ранг: Участник
Сообщений: 64
Репутация: 59 ±
Замечаний: 0% ±

2003
Не, просто раз уж сказал "A", то вот с "B":
[vba]
Код
Function FnXOR(TheRange As Range)
     Dim B As Boolean, Cell As Range
     On Error Resume Next
     For Each Cell In TheRange.Cells
         B = CBool(Cell) <> B
     Next
     FnXOR = B
End Function
[/vba]


Excel изощрён, но не злонамерен
 
Ответить
СообщениеНе, просто раз уж сказал "A", то вот с "B":
[vba]
Код
Function FnXOR(TheRange As Range)
     Dim B As Boolean, Cell As Range
     On Error Resume Next
     For Each Cell In TheRange.Cells
         B = CBool(Cell) <> B
     Next
     FnXOR = B
End Function
[/vba]

Автор - SM
Дата добавления - 13.08.2014 в 13:25
Мир MS Excel » Работа и общение » Мозговой штурм » Xor (ИСКЛИЛИ)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

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