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

Вход

Регистрация

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

 

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

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

Excel 2007,2010,2013
моя формула 139 символов массивная
Код
=И((ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(СТРОЧН(A1);СИМВОЛ(СТРОКА($97:$255));)))>=(ДЛСТР(B1)-ДЛСТР(ПОДСТАВИТЬ(СТРОЧН(B1);СИМВОЛ(СТРОКА($97:$255));))))

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениемоя формула 139 символов массивная
Код
=И((ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(СТРОЧН(A1);СИМВОЛ(СТРОКА($97:$255));)))>=(ДЛСТР(B1)-ДЛСТР(ПОДСТАВИТЬ(СТРОЧН(B1);СИМВОЛ(СТРОКА($97:$255));))))
Автор - krosav4ig
Дата добавления - 30.06.2014 в 17:17
krosav4ig Дата: Понедельник, 30.06.2014, 18:23 | Сообщение № 142 | Тема: Анаграмма (перестановки)
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата krosav4ig, 28.06.2014 в 15:34, в сообщении № 18
если по условию в B1 должно быть слово/фраза из всех букв A1, то 138 без равно ...
а у меня тоже 2 вне конкурса :)
имя g, диапазон:
Код
=И((ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(СТРОЧН(A1);СИМВОЛ(СТРОКА($97:$255));)))=(ДЛСТР(B1)-ДЛСТР(ПОДСТАВИТЬ(СТРОЧН(B1);СИМВОЛ(СТРОКА($97:$255));))))
в ячейке формула =g
;) [p.s.]ну или
Код
СТРОКА($33:$255)
вформуле

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

Сообщение отредактировал krosav4ig - Понедельник, 30.06.2014, 18:31
 
Ответить
Сообщение
Цитата krosav4ig, 28.06.2014 в 15:34, в сообщении № 18
если по условию в B1 должно быть слово/фраза из всех букв A1, то 138 без равно ...
а у меня тоже 2 вне конкурса :)
имя g, диапазон:
Код
=И((ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(СТРОЧН(A1);СИМВОЛ(СТРОКА($97:$255));)))=(ДЛСТР(B1)-ДЛСТР(ПОДСТАВИТЬ(СТРОЧН(B1);СИМВОЛ(СТРОКА($97:$255));))))
в ячейке формула =g
;) [p.s.]ну или
Код
СТРОКА($33:$255)
вформуле
Автор - krosav4ig
Дата добавления - 30.06.2014 в 18:23
krosav4ig Дата: Среда, 02.07.2014, 02:01 | Сообщение № 143 | Тема: гиперссылка на гиперссылку на сайт.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
формулами имхо никак, тока UDF писать

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеформулами имхо никак, тока UDF писать
Автор - krosav4ig
Дата добавления - 02.07.2014 в 02:01
krosav4ig Дата: Среда, 02.07.2014, 02:47 | Сообщение № 144 | Тема: Анаграмма (перестановки)
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
а у меня есть не массивная формула
Код
=И(МУМНОЖ(-(ПСТР(СТРОЧН(A1);СТОЛБЕЦ($A:$IU);1)=СИМВОЛ(СТРОКА($33:$255)));СТРОКА($1:$255)^0)=МУМНОЖ(-(ПСТР(СТРОЧН(B1);СТОЛБЕЦ($A:$IU);1)=СИМВОЛ(СТРОКА($33:$255)));СТРОКА($1:$255)^0))

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

Сообщение отредактировал krosav4ig - Среда, 02.07.2014, 02:48
 
Ответить
Сообщениеа у меня есть не массивная формула
Код
=И(МУМНОЖ(-(ПСТР(СТРОЧН(A1);СТОЛБЕЦ($A:$IU);1)=СИМВОЛ(СТРОКА($33:$255)));СТРОКА($1:$255)^0)=МУМНОЖ(-(ПСТР(СТРОЧН(B1);СТОЛБЕЦ($A:$IU);1)=СИМВОЛ(СТРОКА($33:$255)));СТРОКА($1:$255)^0))
Автор - krosav4ig
Дата добавления - 02.07.2014 в 02:47
krosav4ig Дата: Воскресенье, 13.07.2014, 17:47 | Сообщение № 145 | Тема: Ссылка на ячейки со значениями
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
:o

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение:o
Автор - krosav4ig
Дата добавления - 13.07.2014 в 17:47
krosav4ig Дата: Вторник, 15.07.2014, 13:31 | Сообщение № 146 | Тема: Как получить только значения координат
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
можно еще так
Код
=ЛЕВБ(ПОДСТАВИТЬ(C1;".";",");ПОИСК(",";C1)-1)

Код
=ПРАВБ(ПОДСТАВИТЬ(C1;".";",");ПОИСК(",";C1))

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеможно еще так
Код
=ЛЕВБ(ПОДСТАВИТЬ(C1;".";",");ПОИСК(",";C1)-1)

Код
=ПРАВБ(ПОДСТАВИТЬ(C1;".";",");ПОИСК(",";C1))
Автор - krosav4ig
Дата добавления - 15.07.2014 в 13:31
krosav4ig Дата: Среда, 23.07.2014, 13:07 | Сообщение № 147 | Тема: Выделеть ячейку - крайней верхней
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
[vba]
Код
Application.Goto Range("A80"), True
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение[vba]
Код
Application.Goto Range("A80"), True
[/vba]
Автор - krosav4ig
Дата добавления - 23.07.2014 в 13:07
krosav4ig Дата: Четверг, 24.07.2014, 19:35 | Сообщение № 148 | Тема: Сортировка по двум датам с данными
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
решил поиграться с массивами, получилась супер-пупер-мега тормознутая формула :D
К сообщению приложен файл: 8086256-1.xlsx (16.5 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениерешил поиграться с массивами, получилась супер-пупер-мега тормознутая формула :D
Автор - krosav4ig
Дата добавления - 24.07.2014 в 19:35
krosav4ig Дата: Вторник, 05.08.2014, 00:29 | Сообщение № 149 | Тема: Создание пользовательских кнопок на ленте
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
это CustomUI, структура пользовательских вкладок, групп и кнопок описана в файле customUI\customUI.xml
[vba]
Код
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
     <ribbon>
         <tabs>
             <tab id="rxNikola" getLabel="rxNikola_getlabel">
                 <group id="customGroup1">
                     <button id="Btn1" label="show" size="large" onAction="Macro7" image="add22" getScreentip="Btn1getScreentip" getSupertip="Btn1getSupertip"/>
                     <button id="Btn2" label="delete" size="large" onAction="Macro8" image="del22" getScreentip="Btn2getScreentip" getSupertip="Btn2getSupertip"/>
                 </group>
             </tab>
         </tabs>
     </ribbon>
</customUI>
[/vba]
onAction-выполняемый макрос
getScreentip-макрос, задающий заголовок всплывающей подсказки
getSupertip-макрос, задающий текст всплывающей подсказки
image=код картинки
соответствие кодов картинок и путям задано в файле customUI\_rels\customUI.xml.rels
для кнопок можно использовать стандартные иконки, для этого нужно использовать атрибут msoimage вместо image, коды иконок можно посмотреть тут
все эти файлы и картинки вшиты в файл с помощью Custom UI Editor

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеэто CustomUI, структура пользовательских вкладок, групп и кнопок описана в файле customUI\customUI.xml
[vba]
Код
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
     <ribbon>
         <tabs>
             <tab id="rxNikola" getLabel="rxNikola_getlabel">
                 <group id="customGroup1">
                     <button id="Btn1" label="show" size="large" onAction="Macro7" image="add22" getScreentip="Btn1getScreentip" getSupertip="Btn1getSupertip"/>
                     <button id="Btn2" label="delete" size="large" onAction="Macro8" image="del22" getScreentip="Btn2getScreentip" getSupertip="Btn2getSupertip"/>
                 </group>
             </tab>
         </tabs>
     </ribbon>
</customUI>
[/vba]
onAction-выполняемый макрос
getScreentip-макрос, задающий заголовок всплывающей подсказки
getSupertip-макрос, задающий текст всплывающей подсказки
image=код картинки
соответствие кодов картинок и путям задано в файле customUI\_rels\customUI.xml.rels
для кнопок можно использовать стандартные иконки, для этого нужно использовать атрибут msoimage вместо image, коды иконок можно посмотреть тут
все эти файлы и картинки вшиты в файл с помощью Custom UI Editor
Автор - krosav4ig
Дата добавления - 05.08.2014 в 00:29
krosav4ig Дата: Среда, 06.08.2014, 21:04 | Сообщение № 150 | Тема: Как объединить повторящиеся ячейки?
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
если убрать объединенные столбцы, то сводной
К сообщению приложен файл: 2208058.xlsx (31.1 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеесли убрать объединенные столбцы, то сводной
Автор - krosav4ig
Дата добавления - 06.08.2014 в 21:04
krosav4ig Дата: Четверг, 07.08.2014, 00:59 | Сообщение № 151 | Тема: Расчет значений после применения фильтра
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
так нужно?
К сообщению приложен файл: 2214862.xls (30.0 Kb)

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

Excel 2007,2010,2013
[vba]
Код
Private Function GetURLstatus(ByVal URL$) As Long
    ' функция проверяет наличие доступа к ресурсу URL$ (файлу или каталогу)
    ' возвращает код ответа сервера (число), либо 0, если ссылка ошибочная
    ' (200 - ресурес доступен, 404 - не найден, 403 - нет доступа, и т.д.)
    ' http://excelvba.ru/code/GetURLstatus
    On Error Resume Next: URL$ = Replace(URL$, "\", "/")
     Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
     xmlhttp.Open "GET", URL, "False"
     xmlhttp.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"
     xmlhttp.send
     GetURLstatus = Val(xmlhttp.Status)
     Set xmlhttp = Nothing
End Function

Sub check()
     With Application: .ScreenUpdating = 0: .EnableEvents = 0: End With
     Dim rng As Range
     Dim cell As Range
     Set rng = Selection
     For Each cell In rng.Cells
         Select Case GetURLstatus(cell.Hyperlinks(1).Address)
             Case 200: cell.Offset(0, 1) = "OK"
             Case Else: cell.Offset(0, 1) = GetURLstatus(cell.Hyperlinks(1).Address)
         End Select
     Next
     With Application: .ScreenUpdating = 1: .EnableEvents = 1: End With
End Sub
[/vba]
К сообщению приложен файл: 11111.xls (49.0 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение[vba]
Код
Private Function GetURLstatus(ByVal URL$) As Long
    ' функция проверяет наличие доступа к ресурсу URL$ (файлу или каталогу)
    ' возвращает код ответа сервера (число), либо 0, если ссылка ошибочная
    ' (200 - ресурес доступен, 404 - не найден, 403 - нет доступа, и т.д.)
    ' http://excelvba.ru/code/GetURLstatus
    On Error Resume Next: URL$ = Replace(URL$, "\", "/")
     Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
     xmlhttp.Open "GET", URL, "False"
     xmlhttp.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"
     xmlhttp.send
     GetURLstatus = Val(xmlhttp.Status)
     Set xmlhttp = Nothing
End Function

Sub check()
     With Application: .ScreenUpdating = 0: .EnableEvents = 0: End With
     Dim rng As Range
     Dim cell As Range
     Set rng = Selection
     For Each cell In rng.Cells
         Select Case GetURLstatus(cell.Hyperlinks(1).Address)
             Case 200: cell.Offset(0, 1) = "OK"
             Case Else: cell.Offset(0, 1) = GetURLstatus(cell.Hyperlinks(1).Address)
         End Select
     Next
     With Application: .ScreenUpdating = 1: .EnableEvents = 1: End With
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 07.08.2014 в 18:22
krosav4ig Дата: Суббота, 09.08.2014, 21:45 | Сообщение № 153 | Тема: Xor
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
49 34 26 без "="

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

Сообщение отредактировал krosav4ig - Воскресенье, 10.08.2014, 13:19
 
Ответить
Сообщение49 34 26 без "="
Автор - krosav4ig
Дата добавления - 09.08.2014 в 21:45
krosav4ig Дата: Понедельник, 11.08.2014, 19:28 | Сообщение № 154 | Тема: Xor
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
моя формула 26 массивная
Код
=ЕЧЁТН(СУММ(-ЕОШ(A1:E1^0)))


но имхо правильнее будет 45
Код
=ЕЧЁТН(СУММ(ЧИСЛСТОЛБ(A1:E1)+1;-ЕОШ(A1:E1^0)))

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

Сообщение отредактировал krosav4ig - Понедельник, 11.08.2014, 21:10
 
Ответить
Сообщениемоя формула 26 массивная
Код
=ЕЧЁТН(СУММ(-ЕОШ(A1:E1^0)))


но имхо правильнее будет 45
Код
=ЕЧЁТН(СУММ(ЧИСЛСТОЛБ(A1:E1)+1;-ЕОШ(A1:E1^0)))
Автор - krosav4ig
Дата добавления - 11.08.2014 в 19:28
krosav4ig Дата: Вторник, 12.08.2014, 18:54 | Сообщение № 155 | Тема: Объединение расходов по датам
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
здесь смотрели?

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениездесь смотрели?
Автор - krosav4ig
Дата добавления - 12.08.2014 в 18:54
krosav4ig Дата: Вторник, 12.08.2014, 21:20 | Сообщение № 156 | Тема: Ввод значений без повторов и с условиями из выпадающего...
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
HoBU4OK, вот вариант первых трех пунктов из вашего поста с доп. столбцами
К сообщению приложен файл: 0479245.xls (31.0 Kb)

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

Сообщение отредактировал krosav4ig - Вторник, 12.08.2014, 21:26
 
Ответить
СообщениеHoBU4OK, вот вариант первых трех пунктов из вашего поста с доп. столбцами
Автор - krosav4ig
Дата добавления - 12.08.2014 в 21:20
krosav4ig Дата: Понедельник, 25.08.2014, 15:02 | Сообщение № 157 | Тема: Определение и отметка одинаковых значений в двух списках
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
еще вариант
Код
=ЕСЛИ(СЧЁТЕСЛИ(F$2:F$51;B2);"сотрудник";"")

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениееще вариант
Код
=ЕСЛИ(СЧЁТЕСЛИ(F$2:F$51;B2);"сотрудник";"")
Автор - krosav4ig
Дата добавления - 25.08.2014 в 15:02
krosav4ig Дата: Среда, 27.08.2014, 01:55 | Сообщение № 158 | Тема: длина спирали
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
При чем тут спирали и окружности? В теплых полах есть только 2 способа прокладки труб - змейка и улитка и различные их комбинации. Длина трубы рассчитывется по формуле
Код
L = S / N * 1,1+K*2

L=Длина трубы; S=Площадь; N=шаг; 1,1-коэфициент запаса на изгибы(10%), K=расстояние от теплого пола до коллектора.

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеПри чем тут спирали и окружности? В теплых полах есть только 2 способа прокладки труб - змейка и улитка и различные их комбинации. Длина трубы рассчитывется по формуле
Код
L = S / N * 1,1+K*2

L=Длина трубы; S=Площадь; N=шаг; 1,1-коэфициент запаса на изгибы(10%), K=расстояние от теплого пола до коллектора.
Автор - krosav4ig
Дата добавления - 27.08.2014 в 01:55
krosav4ig Дата: Четверг, 28.08.2014, 15:33 | Сообщение № 159 | Тема: Подставить данные, отвечающие определенным условиям
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
так нужно?
К сообщению приложен файл: 8624440.xlsx (12.0 Kb)

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

Сообщение отредактировал krosav4ig - Четверг, 28.08.2014, 15:33
 
Ответить
Сообщениетак нужно?
Автор - krosav4ig
Дата добавления - 28.08.2014 в 15:33
krosav4ig Дата: Вторник, 02.09.2014, 14:36 | Сообщение № 160 | Тема: Выделение нескольих слов из ячейки формулой
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
как вариант
Код
=ЗАМЕНИТЬ(A2;1;МИН(ЕСЛИОШИБКА(ПОИСК({"#*о";""}&"@*"&{"й":"я":"е"};ПОДСТАВИТЬ(ПОДСТАВИТЬ(A2;" ";"@";СЧЁТ(ПОИСК(ПОВТОР("* ";СТРОКА($1:$99));A2)));" ";"#";СЧЁТ(ПОИСК(ПОВТОР("* ";СТРОКА($1:$99));A2))-1));" "));)


если нужно просто 2 последних слова
Код
=ЗАМЕНИТЬ(A2;1;ПОИСК("@";ПОДСТАВИТЬ(A2;" ";"@";СЧЁТ(ПОИСК(ПОВТОР("* ";СТРОКА($1:$99));A2))-1));)

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

Сообщение отредактировал krosav4ig - Вторник, 02.09.2014, 14:49
 
Ответить
Сообщениекак вариант
Код
=ЗАМЕНИТЬ(A2;1;МИН(ЕСЛИОШИБКА(ПОИСК({"#*о";""}&"@*"&{"й":"я":"е"};ПОДСТАВИТЬ(ПОДСТАВИТЬ(A2;" ";"@";СЧЁТ(ПОИСК(ПОВТОР("* ";СТРОКА($1:$99));A2)));" ";"#";СЧЁТ(ПОИСК(ПОВТОР("* ";СТРОКА($1:$99));A2))-1));" "));)


если нужно просто 2 последних слова
Код
=ЗАМЕНИТЬ(A2;1;ПОИСК("@";ПОДСТАВИТЬ(A2;" ";"@";СЧЁТ(ПОИСК(ПОВТОР("* ";СТРОКА($1:$99));A2))-1));)
Автор - krosav4ig
Дата добавления - 02.09.2014 в 14:36
Мир MS Excel » Записи участника » krosav4ig [2343]
Поиск:

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