Результаты поиска
krosav4ig
Дата: Пятница, 13.03.2020, 11:16 |
Сообщение № 2241 | Тема: Разница дат, с условиями
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Здравствуйте Автор - krosav4ig Дата добавления - 13.03.2020 в 11:16
krosav4ig
Дата: Среда, 18.03.2020, 23:36 |
Сообщение № 2242 | Тема: Показать формулы (DisplayFormulas) в выделенном диапазоне
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
как вариант, закрепленный столбец
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение как вариант, закрепленный столбец Автор - krosav4ig Дата добавления - 18.03.2020 в 23:36
krosav4ig
Дата: Четверг, 19.03.2020, 04:06 |
Сообщение № 2243 | Тема: круговая диаграмма с равными секторами
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
krosav4ig
Дата: Четверг, 19.03.2020, 06:59 |
Сообщение № 2244 | Тема: Изменить формулу с помощью макроса
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
Используйте FormulaR1C1 [vba]Код
[AE:AN 3:4].FormulaR1C1="=IF(RC1=1,RC[-20],RC[-10])"
[/vba]
Используйте FormulaR1C1 [vba]Код
[AE:AN 3:4].FormulaR1C1="=IF(RC1=1,RC[-20],RC[-10])"
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Используйте FormulaR1C1 [vba]Код
[AE:AN 3:4].FormulaR1C1="=IF(RC1=1,RC[-20],RC[-10])"
[/vba] Автор - krosav4ig Дата добавления - 19.03.2020 в 06:59
krosav4ig
Дата: Четверг, 19.03.2020, 09:55 |
Сообщение № 2245 | Тема: Изменить формулу с помощью макроса
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
[vba]Код
Sub x() [AE:AN 3:4].FormulaR1C1 = "=IF(RC1=1,RC[-20],RC[-10])" End Sub
[/vba]
[vba]Код
Sub x() [AE:AN 3:4].FormulaR1C1 = "=IF(RC1=1,RC[-20],RC[-10])" End Sub
[/vba] krosav4ig
К сообщению приложен файл:
15_1.xlsm
(19.7 Kb)
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение [vba]Код
Sub x() [AE:AN 3:4].FormulaR1C1 = "=IF(RC1=1,RC[-20],RC[-10])" End Sub
[/vba] Автор - krosav4ig Дата добавления - 19.03.2020 в 09:55
krosav4ig
Дата: Понедельник, 23.03.2020, 13:18 |
Сообщение № 2246 | Тема: ПОЗДРАВЛЯЕМ СЕГОДНЯШНИХ ИМЕНИННИКОВ
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
Алексей, с днем рождения!
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Алексей, с днем рождения! Автор - krosav4ig Дата добавления - 23.03.2020 в 13:18
krosav4ig
Дата: Четверг, 02.04.2020, 06:02 |
Сообщение № 2247 | Тема: перевернуть и отзеркалить
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
выделить, скопировать, специальная вставка -> связанный рисунок и крутите, отражайте как хотите
выделить, скопировать, специальная вставка -> связанный рисунок и крутите, отражайте как хотите krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение выделить, скопировать, специальная вставка -> связанный рисунок и крутите, отражайте как хотите Автор - krosav4ig Дата добавления - 02.04.2020 в 06:02
krosav4ig
Дата: Четверг, 09.04.2020, 22:22 |
Сообщение № 2248 | Тема: Автоматическая вставка картинки из папки по артикулу V2.0
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
Здравствуйте [vba]Код
Public Sub InsPict() Dim arr, fldPath$, art$, fName$, i&, r0, lrow&, oDic As Object, IShape As Shape, Zm Dim v As Variant Set oDic = CreateObject("Scripting.Dictionary") r0 = 4 lrow = Cells(Rows.Count, 3).End(xlUp).Row arr = Cells(r0, 3).Resize(lrow - r0 + 1).Value For i = 1 To UBound(arr) v = oDic(arr(i, 1)) If IsEmpty(v) Then oDic(arr(i, 1)) = Array(i + r0 - 1) Else ReDim Preserve v(UBound(v) + 1) v(UBound(v)) = i + r0 - 1 oDic(arr(i, 1)) = v End If Next i For Each IShape In ActiveSheet.Shapes If IShape.Type <> 8 Then IShape.Delete Next fldPath = ThisWorkbook.Path & "\images\" 'путь к папке с изображениями Application.ScreenUpdating = False fName = Dir(fldPath & "*.jpg") Do While fName <> "" art = Split(fName, ".")(0) If oDic.Exists(art) Then For Each v In oDic(art) With Cells(v, 2) Set IShape = ActiveSheet.Shapes.AddPicture(fldPath & fName, False, True, .Left + 1, .Top + 1, -1, -1) Zm = WorksheetFunction.Min(.Width / IShape.Width, .Height / IShape.Height) IShape.Height = IShape.Height * Zm - 2 End With Next End If fName = Dir Loop Application.ScreenUpdating = True End Sub
[/vba]
Здравствуйте [vba]Код
Public Sub InsPict() Dim arr, fldPath$, art$, fName$, i&, r0, lrow&, oDic As Object, IShape As Shape, Zm Dim v As Variant Set oDic = CreateObject("Scripting.Dictionary") r0 = 4 lrow = Cells(Rows.Count, 3).End(xlUp).Row arr = Cells(r0, 3).Resize(lrow - r0 + 1).Value For i = 1 To UBound(arr) v = oDic(arr(i, 1)) If IsEmpty(v) Then oDic(arr(i, 1)) = Array(i + r0 - 1) Else ReDim Preserve v(UBound(v) + 1) v(UBound(v)) = i + r0 - 1 oDic(arr(i, 1)) = v End If Next i For Each IShape In ActiveSheet.Shapes If IShape.Type <> 8 Then IShape.Delete Next fldPath = ThisWorkbook.Path & "\images\" 'путь к папке с изображениями Application.ScreenUpdating = False fName = Dir(fldPath & "*.jpg") Do While fName <> "" art = Split(fName, ".")(0) If oDic.Exists(art) Then For Each v In oDic(art) With Cells(v, 2) Set IShape = ActiveSheet.Shapes.AddPicture(fldPath & fName, False, True, .Left + 1, .Top + 1, -1, -1) Zm = WorksheetFunction.Min(.Width / IShape.Width, .Height / IShape.Height) IShape.Height = IShape.Height * Zm - 2 End With Next End If fName = Dir Loop Application.ScreenUpdating = True End Sub
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Четверг, 09.04.2020, 22:23
Ответить
Сообщение Здравствуйте [vba]Код
Public Sub InsPict() Dim arr, fldPath$, art$, fName$, i&, r0, lrow&, oDic As Object, IShape As Shape, Zm Dim v As Variant Set oDic = CreateObject("Scripting.Dictionary") r0 = 4 lrow = Cells(Rows.Count, 3).End(xlUp).Row arr = Cells(r0, 3).Resize(lrow - r0 + 1).Value For i = 1 To UBound(arr) v = oDic(arr(i, 1)) If IsEmpty(v) Then oDic(arr(i, 1)) = Array(i + r0 - 1) Else ReDim Preserve v(UBound(v) + 1) v(UBound(v)) = i + r0 - 1 oDic(arr(i, 1)) = v End If Next i For Each IShape In ActiveSheet.Shapes If IShape.Type <> 8 Then IShape.Delete Next fldPath = ThisWorkbook.Path & "\images\" 'путь к папке с изображениями Application.ScreenUpdating = False fName = Dir(fldPath & "*.jpg") Do While fName <> "" art = Split(fName, ".")(0) If oDic.Exists(art) Then For Each v In oDic(art) With Cells(v, 2) Set IShape = ActiveSheet.Shapes.AddPicture(fldPath & fName, False, True, .Left + 1, .Top + 1, -1, -1) Zm = WorksheetFunction.Min(.Width / IShape.Width, .Height / IShape.Height) IShape.Height = IShape.Height * Zm - 2 End With Next End If fName = Dir Loop Application.ScreenUpdating = True End Sub
[/vba] Автор - krosav4ig Дата добавления - 09.04.2020 в 22:22
krosav4ig
Дата: Суббота, 25.04.2020, 13:26 |
Сообщение № 2249 | Тема: ПОЗДРАВЛЯЕМ СЕГОДНЯШНИХ ИМЕНИННИКОВ
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
Алексей, с днем рождения!
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Алексей, с днем рождения! Автор - krosav4ig Дата добавления - 25.04.2020 в 13:26
krosav4ig
Дата: Суббота, 02.05.2020, 06:16 |
Сообщение № 2250 | Тема: SQL-выборка из нескольких таблиц Excel
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
Дайте файлик с таблицами пощупать а то чего-то я никакого ограничения не обнаружил [vba]Код
SELECT * FROM ( SELECT t1.a , COUNT(t1.b) AS b, t2.d FROM `Лист1$` t1 INNER JOIN `Лист2$` t2 ON t1.a, t2.c GROUP BY t1.a, t2.d ) ORDER BY a, b
[/vba]
Дайте файлик с таблицами пощупать а то чего-то я никакого ограничения не обнаружил [vba]Код
SELECT * FROM ( SELECT t1.a , COUNT(t1.b) AS b, t2.d FROM `Лист1$` t1 INNER JOIN `Лист2$` t2 ON t1.a, t2.c GROUP BY t1.a, t2.d ) ORDER BY a, b
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Суббота, 02.05.2020, 06:26
Ответить
Сообщение Дайте файлик с таблицами пощупать а то чего-то я никакого ограничения не обнаружил [vba]Код
SELECT * FROM ( SELECT t1.a , COUNT(t1.b) AS b, t2.d FROM `Лист1$` t1 INNER JOIN `Лист2$` t2 ON t1.a, t2.c GROUP BY t1.a, t2.d ) ORDER BY a, b
[/vba] Автор - krosav4ig Дата добавления - 02.05.2020 в 06:16
krosav4ig
Дата: Воскресенье, 03.05.2020, 04:03 |
Сообщение № 2251 | Тема: Выборочный импорт данных (убрать лишние символы)
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
[vba]Код
=ArrayFormula({{"Дата",TODAY()};{{"Макс";"Мин";"Средняя"},ArrayFormula(IMPORTXML("http://www.meteocenter.asia/?m=e&p=28698","//table[@class='tab_z']//td[contains(text(),'"&Textjoin(" температура') or contains(text(),'",0,"Мин.","Макс.","Среднесуточная")&" температура')]/following-sibling::td[1]"))}})
[/vba][vba]Код
=Transpose(Query(Arrayformula(iferror(--REGEXREPLACE(IMPORTHTML("http://www.pogodaiklimat.ru/forecast/28698_7.htm","table",0)&"","(?:(\d+)*\x0a.*)|\+","$1"),)),"select Col1, Min(Col4),Avg(Col4),Max(Col4) group by Col1 label Col1 'Дата',Min(Col4) 'Минимальная температура', Avg(Col4) 'Средняя температура',Max(Col4) 'Максимальная температура'"))
[/vba][vba]Код
=ArrayFormula(Transpose(Query(ArrayFormula({Arrayformula(CEILING(Row(A1:Index(A:A,Rows(IMPORTHTML("https://www.yr.no/place/Russia/Omsk/Omsk/long.html","table",3 ))))/4,1)),iferror(--REGEXREPLACE(IMPORTHTML("https://www.yr.no/place/Russia/Omsk/Omsk/long.html","table",3)&"","\/[^\d]|.*\–|[^\d\/:.]",""),)}),"Select max(Col2),Min(Col5),Avg(Col5),Max(Col5) group by Col1 label Max(Col2) 'Дата',Min(Col5) 'Минимальная температура', Avg(Col5) 'Средняя температура',Max(Col5) 'Максимальная температура' format Max(Col2) 'dd.MM.YYYY'")))
[/vba]
[vba]Код
=ArrayFormula({{"Дата",TODAY()};{{"Макс";"Мин";"Средняя"},ArrayFormula(IMPORTXML("http://www.meteocenter.asia/?m=e&p=28698","//table[@class='tab_z']//td[contains(text(),'"&Textjoin(" температура') or contains(text(),'",0,"Мин.","Макс.","Среднесуточная")&" температура')]/following-sibling::td[1]"))}})
[/vba][vba]Код
=Transpose(Query(Arrayformula(iferror(--REGEXREPLACE(IMPORTHTML("http://www.pogodaiklimat.ru/forecast/28698_7.htm","table",0)&"","(?:(\d+)*\x0a.*)|\+","$1"),)),"select Col1, Min(Col4),Avg(Col4),Max(Col4) group by Col1 label Col1 'Дата',Min(Col4) 'Минимальная температура', Avg(Col4) 'Средняя температура',Max(Col4) 'Максимальная температура'"))
[/vba][vba]Код
=ArrayFormula(Transpose(Query(ArrayFormula({Arrayformula(CEILING(Row(A1:Index(A:A,Rows(IMPORTHTML("https://www.yr.no/place/Russia/Omsk/Omsk/long.html","table",3 ))))/4,1)),iferror(--REGEXREPLACE(IMPORTHTML("https://www.yr.no/place/Russia/Omsk/Omsk/long.html","table",3)&"","\/[^\d]|.*\–|[^\d\/:.]",""),)}),"Select max(Col2),Min(Col5),Avg(Col5),Max(Col5) group by Col1 label Max(Col2) 'Дата',Min(Col5) 'Минимальная температура', Avg(Col5) 'Средняя температура',Max(Col5) 'Максимальная температура' format Max(Col2) 'dd.MM.YYYY'")))
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Воскресенье, 03.05.2020, 05:27
Ответить
Сообщение [vba]Код
=ArrayFormula({{"Дата",TODAY()};{{"Макс";"Мин";"Средняя"},ArrayFormula(IMPORTXML("http://www.meteocenter.asia/?m=e&p=28698","//table[@class='tab_z']//td[contains(text(),'"&Textjoin(" температура') or contains(text(),'",0,"Мин.","Макс.","Среднесуточная")&" температура')]/following-sibling::td[1]"))}})
[/vba][vba]Код
=Transpose(Query(Arrayformula(iferror(--REGEXREPLACE(IMPORTHTML("http://www.pogodaiklimat.ru/forecast/28698_7.htm","table",0)&"","(?:(\d+)*\x0a.*)|\+","$1"),)),"select Col1, Min(Col4),Avg(Col4),Max(Col4) group by Col1 label Col1 'Дата',Min(Col4) 'Минимальная температура', Avg(Col4) 'Средняя температура',Max(Col4) 'Максимальная температура'"))
[/vba][vba]Код
=ArrayFormula(Transpose(Query(ArrayFormula({Arrayformula(CEILING(Row(A1:Index(A:A,Rows(IMPORTHTML("https://www.yr.no/place/Russia/Omsk/Omsk/long.html","table",3 ))))/4,1)),iferror(--REGEXREPLACE(IMPORTHTML("https://www.yr.no/place/Russia/Omsk/Omsk/long.html","table",3)&"","\/[^\d]|.*\–|[^\d\/:.]",""),)}),"Select max(Col2),Min(Col5),Avg(Col5),Max(Col5) group by Col1 label Max(Col2) 'Дата',Min(Col5) 'Минимальная температура', Avg(Col5) 'Средняя температура',Max(Col5) 'Максимальная температура' format Max(Col2) 'dd.MM.YYYY'")))
[/vba] Автор - krosav4ig Дата добавления - 03.05.2020 в 04:03
krosav4ig
Дата: Воскресенье, 03.05.2020, 05:30 |
Сообщение № 2252 | Тема: Выборочный импорт данных (убрать лишние символы)
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
terat , Это все скрипт перевода формул виноват, заменил , на ; Поместил тег vba, так вроде нормально отображается
terat , Это все скрипт перевода формул виноват, заменил , на ; Поместил тег vba, так вроде нормально отображаетсяkrosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение terat , Это все скрипт перевода формул виноват, заменил , на ; Поместил тег vba, так вроде нормально отображаетсяАвтор - krosav4ig Дата добавления - 03.05.2020 в 05:30
krosav4ig
Дата: Воскресенье, 03.05.2020, 05:37 |
Сообщение № 2253 | Тема: Фиксированная ссылка на ячейку
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
Код
=Indirect("meteocenter.asia!B4")
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Код
=Indirect("meteocenter.asia!B4")
Автор - krosav4ig Дата добавления - 03.05.2020 в 05:37
krosav4ig
Дата: Воскресенье, 03.05.2020, 20:52 |
Сообщение № 2254 | Тема: автоматическое скрытие не нужных столбцов
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
krosav4ig
Дата: Воскресенье, 03.05.2020, 20:53 |
Сообщение № 2255 | Тема: автоматическое скрытие столбцов по условию
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
krosav4ig
Дата: Вторник, 05.05.2020, 02:40 |
Сообщение № 2256 | Тема: Выборочный импорт данных (убрать лишние символы)
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
[vba]Код
=Transpose(Query(ARRAYFORMULA(iferror(--substitute(REGEXREPLACE(IMPORTHTML("http://www.pogodaiklimat.ru/forecast/28698_7.htm","table",0)&"","(\d+)(\.)(\d+)\x0a.*$","$3/$1/"&year(now())),"+",""),)),"select Col1, Min(Col4),Max(Col4),Avg(Col4) group by Col1 label Col1 'Дата',Min(Col4) 'Минимальная температура', Avg(Col4) 'Средняя температура',Max(Col4) 'Максимальная температура' format Col1'dd.MM.YYYY'"))
[/vba][vba]Код
=ArrayFormula(Transpose(Query(ArrayFormula({Arrayformula(CEILING((Row(A1:Index(A:A,Rows(IMPORTHTML("https://www.yr.no/place/Russia/Omsk/Omsk/long.html","table",3 ))))-1)/4,1)),iferror(--REGEXREPLACE(IMPORTHTML("https://www.yr.no/place/Russia/Omsk/Omsk/long.html","table",3)&"","(\d{2})(\/)(\d{2})\/(\d{4})|[^\d\/:.]|.*\–","$3$2$1$2$4"),)}),"Select max(Col2),Min(Col5),Max(Col5),Avg(Col5) where Col1>0 group by Col1 label Max(Col2) 'Дата',Min(Col5) 'Минимальная температура', Avg(Col5) 'Средняя температура',Max(Col5) 'Максимальная температура' format Max(Col2) 'dd.MM.YYYY'")))
[/vba]
[vba]Код
=Transpose(Query(ARRAYFORMULA(iferror(--substitute(REGEXREPLACE(IMPORTHTML("http://www.pogodaiklimat.ru/forecast/28698_7.htm","table",0)&"","(\d+)(\.)(\d+)\x0a.*$","$3/$1/"&year(now())),"+",""),)),"select Col1, Min(Col4),Max(Col4),Avg(Col4) group by Col1 label Col1 'Дата',Min(Col4) 'Минимальная температура', Avg(Col4) 'Средняя температура',Max(Col4) 'Максимальная температура' format Col1'dd.MM.YYYY'"))
[/vba][vba]Код
=ArrayFormula(Transpose(Query(ArrayFormula({Arrayformula(CEILING((Row(A1:Index(A:A,Rows(IMPORTHTML("https://www.yr.no/place/Russia/Omsk/Omsk/long.html","table",3 ))))-1)/4,1)),iferror(--REGEXREPLACE(IMPORTHTML("https://www.yr.no/place/Russia/Omsk/Omsk/long.html","table",3)&"","(\d{2})(\/)(\d{2})\/(\d{4})|[^\d\/:.]|.*\–","$3$2$1$2$4"),)}),"Select max(Col2),Min(Col5),Max(Col5),Avg(Col5) where Col1>0 group by Col1 label Max(Col2) 'Дата',Min(Col5) 'Минимальная температура', Avg(Col5) 'Средняя температура',Max(Col5) 'Максимальная температура' format Max(Col2) 'dd.MM.YYYY'")))
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение [vba]Код
=Transpose(Query(ARRAYFORMULA(iferror(--substitute(REGEXREPLACE(IMPORTHTML("http://www.pogodaiklimat.ru/forecast/28698_7.htm","table",0)&"","(\d+)(\.)(\d+)\x0a.*$","$3/$1/"&year(now())),"+",""),)),"select Col1, Min(Col4),Max(Col4),Avg(Col4) group by Col1 label Col1 'Дата',Min(Col4) 'Минимальная температура', Avg(Col4) 'Средняя температура',Max(Col4) 'Максимальная температура' format Col1'dd.MM.YYYY'"))
[/vba][vba]Код
=ArrayFormula(Transpose(Query(ArrayFormula({Arrayformula(CEILING((Row(A1:Index(A:A,Rows(IMPORTHTML("https://www.yr.no/place/Russia/Omsk/Omsk/long.html","table",3 ))))-1)/4,1)),iferror(--REGEXREPLACE(IMPORTHTML("https://www.yr.no/place/Russia/Omsk/Omsk/long.html","table",3)&"","(\d{2})(\/)(\d{2})\/(\d{4})|[^\d\/:.]|.*\–","$3$2$1$2$4"),)}),"Select max(Col2),Min(Col5),Max(Col5),Avg(Col5) where Col1>0 group by Col1 label Max(Col2) 'Дата',Min(Col5) 'Минимальная температура', Avg(Col5) 'Средняя температура',Max(Col5) 'Максимальная температура' format Max(Col2) 'dd.MM.YYYY'")))
[/vba] Автор - krosav4ig Дата добавления - 05.05.2020 в 02:40
krosav4ig
Дата: Вторник, 05.05.2020, 07:58 |
Сообщение № 2257 | Тема: как посчитать ЧИСТВНДОХ (xirr) вручную
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
Здравствуйте может как-то так (формула массива)Код
=ЧИСТВНДОХ(ЕСЛИ(СТРОКА(A1:ИНДЕКС(A:A;B3+1))=1;B4;-B8);ДАТАМЕС(СЕГОДНЯ();СТРОКА(A1:ИНДЕКС(A:A;B3+1))-1))
Здравствуйте может как-то так (формула массива)Код
=ЧИСТВНДОХ(ЕСЛИ(СТРОКА(A1:ИНДЕКС(A:A;B3+1))=1;B4;-B8);ДАТАМЕС(СЕГОДНЯ();СТРОКА(A1:ИНДЕКС(A:A;B3+1))-1))
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Вторник, 05.05.2020, 07:59
Ответить
Сообщение Здравствуйте может как-то так (формула массива)Код
=ЧИСТВНДОХ(ЕСЛИ(СТРОКА(A1:ИНДЕКС(A:A;B3+1))=1;B4;-B8);ДАТАМЕС(СЕГОДНЯ();СТРОКА(A1:ИНДЕКС(A:A;B3+1))-1))
Автор - krosav4ig Дата добавления - 05.05.2020 в 07:58
krosav4ig
Дата: Вторник, 05.05.2020, 19:58 |
Сообщение № 2258 | Тема: Выборочный импорт данных (убрать лишние символы)
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
там внутри ячеек таблицы есть вложенные элементы (div, span , br) [vba]Код
=Transpose(Query(ArrayFormula(--RegexReplace( ImportXML("https://omsk.nuipogoda.ru/погода-на-завтра","//table[@class='weather']//span[@class='ht']"),"[+°]","")),"select date '"&text(today()+1,"yyyy-MM-dd")&"',min(Col1),max(Col1),avg(Col1) group by date '"&text(today()+1,"yyyy-MM-dd")&"' label Min(Col1) 'Минимальная температура', Avg(Col1) 'Средняя температура',Max(Col1) 'Максимальная температура', date '"&text(today()+1,"yyyy-MM-dd")&"' 'Дата' format date '"&text(today()+1,"yyyy-MM-dd")&"' 'dd.MM.YYYY'"))
[/vba]
там внутри ячеек таблицы есть вложенные элементы (div, span , br) [vba]Код
=Transpose(Query(ArrayFormula(--RegexReplace( ImportXML("https://omsk.nuipogoda.ru/погода-на-завтра","//table[@class='weather']//span[@class='ht']"),"[+°]","")),"select date '"&text(today()+1,"yyyy-MM-dd")&"',min(Col1),max(Col1),avg(Col1) group by date '"&text(today()+1,"yyyy-MM-dd")&"' label Min(Col1) 'Минимальная температура', Avg(Col1) 'Средняя температура',Max(Col1) 'Максимальная температура', date '"&text(today()+1,"yyyy-MM-dd")&"' 'Дата' format date '"&text(today()+1,"yyyy-MM-dd")&"' 'dd.MM.YYYY'"))
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Вторник, 05.05.2020, 20:00
Ответить
Сообщение там внутри ячеек таблицы есть вложенные элементы (div, span , br) [vba]Код
=Transpose(Query(ArrayFormula(--RegexReplace( ImportXML("https://omsk.nuipogoda.ru/погода-на-завтра","//table[@class='weather']//span[@class='ht']"),"[+°]","")),"select date '"&text(today()+1,"yyyy-MM-dd")&"',min(Col1),max(Col1),avg(Col1) group by date '"&text(today()+1,"yyyy-MM-dd")&"' label Min(Col1) 'Минимальная температура', Avg(Col1) 'Средняя температура',Max(Col1) 'Максимальная температура', date '"&text(today()+1,"yyyy-MM-dd")&"' 'Дата' format date '"&text(today()+1,"yyyy-MM-dd")&"' 'dd.MM.YYYY'"))
[/vba] Автор - krosav4ig Дата добавления - 05.05.2020 в 19:58
krosav4ig
Дата: Четверг, 07.05.2020, 00:19 |
Сообщение № 2259 | Тема: Система рейтинга и поиск приближённых значений
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
а вы уверены, что тут нужен впр? вот вам куча формул и ни одного впр [vba]Код
=ArrayFormula(rank(abs(B12:D12-E12),abs(B12:D12-E12),2))
[/vba][vba]Код
=ArrayFormula(rank(transpose(mmult(transpose(rank(abs(B12:D14-E12:E14),abs(B12:D14-E12:E14),2)),{1;1;1})),transpose(mmult(transpose(rank(abs(B12:D14-E12:E14),abs(B12:D14-E12:E14),2)),{1;1;1})),2))
[/vba][vba]Код
=index(sort(transpose({abs(B12:D12-E12);B$10:D$10})),1,2)
[/vba][vba]Код
=index(Sort({mmult(abs(TRANSPOSE(B12:D14-E12:E14)),{1;1;1}),transpose(B10:D10)}),1,2)
[/vba][vba]Код
=ArrayFormula(transpose(Index(Sort({Index(Sort({mmult(transpose(rank(abs(B12:D14-E12:E14),abs(B12:D14-E12:E14),2)),{1;1;1}),{1;2;3}}),0,2),{1;2;3}}),0,2)))
[/vba] [p.s.]чего-то не обратил внимания на название темы, terat , надо бы его поменять
а вы уверены, что тут нужен впр? вот вам куча формул и ни одного впр [vba]Код
=ArrayFormula(rank(abs(B12:D12-E12),abs(B12:D12-E12),2))
[/vba][vba]Код
=ArrayFormula(rank(transpose(mmult(transpose(rank(abs(B12:D14-E12:E14),abs(B12:D14-E12:E14),2)),{1;1;1})),transpose(mmult(transpose(rank(abs(B12:D14-E12:E14),abs(B12:D14-E12:E14),2)),{1;1;1})),2))
[/vba][vba]Код
=index(sort(transpose({abs(B12:D12-E12);B$10:D$10})),1,2)
[/vba][vba]Код
=index(Sort({mmult(abs(TRANSPOSE(B12:D14-E12:E14)),{1;1;1}),transpose(B10:D10)}),1,2)
[/vba][vba]Код
=ArrayFormula(transpose(Index(Sort({Index(Sort({mmult(transpose(rank(abs(B12:D14-E12:E14),abs(B12:D14-E12:E14),2)),{1;1;1}),{1;2;3}}),0,2),{1;2;3}}),0,2)))
[/vba] [p.s.]чего-то не обратил внимания на название темы, terat , надо бы его поменять krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Четверг, 07.05.2020, 01:30
Ответить
Сообщение а вы уверены, что тут нужен впр? вот вам куча формул и ни одного впр [vba]Код
=ArrayFormula(rank(abs(B12:D12-E12),abs(B12:D12-E12),2))
[/vba][vba]Код
=ArrayFormula(rank(transpose(mmult(transpose(rank(abs(B12:D14-E12:E14),abs(B12:D14-E12:E14),2)),{1;1;1})),transpose(mmult(transpose(rank(abs(B12:D14-E12:E14),abs(B12:D14-E12:E14),2)),{1;1;1})),2))
[/vba][vba]Код
=index(sort(transpose({abs(B12:D12-E12);B$10:D$10})),1,2)
[/vba][vba]Код
=index(Sort({mmult(abs(TRANSPOSE(B12:D14-E12:E14)),{1;1;1}),transpose(B10:D10)}),1,2)
[/vba][vba]Код
=ArrayFormula(transpose(Index(Sort({Index(Sort({mmult(transpose(rank(abs(B12:D14-E12:E14),abs(B12:D14-E12:E14),2)),{1;1;1}),{1;2;3}}),0,2),{1;2;3}}),0,2)))
[/vba] [p.s.]чего-то не обратил внимания на название темы, terat , надо бы его поменять Автор - krosav4ig Дата добавления - 07.05.2020 в 00:19
krosav4ig
Дата: Четверг, 07.05.2020, 20:32 |
Сообщение № 2260 | Тема: Объединение список по совпадению
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
как понял 2 варианта - сводная и запрос Power Query [vba]Код
let Source = Table.NestedJoin( Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content], "Оператор", Excel.CurrentWorkbook(){[Name="Апрель2020"]}[Content], "Оператор", "a", 3 ), Expand = Table.ExpandTableColumn(Source, "a", {"Оператор", "Время"}, {"a.Оператор", "a.Время"}), Merge = Table.FromRecords(Table.CombineColumns(Expand,{"Оператор", "Время", "a.Оператор", "a.Время"},(a)=> [ Оператор=List.RemoveNulls({a{0},a{2}}){0}, Время=List.Sum({a{1},a{3}}) ],"a")[a]), Group = Table.Group(Merge, {"Оператор"}, {{"Время", each List.Sum([Время]), type number}}) in Group
[/vba]
как понял 2 варианта - сводная и запрос Power Query [vba]Код
let Source = Table.NestedJoin( Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content], "Оператор", Excel.CurrentWorkbook(){[Name="Апрель2020"]}[Content], "Оператор", "a", 3 ), Expand = Table.ExpandTableColumn(Source, "a", {"Оператор", "Время"}, {"a.Оператор", "a.Время"}), Merge = Table.FromRecords(Table.CombineColumns(Expand,{"Оператор", "Время", "a.Оператор", "a.Время"},(a)=> [ Оператор=List.RemoveNulls({a{0},a{2}}){0}, Время=List.Sum({a{1},a{3}}) ],"a")[a]), Group = Table.Group(Merge, {"Оператор"}, {{"Время", each List.Sum([Время]), type number}}) in Group
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение как понял 2 варианта - сводная и запрос Power Query [vba]Код
let Source = Table.NestedJoin( Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content], "Оператор", Excel.CurrentWorkbook(){[Name="Апрель2020"]}[Content], "Оператор", "a", 3 ), Expand = Table.ExpandTableColumn(Source, "a", {"Оператор", "Время"}, {"a.Оператор", "a.Время"}), Merge = Table.FromRecords(Table.CombineColumns(Expand,{"Оператор", "Время", "a.Оператор", "a.Время"},(a)=> [ Оператор=List.RemoveNulls({a{0},a{2}}){0}, Время=List.Sum({a{1},a{3}}) ],"a")[a]), Group = Table.Group(Merge, {"Оператор"}, {{"Время", each List.Sum([Время]), type number}}) in Group
[/vba] Автор - krosav4ig Дата добавления - 07.05.2020 в 20:32