Все сервисы Хабра

Сообщество IT-специалистов

Ответы на любые вопросы об IT

Профессиональное развитие в IT

Удаленная работа для IT-специалистов

Войти на сайт
  • Все вопросы
  • Все теги
  • Пользователи

Хабр Q&A — вопросы и ответы для IT-специалистов

Получайте ответы на вопросы по любой теме из области IT от специалистов в этой теме.

Узнать больше
другие проекты хабра
  • Хабр
  • Карьера
  • Фриланс
Задать вопрос
idShura

idShura

  • 183
    вклад
  • 21
    вопрос
  • 294
    ответа
  • 40%
    решений
Ответы
  • Информация
  • Ответы
  • Вопросы
  • Комментарии
  • Подписки
  • Нравится
  • Достижения
  • Как в VBA excel получить ФИО из полного текста?

    idShura
    idShura @idShura
    Можно формулой

    =СЦЕПИТЬ(ЛЕВСИМВ(A1; ПОИСК(" ";A1;1)-1);" ";ЛЕВСИМВ(ПСТР(A1; ПОИСК(" ";A1) + 1; ПОИСК(" ";A1;ПОИСК(" ";A1)+1) - ПОИСК(" ";A1) - 1);1);".";ЛЕВСИМВ(ПРАВСИМВ(A1;ДЛСТР(A1) - ПОИСК(" "; A1; ПОИСК(" "; A1) + 1));1);".")


    Но лучше написать вою формулу на vba, могу позже сделать как время будет.
    Ответ написан 05 апр.
    Комментировать
    Нравится Комментировать
  • Удалить элементы списка из другого списка?

    idShura
    idShura @idShura
    Если правильно понял вопрос, то
    list2 = new List<string>(list1);
    Ответ написан 30 мар.
    Комментировать
    Нравится Комментировать
  • Заменить часть строки между двумя символами?

    idShura
    idShura @idShura
    Вот вам пару примеров

    --С помощью регулярного выражения
    select REGEXP_REPLACE('ДГН-04-13601/21-53', '-\d{1,}/', '-********/') from  dual;
    
    --Если строка всегда одной длины, то можно с помощью substr
    select substr('ДГН-04-13601/21-53', 0, 7) || '********' || substr('ДГН-04-13601/21-53', 13) from dual;
    Ответ написан 30 мар.
    Комментировать
    Нравится 1 Комментировать
  • Как программно поменять значение ComboBox и принять его?

    idShura
    idShura @idShura
    Попробуй так ComboBox1.ListIndex = 3. Индекс первого элемента 0, поэтому если нужно выбрать четвертый элемент в списке, нужно указывать 3.
    Ответ написан 25 мар.
    Комментировать
    Нравится 1 Комментировать
  • Как разбить текст на буквы и записать по одной в ячейке?

    idShura
    idShura @idShura
    Писать готовое решение не хочу, поэтому приведу пример.
    Значение из Inputbox передайте в переменную Text и поправьте в цикле ячейки в которую нужно выводить значения.

    Text = "абвгд"
        
        For i = 1 To Len(Text)
            Cells(1, i) = Mid(Text, i, 1)
        Next
    Ответ написан 25 мар.
    1 комментарий
    Нравится 1 1 комментарий
  • Как выбрать строки по искомому содержимому?

    idShura
    idShura @idShura
    Нажимаешь Ctrl+F
    В строке поиска указываешь что нужно найти и нажимаешь кнопку "Найти все".
    Затем с помощью Ctrl выделяешь найденные строки в окне поиска и закрываешь окно.
    6048d571bd151048963305.gif

    upd

    Тогда можно вот так:
    6048eda3dc87e515672297.gif
    Ответ написан 10 мар.
    4 комментария
    Нравится 1 4 комментария
  • На чем лучше делать REST-API для Oracle?

    idShura
    idShura @idShura
    Про Oracle REST Data Services тут неплохо написано Веб-сервисы в Oracle, а так ни тем ни другим не пользовался и подсказать не смогу.
    Ответ написан 09 мар.
    Комментировать
    Нравится Комментировать
  • Как правильно генерировать ID в Yandex Database?

    idShura
    idShura @idShura
    Как советует Антон Шаманов брать timestamp или предварительно вычисляй: (select max(id)) + 1, в яндексе не рекомендуют:

    ... Как следствие этого правила, не стоит в качестве первичного ключа таблицы использовать монотонно возрастающую последовательность, например, timestamp.


    А так в документации все есть:

    Проектирование первичного ключа
    Как проектировать первичный ключ?
    Ответ написан 09 мар.
    Комментировать
    Нравится 1 Комментировать
  • Как сделать шахматную разметку?

    idShura
    idShura @idShura
    Sub MM1()
    For c = 1 To 8
        For r = 1 To 8
            Cells(1, 1).Offset(r - 1, c - 1).Interior.ColorIndex = (r + c) Mod 2 + 1
        Next r
        Cells(1, 1).Offset(0, c - 1).ColumnWidth = 2.5
    Next c
    End Sub


    604740ebbb837795854926.gif
    Ответ написан 09 мар.
    6 комментариев
    Нравится 3 6 комментариев
  • Где найти токен Dialogflow?

    idShura
    idShura @idShura
    Вот вам первая попавшееся инструкция тут
    Ответ написан 06 мар.
    1 комментарий
    Нравится 1 комментарий
  • Как скомпилировать пакет который блокируется другими сессиями?

    idShura
    idShura @idShura
    Тут только один вариант, кильнуть сессии которые мешают и выполнить компиляцию пакета.
    Ответ написан 04 мар.
    Комментировать
    Нравится Комментировать
  • Есть способ написать скрипт для екселя в виде отображения на другом листе?

    idShura
    idShura @idShura
    Private Sub CommandButton1_Click()
    
    Application.ScreenUpdating = False
    
    Sheets("Корешки").Range("A1:AC200").ClearContents
    
    i = 2
    j = 0
    Offset1 = 0 'Смещение по вертикали
    Offset2 = 0 'Смещение по горизонтали
    
    Do While Sheets("Таблица").Cells(i, 1) <> ""
        
        If Sheets("Таблица").Cells(i, 3) = "да" Then
    
            Sheets("Корешки").Cells(1 + Offset1, 1 + Offset2).Value = Sheets("Таблица").Cells(i, 4)
            
            Sheets("Корешки").Cells(2 + Offset1, 1 + Offset2).Value = "Зарплата"
            Sheets("Корешки").Cells(2 + Offset1, 2 + Offset2).Value = Sheets("Таблица").Cells(i, 1)
            
            Sheets("Корешки").Cells(3 + Offset1, 1 + Offset2).Value = "пеработк"
            Sheets("Корешки").Cells(3 + Offset1, 2 + Offset2).Value = Sheets("Таблица").Cells(i, 8)
            
            Sheets("Корешки").Cells(4 + Offset1, 1 + Offset2).Value = "премия"
            Sheets("Корешки").Cells(4 + Offset1, 2 + Offset2).Value = Sheets("Таблица").Cells(i, 10)
            
            Sheets("Корешки").Cells(5 + Offset1, 1 + Offset2).Value = "Карточка"
            Sheets("Корешки").Cells(5 + Offset1, 2 + Offset2).Value = Sheets("Таблица").Cells(i, 9)
            
            Sheets("Корешки").Cells(6 + Offset1, 1 + Offset2).Value = "аванс нал"
            Sheets("Корешки").Cells(6 + Offset1, 2 + Offset2).Value = Sheets("Таблица").Cells(i, 14)
            
            Sheets("Корешки").Cells(7 + Offset1, 1 + Offset2).Value = "Итого:"
            Sheets("Корешки").Cells(7 + Offset1, 2 + Offset2).Value = Sheets("Таблица").Cells(i, 11)
            
            Sheets("Корешки").Cells(8 + Offset1, 2 + Offset2).Value = Sheets("Таблица").Cells(i, 12)
            
            Sheets("Корешки").Cells(9 + Offset1, 2 + Offset2).Value = Sheets("Таблица").Cells(i, 11) + Sheets("Таблица").Cells(i, 12)
    
            Offset2 = Offset2 + 3
            
            If j = 9 Then
                j = 0
                Offset1 = Offset1 + 10
                Offset2 = 0
        
            Else
                j = j + 1
            End If
            
        End If
        
        i = i + 1
        
    Loop
    
    Application.ScreenUpdating = True
    
    End Sub
    Ответ написан 02 мар.
    Комментировать
    Нравится Комментировать
  • Как правильно переделать процедуру SQl?

    idShura
    idShura @idShura
    Каким способом можно к этому подойти?

    Самым лучшим способом будет заплатить человеку который в этом разбирается.
    Ответ написан 28 февр.
    Комментировать
    Нравится 2 Комментировать
  • Ошибка при нажати кнопки "войти": "Доступ к ликвидированному объекту невозможен." как исправить?

    idShura
    idShura @idShura
    Из окна авторизации вы открываете дочернюю форму и затем закрываете родительскую форму (форма авторизации) из-за чего возникает ошибка
    Ответ написан 27 февр.
    Комментировать
    Нравится Комментировать
  • Как исправить ошибку в формуле Excel VBA?

    idShura
    idShura @idShura
    Добавь пробелы и все заработает
    Public Function fun1(x As Double) As Double
        fun1 = (x * x - 5 * 2 ^ 0.5) / (2 * x ^ 3 + 1)
    End Function
    Ответ написан 26 февр.
    1 комментарий
    Нравится 1 1 комментарий
  • Как сделать действие с переменной в sql?

    idShura
    idShura @idShura
    Почитайте про конкатенацию строк в python
    sql.execute('UPDATE users SET cash = cash - ' + de)

    У вас ни в одном sql запросе нет условия (Where), вы точно понимаете что пишите?
    Ответ написан 24 февр.
    Комментировать
    Нравится 1 Комментировать
  • С чего начать изучение C Sharp чайнику?

    idShura
    idShura @idShura
    Попробуй интерактивный онлайн-курс Основы программирования на примере C#. Часть 1 , плюс читать соответствующую литературу
    Ответ написан 23 февр.
    Комментировать
    Нравится 1 Комментировать
  • SQLite3 - Почему не выводится таблица?

    idShura
    idShura @idShura
    INSERT Это вставка записи в таблицу, вам нужен SELECT * FROM ...
    Ответ написан 22 февр.
    6 комментариев
    Нравится 2 6 комментариев
  • Ошибка 401 при запуске бота, vpn не помогает, что делать?

    idShura
    idShura @idShura
    Ошибка 401 Unauthorized - Данная ошибка выдается сервером в том случае, если происходят проблемы с авторизацией.
    Ответ написан 22 февр.
    4 комментария
    Нравится 4 комментария
  • Как найти различия в двух столбцах Google Sheets и вывести их?

    idShura
    idShura @idShura
    602fbac69dfcc919430859.png

    Формула в ячейке D =FILTER(A1:A11;ISNA(MATCH(A1:A11;B1:B12;0)))
    Формула в ячейке E =FILTER(B1:B12;ISNA(MATCH(B1:B12;A1:A11;0)))

    Ссылка на пример
    Ответ написан 19 февр.
    1 комментарий
    Нравится 3 1 комментарий
Оценили как «Нравится»
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • Следующие →
Самые активные сегодня
  • Василий Банников
    • 10 ответов
    • 0 вопросов
  • Forwatters
    Forwatters
    • 9 ответов
    • 0 вопросов
  • firedragon
    Владимир Коротенко
    • 9 ответов
    • 0 вопросов
  • TNPTSYWWCC
    Uneasy Hearts Weigh the Most
    • 8 ответов
    • 0 вопросов
  • 0xD34F
    0xD34F
    • 6 ответов
    • 0 вопросов
  • yupiter7575
    Yupiter7575
    • 6 ответов
    • 0 вопросов
  • © Habr
  • О сервисе
  • Обратная связь
  • Блог

Войдите на сайт

Чтобы задать вопрос и получить на него квалифицированный ответ.
Войти через центр авторизации