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

Вход

Регистрация

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

 

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

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

Excel 2007,2010,2013
упс, проглядел
Код
=ИНДЕКС({100;200;300;300:150;250;350;350:250;250;300;300:300;300;400;400:0;0;0;500};ПОИСКПОЗ(A7;{1:6:21:51:201});ПОИСКПОЗ(C7;{0;10000;20000;20001}))

или с доп. таблицей
Код
=ИНДЕКС(K2:N6;ПОИСКПОЗ(A7;J2:J6);ПОИСКПОЗ(C7;K1:N1))
К сообщению приложен файл: -4-.xlsx (12.3 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеупс, проглядел
Код
=ИНДЕКС({100;200;300;300:150;250;350;350:250;250;300;300:300;300;400;400:0;0;0;500};ПОИСКПОЗ(A7;{1:6:21:51:201});ПОИСКПОЗ(C7;{0;10000;20000;20001}))

или с доп. таблицей
Код
=ИНДЕКС(K2:N6;ПОИСКПОЗ(A7;J2:J6);ПОИСКПОЗ(C7;K1:N1))
Автор - krosav4ig
Дата добавления - 09.07.2016 в 05:17
krosav4ig Дата: Суббота, 09.07.2016, 00:03 | Сообщение № 1222 | Тема: выбор значения по 2-м параметрами
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
так нужно?
Код
=ИНДЕКС({100;200;300;0:150;250;350;0:0;250;300;0:0;300;400;0:0;0;0;500};ПОИСКПОЗ(A7;{1:6:21:51:201});ПОИСКПОЗ(C7;{0;10000;20000;20001}))

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениетак нужно?
Код
=ИНДЕКС({100;200;300;0:150;250;350;0:0;250;300;0:0;300;400;0:0;0;0;500};ПОИСКПОЗ(A7;{1:6:21:51:201});ПОИСКПОЗ(C7;{0;10000;20000;20001}))
Автор - krosav4ig
Дата добавления - 09.07.2016 в 00:03
krosav4ig Дата: Пятница, 08.07.2016, 14:36 | Сообщение № 1223 | Тема: При очистке "умной таблицы"макросом слетают формулы
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
а я пишу [vba]
Код
ActiveSheet.ListObjects(1).DataBodyRange.Clear
[/vba] и у мну ничего не слетает

UPD.
[vba]
Код
Sub Макрос1()
    Application.ScreenUpdating = 0
        With ActiveSheet.ListObjects(1)
            If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
            [1!O1:O33].AdvancedFilter xlFilterCopy, , [1!M1], True
            [1!M:M].SpecialCells(2, 23).Copy
            .HeaderRowRange(1, 1).PasteSpecial xlPasteValues
            [1!M:M].Clear
        End With
    Application.ScreenUpdating = True
End Sub
[/vba]

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

Сообщение отредактировал krosav4ig - Пятница, 08.07.2016, 15:01
 
Ответить
Сообщениеа я пишу [vba]
Код
ActiveSheet.ListObjects(1).DataBodyRange.Clear
[/vba] и у мну ничего не слетает

UPD.
[vba]
Код
Sub Макрос1()
    Application.ScreenUpdating = 0
        With ActiveSheet.ListObjects(1)
            If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
            [1!O1:O33].AdvancedFilter xlFilterCopy, , [1!M1], True
            [1!M:M].SpecialCells(2, 23).Copy
            .HeaderRowRange(1, 1).PasteSpecial xlPasteValues
            [1!M:M].Clear
        End With
    Application.ScreenUpdating = True
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 08.07.2016 в 14:36
krosav4ig Дата: Пятница, 08.07.2016, 14:26 | Сообщение № 1224 | Тема: Переход по гиперссылке на строку
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
в VBE в модуль ЭтаКнига [vba]
Код
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
    ActiveWindow.ScrollRow = ActiveCell.Row
End Sub
[/vba]
К сообщению приложен файл: 5575938.xlsm (19.0 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениев VBE в модуль ЭтаКнига [vba]
Код
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
    ActiveWindow.ScrollRow = ActiveCell.Row
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 08.07.2016 в 14:26
krosav4ig Дата: Четверг, 07.07.2016, 01:45 | Сообщение № 1225 | Тема: Сбор информации с Яндекс Маркета(Парсинг)
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Здравствуйте, а в эту сторону не смотрели?

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

Excel 2007,2010,2013
а можно немного поизвращаццо?
[vba]
Код
Sub dd()
    With [A1].CurrentRegion
        .Value = Application.IfError(Evaluate(Join(Array("mmult(MID(", _
            ",SEARCH({"":"","".""},", ")+2,2)/24/60^{0,1},{1;1})"), .Address(, , _
            Application.ReferenceStyle))), .Value)
        .NumberFormat = "[hh]:mm"
    End With
End Sub
[/vba]
К сообщению приложен файл: 9540686-2.xlsm (18.1 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеа можно немного поизвращаццо?
[vba]
Код
Sub dd()
    With [A1].CurrentRegion
        .Value = Application.IfError(Evaluate(Join(Array("mmult(MID(", _
            ",SEARCH({"":"","".""},", ")+2,2)/24/60^{0,1},{1;1})"), .Address(, , _
            Application.ReferenceStyle))), .Value)
        .NumberFormat = "[hh]:mm"
    End With
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 06.07.2016 в 23:03
krosav4ig Дата: Среда, 06.07.2016, 15:21 | Сообщение № 1227 | Тема: Сортировка по цифраф в строке
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
доп. столбец с формулой
Код
=ЕСЛИОШИБКА(ПРОСМОТР(9^9;--ПСТР(A2;МИН(ЕСЛИОШИБКА(ПОИСК(СТРОКА($1:$10)-1;A2);""));СТРОКА($1:$99)));A2)
и сортировка по нему
К сообщению приложен файл: _8070935.xlsx (10.7 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениедоп. столбец с формулой
Код
=ЕСЛИОШИБКА(ПРОСМОТР(9^9;--ПСТР(A2;МИН(ЕСЛИОШИБКА(ПОИСК(СТРОКА($1:$10)-1;A2);""));СТРОКА($1:$99)));A2)
и сортировка по нему
Автор - krosav4ig
Дата добавления - 06.07.2016 в 15:21
krosav4ig Дата: Вторник, 05.07.2016, 22:39 | Сообщение № 1228 | Тема: Массив, поиск из списка, подстановка значения
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
и еще массивная формула
Код
=ВПР("Итого:";ЕСЛИ(СТРОКА(G$12:G$26)>=ПОИСКПОЗ(B3;E:E;);$G$12:$L$26);6;)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеи еще массивная формула
Код
=ВПР("Итого:";ЕСЛИ(СТРОКА(G$12:G$26)>=ПОИСКПОЗ(B3;E:E;);$G$12:$L$26);6;)
Автор - krosav4ig
Дата добавления - 05.07.2016 в 22:39
krosav4ig Дата: Вторник, 05.07.2016, 15:59 | Сообщение № 1229 | Тема: Красивые числа на сайте
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата RAN, 24.06.2016 в 18:43, в сообщении № 463
Кругляшок.
К сообщению приложен файл: 9166395.gif (9.9 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Цитата RAN, 24.06.2016 в 18:43, в сообщении № 463
Кругляшок.
Автор - krosav4ig
Дата добавления - 05.07.2016 в 15:59
krosav4ig Дата: Вторник, 05.07.2016, 15:49 | Сообщение № 1230 | Тема: Необходимо сделать преобразование таблицы. Объединение строк
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
упс, небольшая ошибочка закралась, 4 вместо 3 в заголовке столбца, исправил
Цитата imagazina, 05.07.2016 в 09:56, в сообщении № 7
А как в таблицу добавить данные, что ко всем данным применились преобразования?

просто вставить в следующую строку под таблицей, она сама растянется
К сообщению приложен файл: ____.xlsx (16.1 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеупс, небольшая ошибочка закралась, 4 вместо 3 в заголовке столбца, исправил
Цитата imagazina, 05.07.2016 в 09:56, в сообщении № 7
А как в таблицу добавить данные, что ко всем данным применились преобразования?

просто вставить в следующую строку под таблицей, она сама растянется
Автор - krosav4ig
Дата добавления - 05.07.2016 в 15:49
krosav4ig Дата: Вторник, 05.07.2016, 15:05 | Сообщение № 1231 | Тема: Массив, поиск из списка, подстановка значения
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
для C3 немассивная формула
Код
=ИНДЕКС(L:L;ЕСЛИОШИБКА(ПОИСКПОЗ(B4;E:E;)-1;ПРОСМОТР("яяя";G:G;СТРОКА(G:G))))

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениедля C3 немассивная формула
Код
=ИНДЕКС(L:L;ЕСЛИОШИБКА(ПОИСКПОЗ(B4;E:E;)-1;ПРОСМОТР("яяя";G:G;СТРОКА(G:G))))
Автор - krosav4ig
Дата добавления - 05.07.2016 в 15:05
krosav4ig Дата: Вторник, 05.07.2016, 13:52 | Сообщение № 1232 | Тема: Скопировать лист с другим именем
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
можно было бы, если бы Worksheet.Copy была бы функцией и возвращала скопированный лист, а так все попытки приводят только к увеличению количества строк[vba]
Код
    имя_ = Range("B2")
    With Sheets.Add
        Sheets("ПФ").Cells.Copy .Cells
        .Name = [страницы_].Cells(Application.Match(имя_, [клиент_], 0), 1)
    End With
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеможно было бы, если бы Worksheet.Copy была бы функцией и возвращала скопированный лист, а так все попытки приводят только к увеличению количества строк[vba]
Код
    имя_ = Range("B2")
    With Sheets.Add
        Sheets("ПФ").Cells.Copy .Cells
        .Name = [страницы_].Cells(Application.Match(имя_, [клиент_], 0), 1)
    End With
[/vba]
Автор - krosav4ig
Дата добавления - 05.07.2016 в 13:52
krosav4ig Дата: Вторник, 05.07.2016, 13:28 | Сообщение № 1233 | Тема: Блокировка рабочей станции макросом
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Добрый день [vba]
Код
Shell Environ("windir") & "\system32\rundll32.exe user32.dll,LockWorkStation"
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеДобрый день [vba]
Код
Shell Environ("windir") & "\system32\rundll32.exe user32.dll,LockWorkStation"
[/vba]
Автор - krosav4ig
Дата добавления - 05.07.2016 в 13:28
krosav4ig Дата: Вторник, 05.07.2016, 02:45 | Сообщение № 1234 | Тема: Функции ИНДЕКС и ПОИСКПОЗ с данными на разных листах
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
GP75, вы столбцы со строками перепутали
Код
=ИНДЕКС(Данные!D2:AI6;ПОИСКПОЗ(F3;Данные!D2:D6;0);ПОИСКПОЗ(C3;Данные!D2:AI2;0))

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеGP75, вы столбцы со строками перепутали
Код
=ИНДЕКС(Данные!D2:AI6;ПОИСКПОЗ(F3;Данные!D2:D6;0);ПОИСКПОЗ(C3;Данные!D2:AI2;0))
Автор - krosav4ig
Дата добавления - 05.07.2016 в 02:45
krosav4ig Дата: Вторник, 05.07.2016, 01:53 | Сообщение № 1235 | Тема: Необходимо сделать преобразование таблицы. Объединение строк
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
это не архив битый, а архиватор его не понимает, у мну свежий 7zip, нормально открывает
перепаковал другим методом сжатия
К сообщению приложен файл: 6387996.zip (13.0 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеэто не архив битый, а архиватор его не понимает, у мну свежий 7zip, нормально открывает
перепаковал другим методом сжатия
Автор - krosav4ig
Дата добавления - 05.07.2016 в 01:53
krosav4ig Дата: Вторник, 05.07.2016, 00:59 | Сообщение № 1236 | Тема: Необходимо сделать преобразование таблицы. Объединение строк
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
решение сводной таблицей
К сообщению приложен файл: 6362767.zip (12.9 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениерешение сводной таблицей
Автор - krosav4ig
Дата добавления - 05.07.2016 в 00:59
krosav4ig Дата: Понедельник, 04.07.2016, 21:50 | Сообщение № 1237 | Тема: Сравнения двух таблиц с условием содержащим звездочку
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата BobroEJ, 04.07.2016 в 16:13, в сообщении № 3
Что значит данное логическое выражение?

в данном случае то же, что и
Код
ВЫБОР({1;2};A1:A20;C1:C20)
то есть слепливает два вертикальных одномерных массива в один двумерный

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Цитата BobroEJ, 04.07.2016 в 16:13, в сообщении № 3
Что значит данное логическое выражение?

в данном случае то же, что и
Код
ВЫБОР({1;2};A1:A20;C1:C20)
то есть слепливает два вертикальных одномерных массива в один двумерный
Автор - krosav4ig
Дата добавления - 04.07.2016 в 21:50
krosav4ig Дата: Понедельник, 04.07.2016, 21:45 | Сообщение № 1238 | Тема: Необходимо сделать преобразование таблицы. Объединение строк
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
а хде файл? deal

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

Сообщение отредактировал krosav4ig - Понедельник, 04.07.2016, 21:52
 
Ответить
Сообщениеа хде файл? deal
Автор - krosav4ig
Дата добавления - 04.07.2016 в 21:45
krosav4ig Дата: Понедельник, 04.07.2016, 01:26 | Сообщение № 1239 | Тема: Сравнения двух таблиц с условием содержащим звездочку
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Здравствуйте
Код
=ЕСЛИОШИБКА(ВПР(6;ЕСЛИ({1;0};МУМНОЖ(1-ЕОШ(ПОИСК($L$2:$Q$6;B2:G2));СТРОКА($1:$6)^0);$R$2:$R$6);2;);"НЕТ КОДА")
К сообщению приложен файл: 5100317.xlsx (12.5 Kb)

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

Сообщение отредактировал krosav4ig - Понедельник, 04.07.2016, 03:36
 
Ответить
СообщениеЗдравствуйте
Код
=ЕСЛИОШИБКА(ВПР(6;ЕСЛИ({1;0};МУМНОЖ(1-ЕОШ(ПОИСК($L$2:$Q$6;B2:G2));СТРОКА($1:$6)^0);$R$2:$R$6);2;);"НЕТ КОДА")
Автор - krosav4ig
Дата добавления - 04.07.2016 в 01:26
krosav4ig Дата: Воскресенье, 03.07.2016, 21:21 | Сообщение № 1240 | Тема: Некорректный подсчёт количества кликов через СУММПРОИЗВ
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
как вариант для столбцов показы и клики формула
Код
=ЕСЛИОШИБКА(СУММПРОИЗВ($B11:$BO11*(ПРОСМОТР(СТОЛБЕЦ($B$9:$BO$9);СТОЛБЕЦ($B$9:$BO$9)/(ДЛСТР($B$9:$BO$9)>0);$B$9:$BO$9)=ПРОСМОТР("яяя";$A$9:BP$9;$A$9:BP$9))*(ПРОСМОТР(СТОЛБЕЦ($B$10:$BO$10);СТОЛБЕЦ($B$10:$BO$10)/(ДЛСТР($B$10:$BO$10)>0);$B$10:$BO$10)=BP$10));0)
К сообщению приложен файл: 7583446.xls (68.0 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениекак вариант для столбцов показы и клики формула
Код
=ЕСЛИОШИБКА(СУММПРОИЗВ($B11:$BO11*(ПРОСМОТР(СТОЛБЕЦ($B$9:$BO$9);СТОЛБЕЦ($B$9:$BO$9)/(ДЛСТР($B$9:$BO$9)>0);$B$9:$BO$9)=ПРОСМОТР("яяя";$A$9:BP$9;$A$9:BP$9))*(ПРОСМОТР(СТОЛБЕЦ($B$10:$BO$10);СТОЛБЕЦ($B$10:$BO$10)/(ДЛСТР($B$10:$BO$10)>0);$B$10:$BO$10)=BP$10));0)
Автор - krosav4ig
Дата добавления - 03.07.2016 в 21:21
Мир MS Excel » Записи участника » krosav4ig [2343]
Поиск:

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