Результаты поиска
krosav4ig
Дата: Воскресенье, 24.05.2020, 16:36 |
Сообщение № 2281 | Тема: В таблице с 10ю параметрами, выписать все возможные варианты
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
добавить их в таблицу Таблица1, и обновить таблицу Таблица1_2 в запросе 4 - это необходимое количество элементов в сочетании
добавить их в таблицу Таблица1, и обновить таблицу Таблица1_2 в запросе 4 - это необходимое количество элементов в сочетании krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение добавить их в таблицу Таблица1, и обновить таблицу Таблица1_2 в запросе 4 - это необходимое количество элементов в сочетании Автор - krosav4ig Дата добавления - 24.05.2020 в 16:36
krosav4ig
Дата: Понедельник, 25.05.2020, 02:03 |
Сообщение № 2282 | Тема: в таблице темные границы не отображаются
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
Если немного поковыряться во внутренностях файла, то можно и жирнее сделать
Если немного поковыряться во внутренностях файла, то можно и жирнее сделать krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Если немного поковыряться во внутренностях файла, то можно и жирнее сделать Автор - krosav4ig Дата добавления - 25.05.2020 в 02:03
krosav4ig
Дата: Понедельник, 25.05.2020, 14:44 |
Сообщение № 2283 | Тема: в таблице темные границы не отображаются
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
У меня в качестве редактора в 7zip настроен notepad++ x86, строка для запуска - [vba]Код
"C:\program files (x86)\Notepad++\notepad++.exe" -multiInst -nosession
[/vba] в notepad++ установлены плагины Xml tools и xpatherizer 1 Открыл файл в 7zip, перешел в нем в папку \xl 2 Открыл workbok.xml в notepad++ (выделил файл, нажал F4), в открывшемся фале жму Ctrl+Alt+Shift+B и ищу лист с нужным именем, смотрю атрибут r:id Можно без Ctrl+Alt+Shift+B, искать через xpatherizer: нажал Ctrl+Shift+X, в поле XPath Search пишу [vba][/vba] жму Execute и в панели Xpath Results выбираю нужный элемент. rId узнали, этот файл уже не нужен, его можно закрывать 3 открыл xl\_rels\workbook.xml.rels 4 Тут так же, как в предыдущем файле можно нажать Ctrl+Alt+Shift+B и искать Relationship с id = rid из предыдущего файла или через xpatherizer искать по xpath Код
//*[@Id="rId1"]/@Target
, или вообще через Ctrl+F, не суть важно, нам нужен атрибут Target. Этот фал тоже можно закрывать 5 Открыл файл, соответствующий найденному значению в п.4 (в данном случае xl\worksheets\sheet1.xml). 6 Нажал Ctrl+Alt+Shift+B , Ctrl+Shift+X, в поле XPath Search пишу [vba]Код
//conditionalFormatting//*[text()="F$21=1"]
[/vba] жму Execute и в панели Xpath Results выбираю нужный элемент. В строке выше выделившейся смотрю атрибут dxfId , из этого числа нужно вычесть 1, в данном случае получилось 85 7 Открыл xl\styles.xml, Нажал Ctrl+Alt+Shift+B , Ctrl+Shift+X, в поле XPath Search пишу [vba][/vba] жму Execute и в панели Xpath Results выбираю нужный элемент. В выделившемся элементе заменил thin на thick, сохранил файл и закрыл Notepad++, вернулся в 7Zip, согласился на обновление файла в архиве
У меня в качестве редактора в 7zip настроен notepad++ x86, строка для запуска - [vba]Код
"C:\program files (x86)\Notepad++\notepad++.exe" -multiInst -nosession
[/vba] в notepad++ установлены плагины Xml tools и xpatherizer 1 Открыл файл в 7zip, перешел в нем в папку \xl 2 Открыл workbok.xml в notepad++ (выделил файл, нажал F4), в открывшемся фале жму Ctrl+Alt+Shift+B и ищу лист с нужным именем, смотрю атрибут r:id Можно без Ctrl+Alt+Shift+B, искать через xpatherizer: нажал Ctrl+Shift+X, в поле XPath Search пишу [vba][/vba] жму Execute и в панели Xpath Results выбираю нужный элемент. rId узнали, этот файл уже не нужен, его можно закрывать 3 открыл xl\_rels\workbook.xml.rels 4 Тут так же, как в предыдущем файле можно нажать Ctrl+Alt+Shift+B и искать Relationship с id = rid из предыдущего файла или через xpatherizer искать по xpath Код
//*[@Id="rId1"]/@Target
, или вообще через Ctrl+F, не суть важно, нам нужен атрибут Target. Этот фал тоже можно закрывать 5 Открыл файл, соответствующий найденному значению в п.4 (в данном случае xl\worksheets\sheet1.xml). 6 Нажал Ctrl+Alt+Shift+B , Ctrl+Shift+X, в поле XPath Search пишу [vba]Код
//conditionalFormatting//*[text()="F$21=1"]
[/vba] жму Execute и в панели Xpath Results выбираю нужный элемент. В строке выше выделившейся смотрю атрибут dxfId , из этого числа нужно вычесть 1, в данном случае получилось 85 7 Открыл xl\styles.xml, Нажал Ctrl+Alt+Shift+B , Ctrl+Shift+X, в поле XPath Search пишу [vba][/vba] жму Execute и в панели Xpath Results выбираю нужный элемент. В выделившемся элементе заменил thin на thick, сохранил файл и закрыл Notepad++, вернулся в 7Zip, согласился на обновление файла в архиве krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Понедельник, 25.05.2020, 14:46
Ответить
Сообщение У меня в качестве редактора в 7zip настроен notepad++ x86, строка для запуска - [vba]Код
"C:\program files (x86)\Notepad++\notepad++.exe" -multiInst -nosession
[/vba] в notepad++ установлены плагины Xml tools и xpatherizer 1 Открыл файл в 7zip, перешел в нем в папку \xl 2 Открыл workbok.xml в notepad++ (выделил файл, нажал F4), в открывшемся фале жму Ctrl+Alt+Shift+B и ищу лист с нужным именем, смотрю атрибут r:id Можно без Ctrl+Alt+Shift+B, искать через xpatherizer: нажал Ctrl+Shift+X, в поле XPath Search пишу [vba][/vba] жму Execute и в панели Xpath Results выбираю нужный элемент. rId узнали, этот файл уже не нужен, его можно закрывать 3 открыл xl\_rels\workbook.xml.rels 4 Тут так же, как в предыдущем файле можно нажать Ctrl+Alt+Shift+B и искать Relationship с id = rid из предыдущего файла или через xpatherizer искать по xpath Код
//*[@Id="rId1"]/@Target
, или вообще через Ctrl+F, не суть важно, нам нужен атрибут Target. Этот фал тоже можно закрывать 5 Открыл файл, соответствующий найденному значению в п.4 (в данном случае xl\worksheets\sheet1.xml). 6 Нажал Ctrl+Alt+Shift+B , Ctrl+Shift+X, в поле XPath Search пишу [vba]Код
//conditionalFormatting//*[text()="F$21=1"]
[/vba] жму Execute и в панели Xpath Results выбираю нужный элемент. В строке выше выделившейся смотрю атрибут dxfId , из этого числа нужно вычесть 1, в данном случае получилось 85 7 Открыл xl\styles.xml, Нажал Ctrl+Alt+Shift+B , Ctrl+Shift+X, в поле XPath Search пишу [vba][/vba] жму Execute и в панели Xpath Results выбираю нужный элемент. В выделившемся элементе заменил thin на thick, сохранил файл и закрыл Notepad++, вернулся в 7Zip, согласился на обновление файла в архиве Автор - krosav4ig Дата добавления - 25.05.2020 в 14:44
krosav4ig
Дата: Вторник, 26.05.2020, 18:03 |
Сообщение № 2284 | Тема: Развернуть вложенную таблицу-xml в один ряд PowerQuery
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Вторник, 26.05.2020, 18:08
Ответить
krosav4ig
Дата: Вторник, 26.05.2020, 18:48 |
Сообщение № 2285 | Тема: График на основании план-факт данных в одной строке
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
Здравствуйте в диспетчере именКод
План =ЕСЛИ(Лист1!$C$4:$L$4="План";Лист1!$C$5:$L$5;НД())
Код
Факт =ЕСЛИ(Лист1!$D$4:$M$4="Факт";Лист1!$D$5:$M$5;НД())
Здравствуйте в диспетчере именКод
План =ЕСЛИ(Лист1!$C$4:$L$4="План";Лист1!$C$5:$L$5;НД())
Код
Факт =ЕСЛИ(Лист1!$D$4:$M$4="Факт";Лист1!$D$5:$M$5;НД())
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Вторник, 26.05.2020, 18:48
Ответить
Сообщение Здравствуйте в диспетчере именКод
План =ЕСЛИ(Лист1!$C$4:$L$4="План";Лист1!$C$5:$L$5;НД())
Код
Факт =ЕСЛИ(Лист1!$D$4:$M$4="Факт";Лист1!$D$5:$M$5;НД())
Автор - krosav4ig Дата добавления - 26.05.2020 в 18:48
krosav4ig
Дата: Вторник, 26.05.2020, 23:51 |
Сообщение № 2286 | Тема: Автоматическое копирование однотипных таблиц с сайта
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
Есть ли возможность автоматизировать процесс перенесения в Excel этих таблиц?
Есть Ответ получен, тему можно закрывать?
Есть ли возможность автоматизировать процесс перенесения в Excel этих таблиц?
Есть Ответ получен, тему можно закрывать?krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Вторник, 26.05.2020, 23:52
Ответить
Сообщение Есть ли возможность автоматизировать процесс перенесения в Excel этих таблиц?
Есть Ответ получен, тему можно закрывать?Автор - krosav4ig Дата добавления - 26.05.2020 в 23:51
krosav4ig
Дата: Пятница, 29.05.2020, 01:36 |
Сообщение № 2287 | Тема: преобразование float в dec
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
функция Hex2Sng отсюда
[vba]
Код
Option Explicit Type uab4: ab(0 To 3) As Byte: End Type Type uab8: ab(0 To 7) As Byte: End Type Type uFlt: f As Single: End Type Type uDbl: d As Double: End Type Function Byte2Sng(ab() As Byte) As Single Dim ub As uab4 Dim uf As uFlt ub.ab(3) = ab(0) ub.ab(2) = ab(1) ub.ab(1) = ab(2) ub.ab(0) = ab(3) LSet uf = ub Byte2Sng = uf.f End Function Function Hex2Sng(ByVal s As String) As Single Const sPad As String = "00000000" Dim i As Long Dim ub As uab4 Dim ab(0 To 3) As Byte s = Replace(s, " ", "") If Len(s) > 8 Then Exit Function If Len(s) < 8 Then s = Right(sPad & s, 8) For i = 0 To 3 ab(i) = CByte("&H" & Mid(s, 2 * i + 1, 2)) Next i Hex2Sng = Byte2Sng(ab) End Function
[/vba]
или формула (выдает неверный результат для малых чисел)Код
=(-1)^БИТ.СДВИГП(ШЕСТН.В.ДЕС(ПСТР(A3;3;8));31)*(БИТ.ИЛИ(БИТ.И(ШЕСТН.В.ДЕС(ПСТР(A3;3;8));8388607);8388608)*2^(БИТ.И(БИТ.СДВИГП(ШЕСТН.В.ДЕС(ПСТР(A3;3;8));23);255)-127-23))
функция Hex2Sng отсюда
[vba]
Код
Option Explicit Type uab4: ab(0 To 3) As Byte: End Type Type uab8: ab(0 To 7) As Byte: End Type Type uFlt: f As Single: End Type Type uDbl: d As Double: End Type Function Byte2Sng(ab() As Byte) As Single Dim ub As uab4 Dim uf As uFlt ub.ab(3) = ab(0) ub.ab(2) = ab(1) ub.ab(1) = ab(2) ub.ab(0) = ab(3) LSet uf = ub Byte2Sng = uf.f End Function Function Hex2Sng(ByVal s As String) As Single Const sPad As String = "00000000" Dim i As Long Dim ub As uab4 Dim ab(0 To 3) As Byte s = Replace(s, " ", "") If Len(s) > 8 Then Exit Function If Len(s) < 8 Then s = Right(sPad & s, 8) For i = 0 To 3 ab(i) = CByte("&H" & Mid(s, 2 * i + 1, 2)) Next i Hex2Sng = Byte2Sng(ab) End Function
[/vba]
или формула (выдает неверный результат для малых чисел)Код
=(-1)^БИТ.СДВИГП(ШЕСТН.В.ДЕС(ПСТР(A3;3;8));31)*(БИТ.ИЛИ(БИТ.И(ШЕСТН.В.ДЕС(ПСТР(A3;3;8));8388607);8388608)*2^(БИТ.И(БИТ.СДВИГП(ШЕСТН.В.ДЕС(ПСТР(A3;3;8));23);255)-127-23))
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение функция Hex2Sng отсюда
[vba]
Код
Option Explicit Type uab4: ab(0 To 3) As Byte: End Type Type uab8: ab(0 To 7) As Byte: End Type Type uFlt: f As Single: End Type Type uDbl: d As Double: End Type Function Byte2Sng(ab() As Byte) As Single Dim ub As uab4 Dim uf As uFlt ub.ab(3) = ab(0) ub.ab(2) = ab(1) ub.ab(1) = ab(2) ub.ab(0) = ab(3) LSet uf = ub Byte2Sng = uf.f End Function Function Hex2Sng(ByVal s As String) As Single Const sPad As String = "00000000" Dim i As Long Dim ub As uab4 Dim ab(0 To 3) As Byte s = Replace(s, " ", "") If Len(s) > 8 Then Exit Function If Len(s) < 8 Then s = Right(sPad & s, 8) For i = 0 To 3 ab(i) = CByte("&H" & Mid(s, 2 * i + 1, 2)) Next i Hex2Sng = Byte2Sng(ab) End Function
[/vba]
или формула (выдает неверный результат для малых чисел)Код
=(-1)^БИТ.СДВИГП(ШЕСТН.В.ДЕС(ПСТР(A3;3;8));31)*(БИТ.ИЛИ(БИТ.И(ШЕСТН.В.ДЕС(ПСТР(A3;3;8));8388607);8388608)*2^(БИТ.И(БИТ.СДВИГП(ШЕСТН.В.ДЕС(ПСТР(A3;3;8));23);255)-127-23))
Автор - krosav4ig Дата добавления - 29.05.2020 в 01:36
krosav4ig
Дата: Воскресенье, 31.05.2020, 16:21 |
Сообщение № 2288 | Тема: При запуске выдается сообщение "Microsoft forms"
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
Здравствуйте. Один или несколько компонентов, используемых на форме не зарегистированы в системе / в системе поврежден реестр
Здравствуйте. Один или несколько компонентов, используемых на форме не зарегистированы в системе / в системе поврежден реестр krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Здравствуйте. Один или несколько компонентов, используемых на форме не зарегистированы в системе / в системе поврежден реестр Автор - krosav4ig Дата добавления - 31.05.2020 в 16:21
krosav4ig
Дата: Воскресенье, 31.05.2020, 16:38 |
Сообщение № 2289 | Тема: При запуске выдается сообщение "Microsoft forms"
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
krosav4ig
Дата: Понедельник, 01.06.2020, 20:06 |
Сообщение № 2290 | Тема: При запуске выдается сообщение "Microsoft forms"
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
там все на английском. Так делать-то что ?
Брать англо-русский словарь и садиться переводить
там все на английском. Так делать-то что ?
Брать англо-русский словарь и садиться переводитьkrosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение там все на английском. Так делать-то что ?
Брать англо-русский словарь и садиться переводитьАвтор - krosav4ig Дата добавления - 01.06.2020 в 20:06
krosav4ig
Дата: Понедельник, 01.06.2020, 20:57 |
Сообщение № 2291 | Тема: При запуске выдается сообщение "Microsoft forms"
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Автор - krosav4ig Дата добавления - 01.06.2020 в 20:57
krosav4ig
Дата: Суббота, 06.06.2020, 19:38 |
Сообщение № 2292 | Тема: Форматирование части текста в ячейке
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
Добрый вечер макрос для выделенного диапазона [vba]Код
Sub x() Dim c As Range With Selection.Font .Bold = 0 .Underline = xlNone For Each c In .Parent Dim pos%: pos = InStr(c.Value, "Наши услуги") If pos > 0 Then With c.Characters(pos, Len(c.value)).Font .Bold = 1 .Underline = xlUnderlineStyleSingle End With End If Next End With End Sub
[/vba]
Добрый вечер макрос для выделенного диапазона [vba]Код
Sub x() Dim c As Range With Selection.Font .Bold = 0 .Underline = xlNone For Each c In .Parent Dim pos%: pos = InStr(c.Value, "Наши услуги") If pos > 0 Then With c.Characters(pos, Len(c.value)).Font .Bold = 1 .Underline = xlUnderlineStyleSingle End With End If Next End With End Sub
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Суббота, 06.06.2020, 19:43
Ответить
Сообщение Добрый вечер макрос для выделенного диапазона [vba]Код
Sub x() Dim c As Range With Selection.Font .Bold = 0 .Underline = xlNone For Each c In .Parent Dim pos%: pos = InStr(c.Value, "Наши услуги") If pos > 0 Then With c.Characters(pos, Len(c.value)).Font .Bold = 1 .Underline = xlUnderlineStyleSingle End With End If Next End With End Sub
[/vba] Автор - krosav4ig Дата добавления - 06.06.2020 в 19:38
krosav4ig
Дата: Понедельник, 08.06.2020, 13:24 |
Сообщение № 2293 | Тема: Вычисление круглой даты
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
Добрый день Массивная формула Код
=ЕСЛИОШИБКА(40+ПОИСКПОЗ(1;ТЕКСТ(ТЕКСТ(КОНМЕСЯЦА(B2;СТРОКА($5:$10)*120-1)+1;"[>="&C2&"]0;");"[<="&D2&"]0;")^0;)*10;"")
Добрый день Массивная формула Код
=ЕСЛИОШИБКА(40+ПОИСКПОЗ(1;ТЕКСТ(ТЕКСТ(КОНМЕСЯЦА(B2;СТРОКА($5:$10)*120-1)+1;"[>="&C2&"]0;");"[<="&D2&"]0;")^0;)*10;"")
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Добрый день Массивная формула Код
=ЕСЛИОШИБКА(40+ПОИСКПОЗ(1;ТЕКСТ(ТЕКСТ(КОНМЕСЯЦА(B2;СТРОКА($5:$10)*120-1)+1;"[>="&C2&"]0;");"[<="&D2&"]0;")^0;)*10;"")
Автор - krosav4ig Дата добавления - 08.06.2020 в 13:24
krosav4ig
Дата: Понедельник, 08.06.2020, 13:31 |
Сообщение № 2294 | Тема: Значение в зависимости от условий
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
Добрый день.Код
=ВПР(C2;{0;1:1;2:4;4};2)
Добрый день.Код
=ВПР(C2;{0;1:1;2:4;4};2)
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Добрый день.Код
=ВПР(C2;{0;1:1;2:4;4};2)
Автор - krosav4ig Дата добавления - 08.06.2020 в 13:31
krosav4ig
Дата: Понедельник, 08.06.2020, 22:44 |
Сообщение № 2295 | Тема: Перевод букв в числа, размещение их в ячейках карты.
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
и вам здрасьтеФИО - перевести в числовой ряд
Код
=СУММПРОИЗВ(ВПР(Т(ИНДЕКС(+ПСТР(ПРОПИСН(СЖПРОБЕЛЫ(N3));СТРОКА(N$1:ИНДЕКС(N:N;ДЛСТР(СЖПРОБЕЛЫ(N3))));1);));{"а";1:"б";2:"в";3:"г";4:"д";5:"е";6:"ё";7:"ж";8:"з";9:"и";1:"й";2:"к";3:"л";4:"м";5:"н";6:"о";7:"п";8:"р";9:"с";1:"т";2:"у";3:"ф";4:"х";5:"ц";6:"ч";7:"ш";8:"щ";9:"ъ";1:"ы";2:"ь";3:"э";4:"ю";5:"я";6};2;);10^(ДЛСТР(СЖПРОБЕЛЫ(N3))-СТРОКА(N$1:ИНДЕКС(N:N;ДЛСТР(СЖПРОБЕЛЫ(N3))))))
по поводу всего остального - вы реально думаете, что всем людям ни разу не занимавшихся нумерологией известны алгоритмы по которым вычисляются те или иные числа как производится их расстановка в карте?
и вам здрасьтеФИО - перевести в числовой ряд
Код
=СУММПРОИЗВ(ВПР(Т(ИНДЕКС(+ПСТР(ПРОПИСН(СЖПРОБЕЛЫ(N3));СТРОКА(N$1:ИНДЕКС(N:N;ДЛСТР(СЖПРОБЕЛЫ(N3))));1);));{"а";1:"б";2:"в";3:"г";4:"д";5:"е";6:"ё";7:"ж";8:"з";9:"и";1:"й";2:"к";3:"л";4:"м";5:"н";6:"о";7:"п";8:"р";9:"с";1:"т";2:"у";3:"ф";4:"х";5:"ц";6:"ч";7:"ш";8:"щ";9:"ъ";1:"ы";2:"ь";3:"э";4:"ю";5:"я";6};2;);10^(ДЛСТР(СЖПРОБЕЛЫ(N3))-СТРОКА(N$1:ИНДЕКС(N:N;ДЛСТР(СЖПРОБЕЛЫ(N3))))))
по поводу всего остального - вы реально думаете, что всем людям ни разу не занимавшихся нумерологией известны алгоритмы по которым вычисляются те или иные числа как производится их расстановка в карте? krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Понедельник, 08.06.2020, 22:45
Ответить
Сообщение и вам здрасьтеФИО - перевести в числовой ряд
Код
=СУММПРОИЗВ(ВПР(Т(ИНДЕКС(+ПСТР(ПРОПИСН(СЖПРОБЕЛЫ(N3));СТРОКА(N$1:ИНДЕКС(N:N;ДЛСТР(СЖПРОБЕЛЫ(N3))));1);));{"а";1:"б";2:"в";3:"г";4:"д";5:"е";6:"ё";7:"ж";8:"з";9:"и";1:"й";2:"к";3:"л";4:"м";5:"н";6:"о";7:"п";8:"р";9:"с";1:"т";2:"у";3:"ф";4:"х";5:"ц";6:"ч";7:"ш";8:"щ";9:"ъ";1:"ы";2:"ь";3:"э";4:"ю";5:"я";6};2;);10^(ДЛСТР(СЖПРОБЕЛЫ(N3))-СТРОКА(N$1:ИНДЕКС(N:N;ДЛСТР(СЖПРОБЕЛЫ(N3))))))
по поводу всего остального - вы реально думаете, что всем людям ни разу не занимавшихся нумерологией известны алгоритмы по которым вычисляются те или иные числа как производится их расстановка в карте? Автор - krosav4ig Дата добавления - 08.06.2020 в 22:44
krosav4ig
Дата: Четверг, 11.06.2020, 13:09 |
Сообщение № 2296 | Тема: значение по условию попадания в период дат
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
Добрый день Массивная формулаКод
=ЕСЛИОШИБКА(СУММ(МАКС((F$2:F$9=A2)*(B2>=G$2:G$9)*(B2<=H$2:H$9)*I$2:I$9)^{0;1};-1);"")
Добрый день Массивная формулаКод
=ЕСЛИОШИБКА(СУММ(МАКС((F$2:F$9=A2)*(B2>=G$2:G$9)*(B2<=H$2:H$9)*I$2:I$9)^{0;1};-1);"")
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Добрый день Массивная формулаКод
=ЕСЛИОШИБКА(СУММ(МАКС((F$2:F$9=A2)*(B2>=G$2:G$9)*(B2<=H$2:H$9)*I$2:I$9)^{0;1};-1);"")
Автор - krosav4ig Дата добавления - 11.06.2020 в 13:09
krosav4ig
Дата: Воскресенье, 14.06.2020, 02:07 |
Сообщение № 2297 | Тема: Счёт страниц на листе
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
Здравствуйте [vba]Код
Public Function ВсегоСтраниц() ВсегоСтраниц = Application.Caller.Worksheet.PageSetup.Pages.Count End Function
[/vba]
Здравствуйте [vba]Код
Public Function ВсегоСтраниц() ВсегоСтраниц = Application.Caller.Worksheet.PageSetup.Pages.Count End Function
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Здравствуйте [vba]Код
Public Function ВсегоСтраниц() ВсегоСтраниц = Application.Caller.Worksheet.PageSetup.Pages.Count End Function
[/vba] Автор - krosav4ig Дата добавления - 14.06.2020 в 02:07
krosav4ig
Дата: Воскресенье, 14.06.2020, 03:30 |
Сообщение № 2298 | Тема: Счёт страниц на листе
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
ActiveSheet - активный лист Application.Caller - в данном случае, ячейка, из которой вызывается функция если на листе задана несплошная область печати, то универсального с определением номера страницы будет полная печалька
ActiveSheet - активный лист Application.Caller - в данном случае, ячейка, из которой вызывается функция если на листе задана несплошная область печати, то универсального с определением номера страницы будет полная печалька krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение ActiveSheet - активный лист Application.Caller - в данном случае, ячейка, из которой вызывается функция если на листе задана несплошная область печати, то универсального с определением номера страницы будет полная печалька Автор - krosav4ig Дата добавления - 14.06.2020 в 03:30
krosav4ig
Дата: Воскресенье, 14.06.2020, 16:59 |
Сообщение № 2299 | Тема: Счёт страниц на листе
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
Kuzmich , речь же об UDF, а XLM в UDF не работают так бы и позиции разрывов страниц можно было бы получать с помощью только не стоит пренебрегать вторым аргументом - имя книги и листа в формате ибо чревато
Kuzmich , речь же об UDF, а XLM в UDF не работают так бы и позиции разрывов страниц можно было бы получать с помощью только не стоит пренебрегать вторым аргументом - имя книги и листа в формате ибо чреватоkrosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Воскресенье, 14.06.2020, 17:00
Ответить
Сообщение Kuzmich , речь же об UDF, а XLM в UDF не работают так бы и позиции разрывов страниц можно было бы получать с помощью только не стоит пренебрегать вторым аргументом - имя книги и листа в формате ибо чреватоАвтор - krosav4ig Дата добавления - 14.06.2020 в 16:59
krosav4ig
Дата: Понедельник, 15.06.2020, 14:29 |
Сообщение № 2300 | Тема: Сортировка таблицы, с учетом групп данных внутри
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
еще вот такая массивная формула для доп. столбцаКод
=СУММ(БИТ.СДВИГЛ(ВЫБОР({1;2;3;4};НЕ(СЧЁТЕСЛИМН([Объект];[@Объект];[Деталька А];"<>"));СЧЁТЕСЛИ([Объект];"<"&[@Объект]);СЧЁТЕСЛИ([№];"<"&[@№]);СЧЁТЕСЛИ([Слот];"<"&[@Слот]));8*{3;2;1;0}))
еще вот такая массивная формула для доп. столбцаКод
=СУММ(БИТ.СДВИГЛ(ВЫБОР({1;2;3;4};НЕ(СЧЁТЕСЛИМН([Объект];[@Объект];[Деталька А];"<>"));СЧЁТЕСЛИ([Объект];"<"&[@Объект]);СЧЁТЕСЛИ([№];"<"&[@№]);СЧЁТЕСЛИ([Слот];"<"&[@Слот]));8*{3;2;1;0}))
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение еще вот такая массивная формула для доп. столбцаКод
=СУММ(БИТ.СДВИГЛ(ВЫБОР({1;2;3;4};НЕ(СЧЁТЕСЛИМН([Объект];[@Объект];[Деталька А];"<>"));СЧЁТЕСЛИ([Объект];"<"&[@Объект]);СЧЁТЕСЛИ([№];"<"&[@№]);СЧЁТЕСЛИ([Слот];"<"&[@Слот]));8*{3;2;1;0}))
Автор - krosav4ig Дата добавления - 15.06.2020 в 14:29