Результаты поиска
krosav4ig
Дата: Четверг, 01.12.2016, 16:44 |
Сообщение № 1001 | Тема: Функция ВПР в объединенных ячейках не находит данные.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
можно ли выложить формулу для столбца D
я же ужо прописал формулу в файле [vba]Код
=ВПР(C6;данные!$C$5:$D$10;2;)
[/vba]
можно ли выложить формулу для столбца D
я же ужо прописал формулу в файле [vba]Код
=ВПР(C6;данные!$C$5:$D$10;2;)
[/vba]krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Четверг, 01.12.2016, 16:45
Ответить
Сообщение можно ли выложить формулу для столбца D
я же ужо прописал формулу в файле [vba]Код
=ВПР(C6;данные!$C$5:$D$10;2;)
[/vba]Автор - krosav4ig Дата добавления - 01.12.2016 в 16:44
krosav4ig
Дата: Четверг, 01.12.2016, 15:13 |
Сообщение № 1002 | Тема: Подсчет баллов по условию
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
а я так понял (формула массива)Код
=СУММ((Лист2!A2:A19=ЕСЛИ((ДЛСТР(Z4:DZ4)>0)*(ОСТАТ(СТОЛБЕЦ(F4:DF4);6)=0);W4:DW4))*Лист2!E2:E19)
а я так понял (формула массива)Код
=СУММ((Лист2!A2:A19=ЕСЛИ((ДЛСТР(Z4:DZ4)>0)*(ОСТАТ(СТОЛБЕЦ(F4:DF4);6)=0);W4:DW4))*Лист2!E2:E19)
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Четверг, 01.12.2016, 15:13
Ответить
Сообщение а я так понял (формула массива)Код
=СУММ((Лист2!A2:A19=ЕСЛИ((ДЛСТР(Z4:DZ4)>0)*(ОСТАТ(СТОЛБЕЦ(F4:DF4);6)=0);W4:DW4))*Лист2!E2:E19)
Автор - krosav4ig Дата добавления - 01.12.2016 в 15:13
krosav4ig
Дата: Четверг, 01.12.2016, 12:48 |
Сообщение № 1003 | Тема: Функция ВПР в объединенных ячейках не находит данные.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Здравствуйте Для A6 формулаКод
=ВПР(C6;ЕСЛИ({1;0};данные!$C$5:$C$10;данные!$A$5:$A$10);2;)
Здравствуйте Для A6 формулаКод
=ВПР(C6;ЕСЛИ({1;0};данные!$C$5:$C$10;данные!$A$5:$A$10);2;)
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Четверг, 01.12.2016, 12:49
Ответить
Сообщение Здравствуйте Для A6 формулаКод
=ВПР(C6;ЕСЛИ({1;0};данные!$C$5:$C$10;данные!$A$5:$A$10);2;)
Автор - krosav4ig Дата добавления - 01.12.2016 в 12:48
krosav4ig
Дата: Четверг, 01.12.2016, 11:57 |
Сообщение № 1004 | Тема: PowerQuery- Частичная группировка и транспонирование таблицы
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
всегда пожалуйста нужно было функцию создать
странно, у меня в обычном запросе нормально отрабатывает создаю пустой запрос (Из других источников>Пустой запрос), пихаю это все в расширенный редактор и все отрабатывает без ошибок
всегда пожалуйста нужно было функцию создать
странно, у меня в обычном запросе нормально отрабатывает создаю пустой запрос (Из других источников>Пустой запрос), пихаю это все в расширенный редактор и все отрабатывает без ошибок krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение всегда пожалуйста нужно было функцию создать
странно, у меня в обычном запросе нормально отрабатывает создаю пустой запрос (Из других источников>Пустой запрос), пихаю это все в расширенный редактор и все отрабатывает без ошибок Автор - krosav4ig Дата добавления - 01.12.2016 в 11:57
krosav4ig
Дата: Четверг, 01.12.2016, 04:28 |
Сообщение № 1005 | Тема: PowerQuery- Частичная группировка и транспонирование таблицы
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
а у мну вот так получилось :) [vba]Код
let ExpandAll = (TableToExpand as table, optional ColumnNumber as number) as table => let ActualColumnNumber = if (ColumnNumber=null) then 0 else ColumnNumber, ColumnName = Table.ColumnNames(TableToExpand){ActualColumnNumber}, ColumnContents = Table.Column(TableToExpand, ColumnName), ColumnsToExpand = List.Distinct(List.Combine(List.Transform(ColumnContents, each if _ is table then Table.ColumnNames(_) else {}))), NewColumnNames = List.Transform(ColumnsToExpand, each ColumnName & "." & _), CanExpandCurrentColumn = List.Count(ColumnsToExpand)>0, ExpandedTable = if CanExpandCurrentColumn then Table.ExpandTableColumn(TableToExpand, ColumnName, ColumnsToExpand, NewColumnNames) else TableToExpand, NextColumnNumber = if CanExpandCurrentColumn then ActualColumnNumber else ActualColumnNumber+1 in if NextColumnNumber>(Table.ColumnCount(ExpandedTable)-1) then ExpandedTable else fn{0}(ExpandedTable, NextColumnNumber), col = [results={"id", "vendor", "shortName", "titles", "offers", "isNew", "parentId", "specGroups"},vendor={"id", "name"},specGroups="specGuruModelcard", name="results.specGroups.specGuruModelcard.name",value="results.specGroups.specGuruModelcard.value"], fn = { ExpandAll, //callback для рекурсии each {[file=[Folder Path]&[Name],results=Table.FromRecords(Json.Document([Content])[productModsSearch][search][results]), total=Json.Document([Content])[productModsSearch][search][total]]}{0}, {"results",each Table.TransformColumns(Table.SelectColumns(_,col[results]),{{"vendor",each Table.FromRecords({Record.SelectFields(_,col[vendor])})}, {"specGroups",each Table.TransformColumns(Table.SelectColumns(Table.FromRecords(_),col[specGroups]),{"specGuruModelcard",Table.FromRecords})}, {"offers",each Table.FromRecords({_})},{"titles",each Table.FromRecords({_})}})} }, step1 = ExpandAll(Table.TransformColumns(Table.FromRecords(Table.TransformRows(Folder.Files(GetValue("pathName")),fn{1})),fn{2})), step2 = Table.ReplaceValue(step1,"",null,Replacer.ReplaceValue,{col[value]}), step3 = Table.Pivot(step2, List.Distinct(Table.Column(step2,col[name])),col[name],col[value],each Text.Combine(_,"|")) in step3
[/vba]
а у мну вот так получилось :) [vba]Код
let ExpandAll = (TableToExpand as table, optional ColumnNumber as number) as table => let ActualColumnNumber = if (ColumnNumber=null) then 0 else ColumnNumber, ColumnName = Table.ColumnNames(TableToExpand){ActualColumnNumber}, ColumnContents = Table.Column(TableToExpand, ColumnName), ColumnsToExpand = List.Distinct(List.Combine(List.Transform(ColumnContents, each if _ is table then Table.ColumnNames(_) else {}))), NewColumnNames = List.Transform(ColumnsToExpand, each ColumnName & "." & _), CanExpandCurrentColumn = List.Count(ColumnsToExpand)>0, ExpandedTable = if CanExpandCurrentColumn then Table.ExpandTableColumn(TableToExpand, ColumnName, ColumnsToExpand, NewColumnNames) else TableToExpand, NextColumnNumber = if CanExpandCurrentColumn then ActualColumnNumber else ActualColumnNumber+1 in if NextColumnNumber>(Table.ColumnCount(ExpandedTable)-1) then ExpandedTable else fn{0}(ExpandedTable, NextColumnNumber), col = [results={"id", "vendor", "shortName", "titles", "offers", "isNew", "parentId", "specGroups"},vendor={"id", "name"},specGroups="specGuruModelcard", name="results.specGroups.specGuruModelcard.name",value="results.specGroups.specGuruModelcard.value"], fn = { ExpandAll, //callback для рекурсии each {[file=[Folder Path]&[Name],results=Table.FromRecords(Json.Document([Content])[productModsSearch][search][results]), total=Json.Document([Content])[productModsSearch][search][total]]}{0}, {"results",each Table.TransformColumns(Table.SelectColumns(_,col[results]),{{"vendor",each Table.FromRecords({Record.SelectFields(_,col[vendor])})}, {"specGroups",each Table.TransformColumns(Table.SelectColumns(Table.FromRecords(_),col[specGroups]),{"specGuruModelcard",Table.FromRecords})}, {"offers",each Table.FromRecords({_})},{"titles",each Table.FromRecords({_})}})} }, step1 = ExpandAll(Table.TransformColumns(Table.FromRecords(Table.TransformRows(Folder.Files(GetValue("pathName")),fn{1})),fn{2})), step2 = Table.ReplaceValue(step1,"",null,Replacer.ReplaceValue,{col[value]}), step3 = Table.Pivot(step2, List.Distinct(Table.Column(step2,col[name])),col[name],col[value],each Text.Combine(_,"|")) in step3
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Четверг, 01.12.2016, 04:31
Ответить
Сообщение а у мну вот так получилось :) [vba]Код
let ExpandAll = (TableToExpand as table, optional ColumnNumber as number) as table => let ActualColumnNumber = if (ColumnNumber=null) then 0 else ColumnNumber, ColumnName = Table.ColumnNames(TableToExpand){ActualColumnNumber}, ColumnContents = Table.Column(TableToExpand, ColumnName), ColumnsToExpand = List.Distinct(List.Combine(List.Transform(ColumnContents, each if _ is table then Table.ColumnNames(_) else {}))), NewColumnNames = List.Transform(ColumnsToExpand, each ColumnName & "." & _), CanExpandCurrentColumn = List.Count(ColumnsToExpand)>0, ExpandedTable = if CanExpandCurrentColumn then Table.ExpandTableColumn(TableToExpand, ColumnName, ColumnsToExpand, NewColumnNames) else TableToExpand, NextColumnNumber = if CanExpandCurrentColumn then ActualColumnNumber else ActualColumnNumber+1 in if NextColumnNumber>(Table.ColumnCount(ExpandedTable)-1) then ExpandedTable else fn{0}(ExpandedTable, NextColumnNumber), col = [results={"id", "vendor", "shortName", "titles", "offers", "isNew", "parentId", "specGroups"},vendor={"id", "name"},specGroups="specGuruModelcard", name="results.specGroups.specGuruModelcard.name",value="results.specGroups.specGuruModelcard.value"], fn = { ExpandAll, //callback для рекурсии each {[file=[Folder Path]&[Name],results=Table.FromRecords(Json.Document([Content])[productModsSearch][search][results]), total=Json.Document([Content])[productModsSearch][search][total]]}{0}, {"results",each Table.TransformColumns(Table.SelectColumns(_,col[results]),{{"vendor",each Table.FromRecords({Record.SelectFields(_,col[vendor])})}, {"specGroups",each Table.TransformColumns(Table.SelectColumns(Table.FromRecords(_),col[specGroups]),{"specGuruModelcard",Table.FromRecords})}, {"offers",each Table.FromRecords({_})},{"titles",each Table.FromRecords({_})}})} }, step1 = ExpandAll(Table.TransformColumns(Table.FromRecords(Table.TransformRows(Folder.Files(GetValue("pathName")),fn{1})),fn{2})), step2 = Table.ReplaceValue(step1,"",null,Replacer.ReplaceValue,{col[value]}), step3 = Table.Pivot(step2, List.Distinct(Table.Column(step2,col[name])),col[name],col[value],each Text.Combine(_,"|")) in step3
[/vba] Автор - krosav4ig Дата добавления - 01.12.2016 в 04:28
krosav4ig
Дата: Среда, 30.11.2016, 17:24 |
Сообщение № 1006 | Тема: PowerQuery- Частичная группировка и транспонирование таблицы
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Имхо, Table.Pivot должен помочь. Позже вечером отпишусь, щас негде пощупать. вот вариант "на коленке", может не работать [vba]Код
Table.Pivot(Таблица, List.Distinct([Custom.Value.results.specGroups.specGuruModelcard.name]), "Custom.Value.results.specGroups.specGuruModelcard.name", "Custom.Value.results.specGroups.specGuruModelcard.value", each if List.Count(_)>1 then _ else _{0})
[/vba] а потом разворачивать столбцы, где получился List
Имхо, Table.Pivot должен помочь. Позже вечером отпишусь, щас негде пощупать. вот вариант "на коленке", может не работать [vba]Код
Table.Pivot(Таблица, List.Distinct([Custom.Value.results.specGroups.specGuruModelcard.name]), "Custom.Value.results.specGroups.specGuruModelcard.name", "Custom.Value.results.specGroups.specGuruModelcard.value", each if List.Count(_)>1 then _ else _{0})
[/vba] а потом разворачивать столбцы, где получился List krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Имхо, Table.Pivot должен помочь. Позже вечером отпишусь, щас негде пощупать. вот вариант "на коленке", может не работать [vba]Код
Table.Pivot(Таблица, List.Distinct([Custom.Value.results.specGroups.specGuruModelcard.name]), "Custom.Value.results.specGroups.specGuruModelcard.name", "Custom.Value.results.specGroups.specGuruModelcard.value", each if List.Count(_)>1 then _ else _{0})
[/vba] а потом разворачивать столбцы, где получился List Автор - krosav4ig Дата добавления - 30.11.2016 в 17:24
krosav4ig
Дата: Среда, 30.11.2016, 17:04 |
Сообщение № 1007 | Тема: Работа с переменными окружения Windows.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
еси мне память не изменяет, то [vba]Код
SetEnvironmentVariable "test", Empty 'удаление переменной
[/vba]по крайней мере в Басике было так [vba]Код
Success := SetEnvironmentVariable(PChar(VarName), nil)
[/vba] а быстрее, имхо, потому, что создаются переменные процесса, а не системные, как было с WScript.Shell
еси мне память не изменяет, то [vba]Код
SetEnvironmentVariable "test", Empty 'удаление переменной
[/vba]по крайней мере в Басике было так [vba]Код
Success := SetEnvironmentVariable(PChar(VarName), nil)
[/vba] а быстрее, имхо, потому, что создаются переменные процесса, а не системные, как было с WScript.Shell krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Среда, 30.11.2016, 17:09
Ответить
Сообщение еси мне память не изменяет, то [vba]Код
SetEnvironmentVariable "test", Empty 'удаление переменной
[/vba]по крайней мере в Басике было так [vba]Код
Success := SetEnvironmentVariable(PChar(VarName), nil)
[/vba] а быстрее, имхо, потому, что создаются переменные процесса, а не системные, как было с WScript.Shell Автор - krosav4ig Дата добавления - 30.11.2016 в 17:04
krosav4ig
Дата: Среда, 30.11.2016, 14:28 |
Сообщение № 1008 | Тема: Как получить переменную из временной формы?
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Ну дык поэтому ине совсем адекватная мысля
Ну дык поэтому ине совсем адекватная мысля
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Среда, 30.11.2016, 17:00
Ответить
Сообщение Ну дык поэтому ине совсем адекватная мысля
Автор - krosav4ig Дата добавления - 30.11.2016 в 14:28
krosav4ig
Дата: Среда, 30.11.2016, 13:40 |
Сообщение № 1009 | Тема: Посчитать кол-во указанной даты в столбце с датами и времене
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Здравствуйте Например, вот так (формула массива)Код
=СЧЁТ(1/(B2=ОТБР(A2:A7)))
Здравствуйте Например, вот так (формула массива)Код
=СЧЁТ(1/(B2=ОТБР(A2:A7)))
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Среда, 30.11.2016, 13:51
Ответить
Сообщение Здравствуйте Например, вот так (формула массива)Код
=СЧЁТ(1/(B2=ОТБР(A2:A7)))
Автор - krosav4ig Дата добавления - 30.11.2016 в 13:40
krosav4ig
Дата: Среда, 30.11.2016, 04:37 |
Сообщение № 1010 | Тема: Подсчёт данных последних 10 ячеек в обновляемом столбце
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Здравствуйте как-то так, напримерКод
=СЧЁТЕСЛИ(СМЕЩ(ИНДЕКС(A:A;ПОИСКПОЗ(9^9;A:A));;;-10);0)
Здравствуйте как-то так, напримерКод
=СЧЁТЕСЛИ(СМЕЩ(ИНДЕКС(A:A;ПОИСКПОЗ(9^9;A:A));;;-10);0)
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Здравствуйте как-то так, напримерКод
=СЧЁТЕСЛИ(СМЕЩ(ИНДЕКС(A:A;ПОИСКПОЗ(9^9;A:A));;;-10);0)
Автор - krosav4ig Дата добавления - 30.11.2016 в 04:37
krosav4ig
Дата: Среда, 30.11.2016, 00:48 |
Сообщение № 1011 | Тема: рецептура-- формулой
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
в рецептурах есть еще рецептура.
я правильно пнял, что в 'Выпечка Расчёт'!H7 должно получиться [vba][/vba] по формуле Код
=(Выпечка!D53+Выпечка!D59*Выпечка!D200)*'Выпечка Расчёт'!H3
?
в рецептурах есть еще рецептура.
я правильно пнял, что в 'Выпечка Расчёт'!H7 должно получиться [vba][/vba] по формуле Код
=(Выпечка!D53+Выпечка!D59*Выпечка!D200)*'Выпечка Расчёт'!H3
?krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение в рецептурах есть еще рецептура.
я правильно пнял, что в 'Выпечка Расчёт'!H7 должно получиться [vba][/vba] по формуле Код
=(Выпечка!D53+Выпечка!D59*Выпечка!D200)*'Выпечка Расчёт'!H3
?Автор - krosav4ig Дата добавления - 30.11.2016 в 00:48
krosav4ig
Дата: Вторник, 29.11.2016, 23:24 |
Сообщение № 1012 | Тема: Как получить переменную из временной формы?
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Здравствуйте. Чего-то меня посетила не совсем адекватная мысля... Может стоит подумать в эту сторону
Здравствуйте. Чего-то меня посетила не совсем адекватная мысля... Может стоит подумать в эту сторону krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Вторник, 29.11.2016, 23:28
Ответить
Сообщение Здравствуйте. Чего-то меня посетила не совсем адекватная мысля... Может стоит подумать в эту сторону Автор - krosav4ig Дата добавления - 29.11.2016 в 23:24
krosav4ig
Дата: Вторник, 29.11.2016, 04:59 |
Сообщение № 1013 | Тема: макрос или формула для нестандартной транспонации
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Здравствуйте можно через надстройку Power Query
[vba]
Код
let Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content], #"Сгруппированные строки" = Table.Group(Источник, {"Столбец2"}, {{"Столбец3", each Text.Combine(List.Transform(_[Столбец3],each try Text.From(_) otherwise ""),";"), type text}}), #"Переупорядоченные столбцы" = Table.ReorderColumns(Table.AddIndexColumn(#"Сгруппированные строки", "Столбец1", 1, 1),{"Столбец1", "Столбец2", "Столбец3"}) in #"Переупорядоченные столбцы"
[/vba]
Здравствуйте можно через надстройку Power Query
[vba]
Код
let Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content], #"Сгруппированные строки" = Table.Group(Источник, {"Столбец2"}, {{"Столбец3", each Text.Combine(List.Transform(_[Столбец3],each try Text.From(_) otherwise ""),";"), type text}}), #"Переупорядоченные столбцы" = Table.ReorderColumns(Table.AddIndexColumn(#"Сгруппированные строки", "Столбец1", 1, 1),{"Столбец1", "Столбец2", "Столбец3"}) in #"Переупорядоченные столбцы"
[/vba]
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Здравствуйте можно через надстройку Power Query
[vba]
Код
let Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content], #"Сгруппированные строки" = Table.Group(Источник, {"Столбец2"}, {{"Столбец3", each Text.Combine(List.Transform(_[Столбец3],each try Text.From(_) otherwise ""),";"), type text}}), #"Переупорядоченные столбцы" = Table.ReorderColumns(Table.AddIndexColumn(#"Сгруппированные строки", "Столбец1", 1, 1),{"Столбец1", "Столбец2", "Столбец3"}) in #"Переупорядоченные столбцы"
[/vba]
Автор - krosav4ig Дата добавления - 29.11.2016 в 04:59
krosav4ig
Дата: Воскресенье, 27.11.2016, 14:52 |
Сообщение № 1014 | Тема: Вставить нужную строку из таблицы в зависимости от значения
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Добрый день Так нужно?Код
=ПРОСМОТР(2;МУМНОЖ(Ч(-ТЕКСТ(ПСТР(L$2;2;99)-ПСТР($B$3:$F$6;2;99);"0;999;0")=МАКС(-ТЕКСТ(ПСТР(L$2;2;99)-ПСТР($B$3:$F$6;2;99);"0;999;0")));ТРАНСП(СТОЛБЕЦ($B$3:$F$6)))^0;ИНДЕКС($B$3:$F$6;;СТРОКА(L1)))
Добрый день Так нужно?Код
=ПРОСМОТР(2;МУМНОЖ(Ч(-ТЕКСТ(ПСТР(L$2;2;99)-ПСТР($B$3:$F$6;2;99);"0;999;0")=МАКС(-ТЕКСТ(ПСТР(L$2;2;99)-ПСТР($B$3:$F$6;2;99);"0;999;0")));ТРАНСП(СТОЛБЕЦ($B$3:$F$6)))^0;ИНДЕКС($B$3:$F$6;;СТРОКА(L1)))
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Добрый день Так нужно?Код
=ПРОСМОТР(2;МУМНОЖ(Ч(-ТЕКСТ(ПСТР(L$2;2;99)-ПСТР($B$3:$F$6;2;99);"0;999;0")=МАКС(-ТЕКСТ(ПСТР(L$2;2;99)-ПСТР($B$3:$F$6;2;99);"0;999;0")));ТРАНСП(СТОЛБЕЦ($B$3:$F$6)))^0;ИНДЕКС($B$3:$F$6;;СТРОКА(L1)))
Автор - krosav4ig Дата добавления - 27.11.2016 в 14:52
krosav4ig
Дата: Воскресенье, 27.11.2016, 14:18 |
Сообщение № 1015 | Тема: сводная таблица по таблице-шахматке, подсчет итогов
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Дополнение к материалу по ссылке Делаем из диапазона умную таблицу, при добавлении диапазонов в консолидированную сводную в мастере сводных и диаграмм пишем не адрес диапазона, а ссылку на таблицу в формате ИмяТаблицы[#Все] и отпадает необходимость следить за изменением размеров исходных диапазонов изменить/добавить диапазоны в консолидированной сводной можно выделив любой элемент в сводной и нажав иконку мастера сводных и диаграмм, затем тык по кнопке Назад
Дополнение к материалу по ссылке Делаем из диапазона умную таблицу, при добавлении диапазонов в консолидированную сводную в мастере сводных и диаграмм пишем не адрес диапазона, а ссылку на таблицу в формате ИмяТаблицы[#Все] и отпадает необходимость следить за изменением размеров исходных диапазонов изменить/добавить диапазоны в консолидированной сводной можно выделив любой элемент в сводной и нажав иконку мастера сводных и диаграмм, затем тык по кнопке Назад krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Дополнение к материалу по ссылке Делаем из диапазона умную таблицу, при добавлении диапазонов в консолидированную сводную в мастере сводных и диаграмм пишем не адрес диапазона, а ссылку на таблицу в формате ИмяТаблицы[#Все] и отпадает необходимость следить за изменением размеров исходных диапазонов изменить/добавить диапазоны в консолидированной сводной можно выделив любой элемент в сводной и нажав иконку мастера сводных и диаграмм, затем тык по кнопке Назад Автор - krosav4ig Дата добавления - 27.11.2016 в 14:18
krosav4ig
Дата: Суббота, 26.11.2016, 04:49 |
Сообщение № 1016 | Тема: Удалние символов справа до первой запятой
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Здравствуйте Можно как-то такКод
=ЛЕВБ(B3;ДЛСТР(B3)-ДЛСТР(СЖПРОБЕЛЫ(0&ПРАВБ(ПОДСТАВИТЬ(B3;",";ПОВТОР(" ";999));999))))
илиКод
=ЛЕВБ(B3;ПРОСМОТР(;-1/(ПСТР(B3;СТРОКА(1:99);1)=",");СТРОКА(1:99))-1)
Здравствуйте Можно как-то такКод
=ЛЕВБ(B3;ДЛСТР(B3)-ДЛСТР(СЖПРОБЕЛЫ(0&ПРАВБ(ПОДСТАВИТЬ(B3;",";ПОВТОР(" ";999));999))))
илиКод
=ЛЕВБ(B3;ПРОСМОТР(;-1/(ПСТР(B3;СТРОКА(1:99);1)=",");СТРОКА(1:99))-1)
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Суббота, 26.11.2016, 04:52
Ответить
Сообщение Здравствуйте Можно как-то такКод
=ЛЕВБ(B3;ДЛСТР(B3)-ДЛСТР(СЖПРОБЕЛЫ(0&ПРАВБ(ПОДСТАВИТЬ(B3;",";ПОВТОР(" ";999));999))))
илиКод
=ЛЕВБ(B3;ПРОСМОТР(;-1/(ПСТР(B3;СТРОКА(1:99);1)=",");СТРОКА(1:99))-1)
Автор - krosav4ig Дата добавления - 26.11.2016 в 04:49
krosav4ig
Дата: Суббота, 26.11.2016, 01:29 |
Сообщение № 1017 | Тема: перенос строчек из одной вкладки в другую
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
или так[vba]Код
Sub d() Dim r As Range With [index(2!A:A,rows(A:A))].End(xlUp) Set r = IIf(.Row > 4, .Offset(1), [2!A4]) End With [1!A:A].Replace "s", "=zz1", 1 On Error Resume Next With [1!ZZ1].Dependents .Value = "s" .EntireRow.Copy r .EntireRow.Delete End With End Sub
[/vba]
или так[vba]Код
Sub d() Dim r As Range With [index(2!A:A,rows(A:A))].End(xlUp) Set r = IIf(.Row > 4, .Offset(1), [2!A4]) End With [1!A:A].Replace "s", "=zz1", 1 On Error Resume Next With [1!ZZ1].Dependents .Value = "s" .EntireRow.Copy r .EntireRow.Delete End With End Sub
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Суббота, 26.11.2016, 01:31
Ответить
Сообщение или так[vba]Код
Sub d() Dim r As Range With [index(2!A:A,rows(A:A))].End(xlUp) Set r = IIf(.Row > 4, .Offset(1), [2!A4]) End With [1!A:A].Replace "s", "=zz1", 1 On Error Resume Next With [1!ZZ1].Dependents .Value = "s" .EntireRow.Copy r .EntireRow.Delete End With End Sub
[/vba] Автор - krosav4ig Дата добавления - 26.11.2016 в 01:29
krosav4ig
Дата: Пятница, 25.11.2016, 16:56 |
Сообщение № 1018 | Тема: Разделение строки на части (не более N-символов)
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
еще вариант
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение еще вариант Автор - krosav4ig Дата добавления - 25.11.2016 в 16:56
krosav4ig
Дата: Четверг, 24.11.2016, 16:45 |
Сообщение № 1019 | Тема: Диаграмма кол-ва сотрудников. Красивая, наглядная, необычная
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Добрый деньнужно что-нибудь эдакое, выпендрежное
сразу вспомнилось E90E50 charts , вдруг чего-нить подойдет.
Добрый деньнужно что-нибудь эдакое, выпендрежное
сразу вспомнилось E90E50 charts , вдруг чего-нить подойдет. krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Добрый деньнужно что-нибудь эдакое, выпендрежное
сразу вспомнилось E90E50 charts , вдруг чего-нить подойдет. Автор - krosav4ig Дата добавления - 24.11.2016 в 16:45
krosav4ig
Дата: Среда, 23.11.2016, 00:32 |
Сообщение № 1020 | Тема: как изменить макрос для переноса значения а не формулы
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
данные почему-то копируются со 2й строки
наверно, потому, чтопробуйте так[vba]Код
With wb.Worksheets(1) With .Range("a" & .Rows.Count).End(xlUp) Set cell = IIf(IsEmpty(.Value), .Cells, .Offset(1)) End With End With
[/vba]
данные почему-то копируются со 2й строки
наверно, потому, чтопробуйте так[vba]Код
With wb.Worksheets(1) With .Range("a" & .Rows.Count).End(xlUp) Set cell = IIf(IsEmpty(.Value), .Cells, .Offset(1)) End With End With
[/vba]krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение данные почему-то копируются со 2й строки
наверно, потому, чтопробуйте так[vba]Код
With wb.Worksheets(1) With .Range("a" & .Rows.Count).End(xlUp) Set cell = IIf(IsEmpty(.Value), .Cells, .Offset(1)) End With End With
[/vba]Автор - krosav4ig Дата добавления - 23.11.2016 в 00:32