Результаты поиска
krosav4ig
Дата: Четверг, 23.04.2015, 16:01 |
Сообщение № 721 | Тема: Поиск условия и копирование данных между листами
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
KolyvanOFF , сколько значений с листа чек нужно копировать? на листе свод 7 строк, на листе чек - 8...
KolyvanOFF , сколько значений с листа чек нужно копировать? на листе свод 7 строк, на листе чек - 8...krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение KolyvanOFF , сколько значений с листа чек нужно копировать? на листе свод 7 строк, на листе чек - 8...Автор - krosav4ig Дата добавления - 23.04.2015 в 16:01
krosav4ig
Дата: Пятница, 24.04.2015, 12:18 |
Сообщение № 722 | Тема: Поиск условия и копирование данных между листами
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
[vba]
Код
Option Explicit Private Sub Чек() With [Свод!C:C,Свод!R:R].Find(Me.[K4], , xlValues, 1).Offset(4).Offset(, 1).Resize(9, 11) If Application.CountA(.Rows(1)) < 11 Then If .Cells(1, Application.CountA(.Rows(1))) = Me.[N1] Then MsgBox "Дата уже есть!": Exit Sub Else: .Columns(Application.CountA(.Rows(1)) + 1) = Me.[R18:R26].Value End If Else: MsgBox "нет пустых столбцов!" End If End With End Sub
[/vba]
В R26 можно написать формулу (наверно)
[vba]
Код
Option Explicit Private Sub Чек() With [Свод!C:C,Свод!R:R].Find(Me.[K4], , xlValues, 1).Offset(4).Offset(, 1).Resize(9, 11) If Application.CountA(.Rows(1)) < 11 Then If .Cells(1, Application.CountA(.Rows(1))) = Me.[N1] Then MsgBox "Дата уже есть!": Exit Sub Else: .Columns(Application.CountA(.Rows(1)) + 1) = Me.[R18:R26].Value End If Else: MsgBox "нет пустых столбцов!" End If End With End Sub
[/vba]
В R26 можно написать формулу (наверно)krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение
[vba]
Код
Option Explicit Private Sub Чек() With [Свод!C:C,Свод!R:R].Find(Me.[K4], , xlValues, 1).Offset(4).Offset(, 1).Resize(9, 11) If Application.CountA(.Rows(1)) < 11 Then If .Cells(1, Application.CountA(.Rows(1))) = Me.[N1] Then MsgBox "Дата уже есть!": Exit Sub Else: .Columns(Application.CountA(.Rows(1)) + 1) = Me.[R18:R26].Value End If Else: MsgBox "нет пустых столбцов!" End If End With End Sub
[/vba]
В R26 можно написать формулу (наверно)Автор - krosav4ig Дата добавления - 24.04.2015 в 12:18
krosav4ig
Дата: Пятница, 24.04.2015, 13:56 |
Сообщение № 723 | Тема: посчитать кол-во уникальных числовых значений за период
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Еще вариант, формула массивная, вводится комбинацией Ctrl+Shift+Enter Код
=СУММ(ЕСЛИ(ЧАСТОТА(ЕСЛИ(РАЗНДАТ(ДАТАМЕС(J$3;-99);$G$5:$G$9;"m")=99;$A$5:$F$9);$A$5:$F$9);1))
опоздал
Еще вариант, формула массивная, вводится комбинацией Ctrl+Shift+Enter Код
=СУММ(ЕСЛИ(ЧАСТОТА(ЕСЛИ(РАЗНДАТ(ДАТАМЕС(J$3;-99);$G$5:$G$9;"m")=99;$A$5:$F$9);$A$5:$F$9);1))
опоздал krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Пятница, 24.04.2015, 13:57
Ответить
Сообщение Еще вариант, формула массивная, вводится комбинацией Ctrl+Shift+Enter Код
=СУММ(ЕСЛИ(ЧАСТОТА(ЕСЛИ(РАЗНДАТ(ДАТАМЕС(J$3;-99);$G$5:$G$9;"m")=99;$A$5:$F$9);$A$5:$F$9);1))
опоздал Автор - krosav4ig Дата добавления - 24.04.2015 в 13:56
krosav4ig
Дата: Пятница, 24.04.2015, 14:06 |
Сообщение № 724 | Тема: Определенная дата в ячейке
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
[offtop]а я как самый ленивый иногда пишу [$-F800]
[offtop]а я как самый ленивый иногда пишу [$-F800] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение [offtop]а я как самый ленивый иногда пишу [$-F800] Автор - krosav4ig Дата добавления - 24.04.2015 в 14:06
krosav4ig
Дата: Пятница, 24.04.2015, 14:26 |
Сообщение № 725 | Тема: посчитать кол-во уникальных числовых значений за период
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Код
=СУММ(ЕСЛИ(ЧАСТОТА(ЕСЛИ(МУМНОЖ(Ч(РАЗНДАТ(ДАТАМЕС(--J3:K3;-99);$G$5:$G$9;"m")=99);{1:1});$A$5:$F$9);$A$5:$F$9);1))
илиКод
=СУММ(ЕСЛИ(ЧАСТОТА(ЕСЛИ(МУМНОЖ(Ч(ТЕКСТ($G5:$G9;"ММГ")=ТЕКСТ(ДАТАМЕС(J3;{0;1});"ММГ"));{1:1});$B5:$F9);$B5:$F9)>0;1))
Код
=СУММ(ЕСЛИ(ЧАСТОТА(ЕСЛИ(МУМНОЖ(Ч(РАЗНДАТ(ДАТАМЕС(--J3:K3;-99);$G$5:$G$9;"m")=99);{1:1});$A$5:$F$9);$A$5:$F$9);1))
илиКод
=СУММ(ЕСЛИ(ЧАСТОТА(ЕСЛИ(МУМНОЖ(Ч(ТЕКСТ($G5:$G9;"ММГ")=ТЕКСТ(ДАТАМЕС(J3;{0;1});"ММГ"));{1:1});$B5:$F9);$B5:$F9)>0;1))
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Пятница, 24.04.2015, 14:27
Ответить
Сообщение Код
=СУММ(ЕСЛИ(ЧАСТОТА(ЕСЛИ(МУМНОЖ(Ч(РАЗНДАТ(ДАТАМЕС(--J3:K3;-99);$G$5:$G$9;"m")=99);{1:1});$A$5:$F$9);$A$5:$F$9);1))
илиКод
=СУММ(ЕСЛИ(ЧАСТОТА(ЕСЛИ(МУМНОЖ(Ч(ТЕКСТ($G5:$G9;"ММГ")=ТЕКСТ(ДАТАМЕС(J3;{0;1});"ММГ"));{1:1});$B5:$F9);$B5:$F9)>0;1))
Автор - krosav4ig Дата добавления - 24.04.2015 в 14:26
krosav4ig
Дата: Пятница, 24.04.2015, 14:39 |
Сообщение № 726 | Тема: Поиск условия и копирование данных между листами
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение ну дык Автор - krosav4ig Дата добавления - 24.04.2015 в 14:39
krosav4ig
Дата: Пятница, 24.04.2015, 15:55 |
Сообщение № 727 | Тема: условие для EXP
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
diksis71 , вы попытайтесь своему преподавателю объяснить, что Ecxel не умеет работать с числами большими, чем 9,9E+307 (для сравнения e^709~8,21840746155497E+307) [p.s.]попробуйте тут ввести e^710 и посмотрите, что получится
diksis71 , вы попытайтесь своему преподавателю объяснить, что Ecxel не умеет работать с числами большими, чем 9,9E+307 (для сравнения e^709~8,21840746155497E+307) [p.s.]попробуйте тут ввести e^710 и посмотрите, что получитсяkrosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Пятница, 24.04.2015, 16:00
Ответить
Сообщение diksis71 , вы попытайтесь своему преподавателю объяснить, что Ecxel не умеет работать с числами большими, чем 9,9E+307 (для сравнения e^709~8,21840746155497E+307) [p.s.]попробуйте тут ввести e^710 и посмотрите, что получитсяАвтор - krosav4ig Дата добавления - 24.04.2015 в 15:55
krosav4ig
Дата: Пятница, 24.04.2015, 16:05 |
Сообщение № 728 | Тема: Поиск условия и копирование данных между листами
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
совсем забыл, на листе Свод нужно разъединить ячейки куда пишутся ФИО (C2:N2,R2:AC2,C17:N17 и т.д.)
совсем забыл, на листе Свод нужно разъединить ячейки куда пишутся ФИО (C2:N2,R2:AC2,C17:N17 и т.д.) krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение совсем забыл, на листе Свод нужно разъединить ячейки куда пишутся ФИО (C2:N2,R2:AC2,C17:N17 и т.д.) Автор - krosav4ig Дата добавления - 24.04.2015 в 16:05
krosav4ig
Дата: Пятница, 24.04.2015, 17:43 |
Сообщение № 729 | Тема: Наглядное представления дроби
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
число пи можно представить как
355/113 с точностью 0,001% а (355+1%%%)/(113+10%%%) с точностью 0,000008%, правда это уже не простая дробь...
число пи можно представить как
355/113 с точностью 0,001% а (355+1%%%)/(113+10%%%) с точностью 0,000008%, правда это уже не простая дробь...krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Пятница, 24.04.2015, 18:17
Ответить
Сообщение число пи можно представить как
355/113 с точностью 0,001% а (355+1%%%)/(113+10%%%) с точностью 0,000008%, правда это уже не простая дробь...Автор - krosav4ig Дата добавления - 24.04.2015 в 17:43
krosav4ig
Дата: Пятница, 24.04.2015, 18:30 |
Сообщение № 730 | Тема: Красивые числа на сайте
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Зеркало
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Зеркало Автор - krosav4ig Дата добавления - 24.04.2015 в 18:30
krosav4ig
Дата: Пятница, 24.04.2015, 19:48 |
Сообщение № 731 | Тема: Ход конем
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
ничего своего не придумал, тока поковырялся в формуле Романа Код
=Ч(И(3-ABS(МУМНОЖ(КОДСИМВ(ЛЕВБ(A1:B1));{1:-1}))=ABS(ПРАВБ(A1)-ПРАВБ(B1));((ЛЕВБ(A1)=ЛЕВБ(B1))=(ПРАВБ(A1)=ПРАВБ(B1)))))
ничего своего не придумал, тока поковырялся в формуле Романа Код
=Ч(И(3-ABS(МУМНОЖ(КОДСИМВ(ЛЕВБ(A1:B1));{1:-1}))=ABS(ПРАВБ(A1)-ПРАВБ(B1));((ЛЕВБ(A1)=ЛЕВБ(B1))=(ПРАВБ(A1)=ПРАВБ(B1)))))
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Пятница, 24.04.2015, 20:01
Ответить
Сообщение ничего своего не придумал, тока поковырялся в формуле Романа Код
=Ч(И(3-ABS(МУМНОЖ(КОДСИМВ(ЛЕВБ(A1:B1));{1:-1}))=ABS(ПРАВБ(A1)-ПРАВБ(B1));((ЛЕВБ(A1)=ЛЕВБ(B1))=(ПРАВБ(A1)=ПРАВБ(B1)))))
Автор - krosav4ig Дата добавления - 24.04.2015 в 19:48
krosav4ig
Дата: Воскресенье, 26.04.2015, 19:28 |
Сообщение № 732 | Тема: Сравнение ячеек со множеством значений
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
неа, глюк в теме, из нее исчезло 2 поста
неа, глюк в теме, из нее исчезло 2 поста krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение неа, глюк в теме, из нее исчезло 2 поста Автор - krosav4ig Дата добавления - 26.04.2015 в 19:28
krosav4ig
Дата: Воскресенье, 26.04.2015, 20:51 |
Сообщение № 733 | Тема: Палиндром
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
для любой строки с учетом пробелов - массивная формула 96 без "=" для любой строки без учета пробелов - массивная формула 62 без "="
для любой строки с учетом пробелов - массивная формула 96 без "=" для любой строки без учета пробелов - массивная формула 62 без "=" krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение для любой строки с учетом пробелов - массивная формула 96 без "=" для любой строки без учета пробелов - массивная формула 62 без "=" Автор - krosav4ig Дата добавления - 26.04.2015 в 20:51
krosav4ig
Дата: Воскресенье, 26.04.2015, 22:18 |
Сообщение № 734 | Тема: Палиндром
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
AlexM , если протягиваться должно тока вертикально, то у мну можно убрать все $, и получиццо 92 и 58
AlexM , если протягиваться должно тока вертикально, то у мну можно убрать все $, и получиццо 92 и 58 krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение AlexM , если протягиваться должно тока вертикально, то у мну можно убрать все $, и получиццо 92 и 58 Автор - krosav4ig Дата добавления - 26.04.2015 в 22:18
krosav4ig
Дата: Воскресенье, 26.04.2015, 23:05 |
Сообщение № 735 | Тема: Палиндром
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
А Вера рева А Лида гадила А Лида свечку чукче всадила А врет стерва Бабе плоть толпе баб Буду жив увижу дуб Гене давал Слава денег Еж колок же Косе водка как довесок Лезу на санузел А по морде ведром опа
А Вера рева А Лида гадила А Лида свечку чукче всадила А врет стерва Бабе плоть толпе баб Буду жив увижу дуб Гене давал Слава денег Еж колок же Косе водка как довесок Лезу на санузел А по морде ведром опа krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение А Вера рева А Лида гадила А Лида свечку чукче всадила А врет стерва Бабе плоть толпе баб Буду жив увижу дуб Гене давал Слава денег Еж колок же Косе водка как довесок Лезу на санузел А по морде ведром опа Автор - krosav4ig Дата добавления - 26.04.2015 в 23:05
krosav4ig
Дата: Понедельник, 27.04.2015, 02:35 |
Сообщение № 736 | Тема: Как функцией заполнять указываемые диапазоны флажками
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
как-то это неправильно... [vba]Код
Function trest(ByVal rget As Range) As Integer Application.Volatile False Dim cell As Range For Each cell In rget.Cells cell.Font.Name = "Wingdings" cell.Font.Size = 12 cell.Replace cell.Value, IIf(cell.Value = "o", "ю", "o") Next trest = 1 End Function
[/vba]
как-то это неправильно... [vba]Код
Function trest(ByVal rget As Range) As Integer Application.Volatile False Dim cell As Range For Each cell In rget.Cells cell.Font.Name = "Wingdings" cell.Font.Size = 12 cell.Replace cell.Value, IIf(cell.Value = "o", "ю", "o") Next trest = 1 End Function
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение как-то это неправильно... [vba]Код
Function trest(ByVal rget As Range) As Integer Application.Volatile False Dim cell As Range For Each cell In rget.Cells cell.Font.Name = "Wingdings" cell.Font.Size = 12 cell.Replace cell.Value, IIf(cell.Value = "o", "ю", "o") Next trest = 1 End Function
[/vba] Автор - krosav4ig Дата добавления - 27.04.2015 в 02:35
krosav4ig
Дата: Понедельник, 27.04.2015, 03:04 |
Сообщение № 737 | Тема: Как продолжить интервал?
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
как-то так
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Понедельник, 27.04.2015, 03:10
Ответить
Сообщение как-то так Автор - krosav4ig Дата добавления - 27.04.2015 в 03:04
krosav4ig
Дата: Понедельник, 27.04.2015, 11:58 |
Сообщение № 738 | Тема: Сравнение ячеек со множеством значений
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
а у мну 63 символа массивная Код
=СЧЁТ(ПОИСК(ПОВТОР("* "&СТОЛБЕЦ(A:T)&",";2);" "&B2&", "&C2&","))
и 74 символа немассивная Код
=СУММ(Ч(МУМНОЖ(-ЕОШ(ПОИСК(" "&СТРОКА($1:$20)&",";" "&B2:C2&","));{1:1})=0))
и массивная 954 891 для любого количества любых чисел Код
=СЧЁТ(1/(ПСТР(B3;НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&B3;СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1));1)=" ";СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1)));СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1)));ДЛСТР(B3)+2-НАИБОЛЬШИЙ(ЕСЛИ(ПСТР(B3&",";ДЛСТР(B3)+2-СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1));1)=",";СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1)));СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1)))-НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&B3;СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1));1)=" ";СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1)));СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1))))=ПСТР(C3;НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&C3;СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1));1)=" ";СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1)));СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1)));ДЛСТР(C3)+2-НАИБОЛЬШИЙ(ЕСЛИ(ПСТР(C3&",";ДЛСТР(C3)+2-СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1));1)=",";СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1)));СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1)))-НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&C3;СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1));1)=" ";СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1)));СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1))))))
и массивная 588 с ограничениями под условия задачи (уникальные числа от 1 до 20) Код
=СЧЁТ(1/(ПСТР(B2;НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&B2;СТРОКА($1:$70);1)=" ";СТРОКА($1:$70));СТРОКА($1:$70));ДЛСТР(B2)+2-НАИБОЛЬШИЙ(ЕСЛИОШИБКА(ЕСЛИ(ПСТР(B2&",";ДЛСТР(B2)+2-СТРОКА($1:$70);1)=",";СТРОКА($1:$70));"");СТРОКА($1:$70))-НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&B2;СТРОКА($1:$70);1)=" ";СТРОКА($1:$70));СТРОКА($1:$70)))=ПСТР(C2;НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&C2;СТОЛБЕЦ(A:BR);1)=" ";СТОЛБЕЦ(A:BR));СТОЛБЕЦ(A:BR));ДЛСТР(C2)+2-НАИБОЛЬШИЙ(ЕСЛИОШИБКА(ЕСЛИ(ПСТР(C2&",";ДЛСТР(C2)+2-СТОЛБЕЦ(A:BR);1)=",";СТОЛБЕЦ(A:BR));"");СТОЛБЕЦ(A:BR))-НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&C2;СТОЛБЕЦ(A:BR);1)=" ";СТОЛБЕЦ(A:BR));СТОЛБЕЦ(A:BR)))))
upd. переписал пост, перевложил файл, ошибочка вышла
а у мну 63 символа массивная Код
=СЧЁТ(ПОИСК(ПОВТОР("* "&СТОЛБЕЦ(A:T)&",";2);" "&B2&", "&C2&","))
и 74 символа немассивная Код
=СУММ(Ч(МУМНОЖ(-ЕОШ(ПОИСК(" "&СТРОКА($1:$20)&",";" "&B2:C2&","));{1:1})=0))
и массивная 954 891 для любого количества любых чисел Код
=СЧЁТ(1/(ПСТР(B3;НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&B3;СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1));1)=" ";СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1)));СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1)));ДЛСТР(B3)+2-НАИБОЛЬШИЙ(ЕСЛИ(ПСТР(B3&",";ДЛСТР(B3)+2-СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1));1)=",";СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1)));СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1)))-НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&B3;СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1));1)=" ";СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1)));СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1))))=ПСТР(C3;НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&C3;СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1));1)=" ";СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1)));СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1)));ДЛСТР(C3)+2-НАИБОЛЬШИЙ(ЕСЛИ(ПСТР(C3&",";ДЛСТР(C3)+2-СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1));1)=",";СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1)));СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1)))-НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&C3;СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1));1)=" ";СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1)));СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1))))))
и массивная 588 с ограничениями под условия задачи (уникальные числа от 1 до 20) Код
=СЧЁТ(1/(ПСТР(B2;НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&B2;СТРОКА($1:$70);1)=" ";СТРОКА($1:$70));СТРОКА($1:$70));ДЛСТР(B2)+2-НАИБОЛЬШИЙ(ЕСЛИОШИБКА(ЕСЛИ(ПСТР(B2&",";ДЛСТР(B2)+2-СТРОКА($1:$70);1)=",";СТРОКА($1:$70));"");СТРОКА($1:$70))-НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&B2;СТРОКА($1:$70);1)=" ";СТРОКА($1:$70));СТРОКА($1:$70)))=ПСТР(C2;НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&C2;СТОЛБЕЦ(A:BR);1)=" ";СТОЛБЕЦ(A:BR));СТОЛБЕЦ(A:BR));ДЛСТР(C2)+2-НАИБОЛЬШИЙ(ЕСЛИОШИБКА(ЕСЛИ(ПСТР(C2&",";ДЛСТР(C2)+2-СТОЛБЕЦ(A:BR);1)=",";СТОЛБЕЦ(A:BR));"");СТОЛБЕЦ(A:BR))-НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&C2;СТОЛБЕЦ(A:BR);1)=" ";СТОЛБЕЦ(A:BR));СТОЛБЕЦ(A:BR)))))
upd. переписал пост, перевложил файл, ошибочка вышла krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Понедельник, 27.04.2015, 12:24
Ответить
Сообщение а у мну 63 символа массивная Код
=СЧЁТ(ПОИСК(ПОВТОР("* "&СТОЛБЕЦ(A:T)&",";2);" "&B2&", "&C2&","))
и 74 символа немассивная Код
=СУММ(Ч(МУМНОЖ(-ЕОШ(ПОИСК(" "&СТРОКА($1:$20)&",";" "&B2:C2&","));{1:1})=0))
и массивная 954 891 для любого количества любых чисел Код
=СЧЁТ(1/(ПСТР(B3;НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&B3;СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1));1)=" ";СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1)));СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1)));ДЛСТР(B3)+2-НАИБОЛЬШИЙ(ЕСЛИ(ПСТР(B3&",";ДЛСТР(B3)+2-СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1));1)=",";СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1)));СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1)))-НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&B3;СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1));1)=" ";СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1)));СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1))))=ПСТР(C3;НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&C3;СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1));1)=" ";СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1)));СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1)));ДЛСТР(C3)+2-НАИБОЛЬШИЙ(ЕСЛИ(ПСТР(C3&",";ДЛСТР(C3)+2-СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1));1)=",";СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1)));СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1)))-НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&C3;СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1));1)=" ";СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1)));СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1))))))
и массивная 588 с ограничениями под условия задачи (уникальные числа от 1 до 20) Код
=СЧЁТ(1/(ПСТР(B2;НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&B2;СТРОКА($1:$70);1)=" ";СТРОКА($1:$70));СТРОКА($1:$70));ДЛСТР(B2)+2-НАИБОЛЬШИЙ(ЕСЛИОШИБКА(ЕСЛИ(ПСТР(B2&",";ДЛСТР(B2)+2-СТРОКА($1:$70);1)=",";СТРОКА($1:$70));"");СТРОКА($1:$70))-НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&B2;СТРОКА($1:$70);1)=" ";СТРОКА($1:$70));СТРОКА($1:$70)))=ПСТР(C2;НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&C2;СТОЛБЕЦ(A:BR);1)=" ";СТОЛБЕЦ(A:BR));СТОЛБЕЦ(A:BR));ДЛСТР(C2)+2-НАИБОЛЬШИЙ(ЕСЛИОШИБКА(ЕСЛИ(ПСТР(C2&",";ДЛСТР(C2)+2-СТОЛБЕЦ(A:BR);1)=",";СТОЛБЕЦ(A:BR));"");СТОЛБЕЦ(A:BR))-НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&C2;СТОЛБЕЦ(A:BR);1)=" ";СТОЛБЕЦ(A:BR));СТОЛБЕЦ(A:BR)))))
upd. переписал пост, перевложил файл, ошибочка вышла Автор - krosav4ig Дата добавления - 27.04.2015 в 11:58
krosav4ig
Дата: Понедельник, 27.04.2015, 12:18 |
Сообщение № 739 | Тема: Сравнение ячеек со множеством значений
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
пасяба
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение пасяба Автор - krosav4ig Дата добавления - 27.04.2015 в 12:18
krosav4ig
Дата: Понедельник, 27.04.2015, 17:37 |
Сообщение № 740 | Тема: Палиндром
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
вне конкурса. макрофункция, учитывает все знаки препинания и пробелы (для расчета берет только русские символы) в общей сложности 200 символов с 1 "=" (в вызове функции)
вне конкурса. макрофункция, учитывает все знаки препинания и пробелы (для расчета берет только русские символы) в общей сложности 200 символов с 1 "=" (в вызове функции) krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Понедельник, 27.04.2015, 17:41
Ответить
Сообщение вне конкурса. макрофункция, учитывает все знаки препинания и пробелы (для расчета берет только русские символы) в общей сложности 200 символов с 1 "=" (в вызове функции) Автор - krosav4ig Дата добавления - 27.04.2015 в 17:37