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

Вход

Регистрация

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

 

= Мир MS Excel/Записи участника (krosav4ig) - Мир MS Excel

Старая форма входа
Мир MS Excel » Записи участника » krosav4ig [2343]
Результаты поиска
krosav4ig Дата: Четверг, 04.06.2015, 19:10 | Сообщение № 781 | Тема: Формирование массива с возможными значениями
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
В C2 формула для расширенного фильтра
[vba]
Код
Private Sub Макрос1()
      [D1].EntireColumn.ClearContents: [D1] = [A1]: [A1].CurrentRegion.AdvancedFilter 2, [C1:C2], [D1], 1
End Sub
[/vba]
и в довесок
[vba]
Код
Private Sub Макрос2()
      Dim arr()
      With Application: .ScreenUpdating = 0: .EnableEvents = 0
          arr = Evaluate("IF(MATCH(A1:A559&""с-т"",A1:A559&SUBSTITUTE(B1:B559,""солд."",""с-т""),)=ROW(1:559),ROW(1:559))")
          arr = .Transpose(.Small(.IfError(arr, ""), Evaluate("ROW(1:" & .Count(arr) & ")")))
          [e2].Resize(UBound(arr)) = .Transpose(.Lookup(arr, Evaluate("ROW(1:559)"), [A1:A559].Value))
          '[f2].Resize(UBound(arr)) = .Transpose(.Lookup(arr, Evaluate("ROW(1:559)"), [B1:B559].Value))
      .ScreenUpdating = 1: .EnableEvents = 1: End With
End Sub
[/vba]
К сообщению приложен файл: 8518643-1-.xls (66.5 Kb)

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

Сообщение отредактировал krosav4ig - Четверг, 04.06.2015, 20:19
 
Ответить
СообщениеВ C2 формула для расширенного фильтра
[vba]
Код
Private Sub Макрос1()
      [D1].EntireColumn.ClearContents: [D1] = [A1]: [A1].CurrentRegion.AdvancedFilter 2, [C1:C2], [D1], 1
End Sub
[/vba]
и в довесок
[vba]
Код
Private Sub Макрос2()
      Dim arr()
      With Application: .ScreenUpdating = 0: .EnableEvents = 0
          arr = Evaluate("IF(MATCH(A1:A559&""с-т"",A1:A559&SUBSTITUTE(B1:B559,""солд."",""с-т""),)=ROW(1:559),ROW(1:559))")
          arr = .Transpose(.Small(.IfError(arr, ""), Evaluate("ROW(1:" & .Count(arr) & ")")))
          [e2].Resize(UBound(arr)) = .Transpose(.Lookup(arr, Evaluate("ROW(1:559)"), [A1:A559].Value))
          '[f2].Resize(UBound(arr)) = .Transpose(.Lookup(arr, Evaluate("ROW(1:559)"), [B1:B559].Value))
      .ScreenUpdating = 1: .EnableEvents = 1: End With
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 04.06.2015 в 19:10
krosav4ig Дата: Пятница, 05.06.2015, 13:32 | Сообщение № 782 | Тема: Заполнение (галочка) в элементе "Флажок" кнопкой Enter
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Excel_User, а чем вам пробел не нравится?

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеExcel_User, а чем вам пробел не нравится?
Автор - krosav4ig
Дата добавления - 05.06.2015 в 13:32
krosav4ig Дата: Понедельник, 08.06.2015, 16:18 | Сообщение № 783 | Тема: Координаты центра описанной окружности треугольника
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
у мну тож
Код
=МУМНОЖ(МОБР(B2:C3-B4:C4);МУМНОЖ(B2:C3^2-B4:C4^2;{1:1})/2)
и
Код
=СУММКВРАЗН(МУМНОЖ(МОБР(B2:C3-B3:C4);МУМНОЖ(B2:C3^2-B3:C4^2;{1:1})/2);B2:C2)^0,5

укоротил свой первоначальный вариант до 99 и радиус до 108 c "="
x
Код
=((B2^2+C2^2)*(C4-C3)+(B3^2+C3^2)*(C2-C4)+(B4^2+C4^2)*(C3-C2))/2/(B2*(C4-C3)+B3*(C2-C4)+B4*(C3-C2))
y
Код
=((B2^2+C2^2)*(B3-B4)+(B3^2+C3^2)*(B4-B2)+(B4^2+C4^2)*(B2-B3))/2/(B2*(C4-C3)+B3*(C2-C4)+B4*(C3-C2))
r
Код
=(((B2-B3)^2+(C2-C3)^2)*((B2-B4)^2+(C2-C4)^2)*((B3-B4)^2+(C3-C4)^2))^0,5/2/(B2*(C4-C3)+B3*(C2-C4)+B4*(C3-C2))
плюс
x
Код
=СУММ(B2:C3^2*{-1:1}/2;(C2-C3)*D3)/(B3-B2)
y
Код
=ЕСЛИ(C2=C3;СУММ(B3:C4^2*{-1:1}/2;(B3-B4)*D2)/(C4-C3);СУММ(B2:C3^2*{-1:1}/2;(B2-B3)*D2)/(C3-C2))
К сообщению приложен файл: triangle-2-.xls (40.0 Kb)

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

Сообщение отредактировал krosav4ig - Понедельник, 08.06.2015, 16:19
 
Ответить
Сообщениеу мну тож
Код
=МУМНОЖ(МОБР(B2:C3-B4:C4);МУМНОЖ(B2:C3^2-B4:C4^2;{1:1})/2)
и
Код
=СУММКВРАЗН(МУМНОЖ(МОБР(B2:C3-B3:C4);МУМНОЖ(B2:C3^2-B3:C4^2;{1:1})/2);B2:C2)^0,5

укоротил свой первоначальный вариант до 99 и радиус до 108 c "="
x
Код
=((B2^2+C2^2)*(C4-C3)+(B3^2+C3^2)*(C2-C4)+(B4^2+C4^2)*(C3-C2))/2/(B2*(C4-C3)+B3*(C2-C4)+B4*(C3-C2))
y
Код
=((B2^2+C2^2)*(B3-B4)+(B3^2+C3^2)*(B4-B2)+(B4^2+C4^2)*(B2-B3))/2/(B2*(C4-C3)+B3*(C2-C4)+B4*(C3-C2))
r
Код
=(((B2-B3)^2+(C2-C3)^2)*((B2-B4)^2+(C2-C4)^2)*((B3-B4)^2+(C3-C4)^2))^0,5/2/(B2*(C4-C3)+B3*(C2-C4)+B4*(C3-C2))
плюс
x
Код
=СУММ(B2:C3^2*{-1:1}/2;(C2-C3)*D3)/(B3-B2)
y
Код
=ЕСЛИ(C2=C3;СУММ(B3:C4^2*{-1:1}/2;(B3-B4)*D2)/(C4-C3);СУММ(B2:C3^2*{-1:1}/2;(B2-B3)*D2)/(C3-C2))
Автор - krosav4ig
Дата добавления - 08.06.2015 в 16:18
krosav4ig Дата: Понедельник, 08.06.2015, 17:51 | Сообщение № 784 | Тема: Накопительный отчет
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Alex181086, добавляете лист, дописываете его имя в столбец A на Лист2
К сообщению приложен файл: _1-2-1.xls (96.5 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеAlex181086, добавляете лист, дописываете его имя в столбец A на Лист2
Автор - krosav4ig
Дата добавления - 08.06.2015 в 17:51
krosav4ig Дата: Вторник, 09.06.2015, 13:36 | Сообщение № 785 | Тема: Координаты центра описанной окружности треугольника
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Светлый, для вписанной есть же формулы
Код
x=(A.x*BC+B.x*CA+C.x*AB)/(AB+BC+CA), y=(A.y*BC+B.y*CA+C.y*AB)/(AB+BC+CA), r=S*2/(AB+BC+CA)

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

Сообщение отредактировал krosav4ig - Вторник, 09.06.2015, 13:37
 
Ответить
СообщениеСветлый, для вписанной есть же формулы
Код
x=(A.x*BC+B.x*CA+C.x*AB)/(AB+BC+CA), y=(A.y*BC+B.y*CA+C.y*AB)/(AB+BC+CA), r=S*2/(AB+BC+CA)
Автор - krosav4ig
Дата добавления - 09.06.2015 в 13:36
krosav4ig Дата: Вторник, 09.06.2015, 16:23 | Сообщение № 786 | Тема: Найти первое цифровое вхождение
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
если перед искомым числом всегда есть пробел
Код
=ЗАМЕНИТЬ(A2;1;ПОИСКПОЗ(1;1^ПСТР(A2;СТРОКА(1:99);2););)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеесли перед искомым числом всегда есть пробел
Код
=ЗАМЕНИТЬ(A2;1;ПОИСКПОЗ(1;1^ПСТР(A2;СТРОКА(1:99);2););)
Автор - krosav4ig
Дата добавления - 09.06.2015 в 16:23
krosav4ig Дата: Вторник, 16.06.2015, 20:44 | Сообщение № 787 | Тема: Сводный список с другого листа.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
еще вариант, жмем Ctrl+Alt+F5 и на Листе1 в таблицу собираются нужные строки с листов БДМ№1 и БДМ№2
К сообщению приложен файл: 4.1-1-.xlsm (97.4 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениееще вариант, жмем Ctrl+Alt+F5 и на Листе1 в таблицу собираются нужные строки с листов БДМ№1 и БДМ№2
Автор - krosav4ig
Дата добавления - 16.06.2015 в 20:44
krosav4ig Дата: Четверг, 18.06.2015, 23:56 | Сообщение № 788 | Тема: Сравнить два столбца и вывести уникальные значения
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
leg, а такой вариант не подойдет?
К сообщению приложен файл: 5741828.xlsm (17.9 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеleg, а такой вариант не подойдет?
Автор - krosav4ig
Дата добавления - 18.06.2015 в 23:56
krosav4ig Дата: Пятница, 19.06.2015, 16:59 | Сообщение № 789 | Тема: вычисление количества повторов
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
еще вариант, доп столбец+расширенный фильтр
К сообщению приложен файл: 7158631.jpg (32.4 Kb) · 0639528.xlsx (10.7 Kb)

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

Сообщение отредактировал krosav4ig - Пятница, 19.06.2015, 17:03
 
Ответить
Сообщениееще вариант, доп столбец+расширенный фильтр
Автор - krosav4ig
Дата добавления - 19.06.2015 в 16:59
krosav4ig Дата: Понедельник, 22.06.2015, 19:22 | Сообщение № 790 | Тема: Суммирование суммы с учетом двух критериев
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
еще вариант
Код
=СУММ(ЕСЛИ(МУМНОЖ(ЕСЛИОШИБКА(ПОИСК(ЕСЛИ({1;0};I$7;$G8);$F$2:$G$5)^0;);{1:1})=2;ЛЕВБ(ПОДСТАВИТЬ(ПСТР($H$2:$H$5;ПОИСК($G8;$G$2:$G$5)+ДЛСТР($G8)+1;99);СИМВОЛ(10);ПОВТОР(" ";99));99);)*$D$2:$D$5)
К сообщению приложен файл: 1695721.xls (25.5 Kb)

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

Сообщение отредактировал krosav4ig - Понедельник, 22.06.2015, 19:22
 
Ответить
Сообщениееще вариант
Код
=СУММ(ЕСЛИ(МУМНОЖ(ЕСЛИОШИБКА(ПОИСК(ЕСЛИ({1;0};I$7;$G8);$F$2:$G$5)^0;);{1:1})=2;ЛЕВБ(ПОДСТАВИТЬ(ПСТР($H$2:$H$5;ПОИСК($G8;$G$2:$G$5)+ДЛСТР($G8)+1;99);СИМВОЛ(10);ПОВТОР(" ";99));99);)*$D$2:$D$5)
Автор - krosav4ig
Дата добавления - 22.06.2015 в 19:22
krosav4ig Дата: Понедельник, 22.06.2015, 19:54 | Сообщение № 791 | Тема: Всплывающее окно без кнопки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
если нужен прогрессбар, то вот тут есть

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеесли нужен прогрессбар, то вот тут есть
Автор - krosav4ig
Дата добавления - 22.06.2015 в 19:54
krosav4ig Дата: Вторник, 23.06.2015, 14:46 | Сообщение № 792 | Тема: Объединить нескольк. колонок с числами в одну для работы ВПР
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Valee, попробуйте волшебную комбинацию ;)
встаете в A1, жмете Ctrl+Shift+Space>F5>Alt+ВЙ>Enter>Ctrl+->Enter
[p.s.]так интереснее Ctrl+Shift+Space>F10>ЯФВГЙ>Enter>Ctrl+->Enter
Раскладка должна быть русская

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

Сообщение отредактировал krosav4ig - Вторник, 23.06.2015, 14:54
 
Ответить
СообщениеValee, попробуйте волшебную комбинацию ;)
встаете в A1, жмете Ctrl+Shift+Space>F5>Alt+ВЙ>Enter>Ctrl+->Enter
[p.s.]так интереснее Ctrl+Shift+Space>F10>ЯФВГЙ>Enter>Ctrl+->Enter
Раскладка должна быть русская
Автор - krosav4ig
Дата добавления - 23.06.2015 в 14:46
krosav4ig Дата: Среда, 24.06.2015, 14:39 | Сообщение № 793 | Тема: Вывести из названия ЗАГЛАВНЫЕ буквы
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
К сообщению приложен файл: 7352694.xls (53.5 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Автор - krosav4ig
Дата добавления - 24.06.2015 в 14:39
krosav4ig Дата: Среда, 24.06.2015, 19:02 | Сообщение № 794 | Тема: Вставка кнопки макроса на ленту в Excel 2010
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Макрописец, почитайте тут и тут

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеМакрописец, почитайте тут и тут
Автор - krosav4ig
Дата добавления - 24.06.2015 в 19:02
krosav4ig Дата: Среда, 24.06.2015, 19:31 | Сообщение № 795 | Тема: Вставка кнопки макроса на ленту в Excel 2010
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
тык

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениетык
Автор - krosav4ig
Дата добавления - 24.06.2015 в 19:31
krosav4ig Дата: Четверг, 25.06.2015, 11:55 | Сообщение № 796 | Тема: Объединить нескольк. колонок с числами в одну для работы ВПР
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
KSV, действительно, выделение лишнее, excel сам расширяет выделение до currentregion

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеKSV, действительно, выделение лишнее, excel сам расширяет выделение до currentregion
Автор - krosav4ig
Дата добавления - 25.06.2015 в 11:55
krosav4ig Дата: Четверг, 25.06.2015, 13:48 | Сообщение № 797 | Тема: функция Если с несколькими условиями, как продолжить
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
еще вариант
Код
=ИНДЕКС({0;-4;-11;-29;-41:4;0;-8;-26;-39:12;8;0;-20;-33:41;36;25;0;-17:69;63;50;20;0}%;ПОИСКПОЗ(G6%;{0:0,1:0,5:1:3});ПОИСКПОЗ(F6%;{0;0,1;0,5;1;3}))

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

Сообщение отредактировал krosav4ig - Четверг, 25.06.2015, 13:49
 
Ответить
Сообщениееще вариант
Код
=ИНДЕКС({0;-4;-11;-29;-41:4;0;-8;-26;-39:12;8;0;-20;-33:41;36;25;0;-17:69;63;50;20;0}%;ПОИСКПОЗ(G6%;{0:0,1:0,5:1:3});ПОИСКПОЗ(F6%;{0;0,1;0,5;1;3}))
Автор - krosav4ig
Дата добавления - 25.06.2015 в 13:48
krosav4ig Дата: Четверг, 25.06.2015, 15:15 | Сообщение № 798 | Тема: Удаление заданного количества символов в начале ячейки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Код
=ЗАМЕНИТЬ(A3;1;20;)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Код
=ЗАМЕНИТЬ(A3;1;20;)
Автор - krosav4ig
Дата добавления - 25.06.2015 в 15:15
krosav4ig Дата: Четверг, 25.06.2015, 15:51 | Сообщение № 799 | Тема: Условие в зависимости от части текста в ячейке
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Код
=1-ЕОШ(ПОИСК("(к*к)";G10))

[p.s.]
Код
=C4&" (короб"&ТЕКСТ(ОСТАТ(МАКС(ОСТАТ(H10-11;100);9);10);"[<1]ка);[<4]ки);ок)")

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

Сообщение отредактировал krosav4ig - Четверг, 25.06.2015, 15:53
 
Ответить
Сообщение
Код
=1-ЕОШ(ПОИСК("(к*к)";G10))

[p.s.]
Код
=C4&" (короб"&ТЕКСТ(ОСТАТ(МАКС(ОСТАТ(H10-11;100);9);10);"[<1]ка);[<4]ки);ок)")
Автор - krosav4ig
Дата добавления - 25.06.2015 в 15:51
krosav4ig Дата: Пятница, 26.06.2015, 12:04 | Сообщение № 800 | Тема: Из нескольких дат взять последнюю дату.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
как вариант
Код
=ЕСЛИ(1-ЕПУСТО(A2);МАКС(--(B3:ИНДЕКС(B:B;ПОИСКПОЗ(;1-ЕОШ(-(B3:$B$30));)+СТРОКА(E1))));"")
К сообщению приложен файл: 8208330.xlsx (10.5 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениекак вариант
Код
=ЕСЛИ(1-ЕПУСТО(A2);МАКС(--(B3:ИНДЕКС(B:B;ПОИСКПОЗ(;1-ЕОШ(-(B3:$B$30));)+СТРОКА(E1))));"")
Автор - krosav4ig
Дата добавления - 26.06.2015 в 12:04
Мир MS Excel » Записи участника » krosav4ig [2343]
Поиск:

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