• Как убрать скрол страницы при открытии мобильного меню?

    @BorisNaumov
    Как вариант при клике на гамбургер добавлять тегу body или html класс menu-opened и в css прописать стиль для этого класса overflow: hidden, а при закрытии меню и при кликах по ссылкам меню удалять класс menu-opened.
    По второму вопросу проверять есть ли у родительского элемента потомки, если есть добавлять класс sub-menu-opened и т.д.
    Ответ написан
    Комментировать
  • Почему при отправке письма возникает ошибка "Sender address rejected: not owned by auth user"?

    devg
    @devg
    I am Yenior software developer
    "Sender address rejected: not owned by auth user"

    Это означает:
    "Адрес отправителя отклонен, т.к. не принадлежит указанному пользователю"

    Вам необходимо указать в отправителе адрес реального почтового ящика на привязанном домене, для которого указываете логин-пароль:

    $mail->From = "login@your-domain.com";
    Ответ написан
    Комментировать
  • Где найти модуль для umi cms?

    iit
    @iit
    TeamLead + php/js разработчик
    Нужно сделать макрос, который создаст данный блок и в редакторе добавить кастомную кнопку для этого макроса.

    Готового модуля на umi с таким функционалом я не знаю - скорее всего придется писать что-то свое.

    P.S. Опыт работы с umi - 2 года - чувак беги из конторы в которой стоит этот монстр...
    Ну или как я уговори руководство переписать систему на что-то более разумное
    Ответ написан
    Комментировать
  • Как объеденить кучу Excel файлов в один?

    mirzaiskandarov
    @mirzaiskandarov
    http://iskandarov.org
    Предположим, имеется куча книг Excel, все листы из которых надо объединить в один файл. Копировать руками долго и мучительно, поэтому имеет смысл использовать несложный макрос.

    Открываем книгу, куда хотим собрать листы из других файлов, входим в редактор Visual Basic (ALT+F11), добавляем новый пустой модуль (в меню Insert - Module) и копируем туда текст вот такого макроса:

    Sub CombineWorkbooks()
    Dim FilesToOpen
    Dim x As Integer

    Application.ScreenUpdating = False 'отключаем обновление экрана для скорости

    'вызываем диалог выбора файлов для импорта
    FilesToOpen = Application.GetOpenFilename _
    (FileFilter:="All files (*.*), *.*", _
    MultiSelect:=True, Title:="Files to Merge")

    If TypeName(FilesToOpen) = "Boolean" Then
    MsgBox "Не выбрано ни одного файла!"
    Exit Sub
    End If

    'проходим по всем выбранным файлам
    x = 1
    While x <= UBound(FilesToOpen)
    Set importWB = Workbooks.Open(Filename:=FilesToOpen(x))
    Sheets().Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    importWB.Close savechanges:=False
    x = x + 1
    Wend

    Application.ScreenUpdating = True
    End Sub

    После этого можно вернуться в Excel и запустить созданный макрос через меню Сервис - Макрос - Макросы (Tools - Macro - Macros) или нажав ALT+F8. Отобразится диалоговое окно открытия файла, где необходимо указать один или несколько (удерживая CTRL или SHIFT) файлов, листы из которых надо добавить к текущей книге.
    PE
    Ответ написан
    2 комментария