Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 196 След.
Cтрока нулевой длины в excel
 
Запустите код, и поймете.
!!ИНТРИГА!!, 10рублей для Ігор Гончаренко))
 
Я за Юрием. И неприязнь моя кратна его. Когда ждать сатисфакции?  :)
Cтрока нулевой длины в excel
 
Код будет выглядеть так
Код
Sub ReplaceToEmpty()
    Dim cl As Range
        For Each cl In Cells
        If Len(cl) = 0 Then cl.Value = Empty
    Next
End Sub


Сразу предупреждаю, ответ абсолютно верный. но очень вредный.  :)
[ Закрыто] Автозаполнение ячеек по условию
 
Цитата
vikttur написал:
Только если Вы предложите название темы
Вить, а что предлагать, если тема с вопроса "Автозаполнение ячеек по условию" (сообщения 1-3), уехала в тему псевдопустых ячеек?
Изменено: RAN - 26 Май 2020 12:47:06
Макросом не удаляются именованные диапазоны
 
_Igor_61, там было другое
Умножение чисел, разделенных знаком "/", Макрос
 
Цитата
Ігор Гончаренко написал:
остается загадкой, что тут могло не получиться у автора???
Код
Dim a, S0&, S1&
Debug.Print S0

И где загадка?
Можно ли Разделить ТЕКСТ по столбцам, чтобы Разделитель был - ДВА ЗНАКА?, Можно ли, при делении по столбцам, в качестве разделителя использовать СОЧЕТАНИЕ занвков - ДВА ЗНАКА (или ТРИ)?
 
А используя Ctrl+h можно и без PQ или VBA.  :)
Разделить текст по множеству делителей VBA
 
Код
Sub qq()
    Dim txt$, ar, spl, ar1(), i&, j&
    txt = [b1].Value
    ar = Array("индекс1", "индекс2", "индекс3")
    For i = 0 To UBound(ar)
        txt = Replace(txt, ar(i), "|" & ar(i) & "|")
    Next
    spl = Split(txt, "|")
    ReDim ar1(1 To 2, 1 To UBound(spl) \ 2)
    For i = 1 To UBound(spl) Step 2
        j = j + 1
        ar1(1, j) = spl(i)
        ar1(2, j) = spl(i + 1)
    Next
    [b10].Resize(2, UBound(ar1, 2)).Value = ar1
End Sub
User Form. Заполнеие списка ComboBox при открытии формы
 
Nordheim, создаете сообщение, копируете, жамкаете "изменить", и вставляете. Усё! :)
Использовать ссылку на ячейку, которая находится через два столбца, Использовать ссылку на ячейку, которая находится через два столбца
 
=ИНДЕКС($9:$9;(СТРОКА()-11)*3+1)
Изменить регистр в словосочетаниях (место рождения)
 
Для разовой замены - =ПРОПНАЧ(A1) + ручная замена Г., Обл и тп.
Определение наличия скрытых столбцов
 
"Королева, я в восхищении"
Сначала спрашиваете, как сделать, а после того, как получили ответ, спрашиваете ЧТО с этим делать.
Вопрос  - если вы не знали, что с этим делать, зачем спрашивали, как это делать?
Программное добавление объектной модели. Ошибка - Compile error: User-defined type not defined
 
Самый простой способ = поставить галку, или использовать позднее связывание.
Но ежели скучно, то в этой теме, в тестерах, выложенных v__step, есть коды для подключения. Кажется, есть и похожий.
А это первый попавшийся
Код
Sub Make_VBS_Ref()        ' программное подключение Microsoft VBScript Regular Expression 5.5
    On Error Resume Next        'in case ref exists
    ActiveWorkbook.VBProject.References.AddFromGuid "{3F4DACA7-160D-11D2-A8E9-00104B365C9F}", 5, 5
End Sub


Вить, программное подключение Microsoft VBScript Regular Expression
Изменено: RAN - 13 Май 2020 13:26:07
[ Закрыто] Выходная форма, Нужно создать выходную форму по данным из таблицы excel
 
Цитата
itprilcrb написал:
научите создать эту печатную форму.
Создаете документ WORD.
Набираете и форматируете нужный текст.
Расставляете закладки.
Сохраняете его с полным именем (путь + имя), указанном в ячейке "J1".
Появление странных ярлыков, Как их предотвращать, удалять и сократить имя ярлыка
 
Это поломанный файл. Рекомендованный способ лечения - создать новый. Причем не копированием листов, а копированием данных с дальнейшим форматированием вручную.
VBA: оператор Like - не получается использовать квадратные скобки для поиска или исключения значений
 
Код
If LCase(Cells(i, "A")) Like "*дом*" Then Cells(i, "D").Value = "+"
Макрос удаления строк со словом "УДАЛИТЬ"
 
Цитата
Mershik написал:
то нужно уже массивы использовать, я не умею их использовать.
Ну это же так просто
Код
Sub мяу()
    Dim ar, lr&, Calc&, i&
    Application.ScreenUpdating = False
    Calc = Application.Calculation
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
    With Worksheets("Календарь добычи")
        lr = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
        ar = .Range("A1:D" & lr).Value
        For i = UBound(ar) To 1 Step -1
            If ar(i, 1) = "УДАЛИТЬ" Then
                .Rows(i).Delete
            ElseIf ar(i, 2) = "УДАЛИТЬ" Then
                .Rows(i).Delete
            ElseIf ar(i, 4) = "УДАЛИТЬ" Then
                .Rows(i).Delete
            ElseIf ar(i, 3) = "УДАЛИТЬ" Then
                .Rows(i).Delete
            End If
        Next
        If .Range("D12") = "" Then
            If .Range("D5") = "" Then
                Union(.Range("A:D"), .Range("J:J"), .Range("L:L")).Delete
            Else
                Union(.Range("A:D"), .Range("L:L")).Delete
            End If
        Else
            If .Range("D5") = "" Then
                Union(.Range("A:D"), .Range("L:L")).Delete
            Else
                .Range("A:D").Delete
            End If
        End If
    End With
        Application.ScreenUpdating = True
    Application.Calculation = Calc
    Application.EnableEvents = True

End Sub
Изменено: RAN - 11 Май 2020 11:19:12
VBA Значение единственной ячейки передать в двумерный массив размером 1*1
 
Мне больше глянется так
Код
Sub test()
    Dim arr, lLastRow&
    lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
    arr = Range(Cells(1, 1), Cells(lLastRow, 1)).Value
    If Not IsArray(arr) Then
        ReDim arr(1 To 1, 1 To 1)
        arr(1, 1) = Range(Cells(1, 1), Cells(lLastRow, 1)).Value
    End If
End Sub
Ошибка в макросе, изменяющем имя листа на указанное в ячейке
 
Господа, вы серьёзно полагаете, что от такого файла можно ожидать нормальной работы?
Ошибка в макросе, изменяющем имя листа на указанное в ячейке
 
Не знаю, насколько это аналог, но поломан он не хило.
Удаление строк целиком с помощью VBA
 
Код
Worksheets("Данные").Rows("10:" & LastRowNumber).EntireRow.Delete
составить программу на языке vba в excel
 
buchlotnik, льзя!  :)
Сохранить код макроса.
 
Цитата
Александр.М написал:
Хочу на айфоне открыть код
А что, огрызок это может?
[ Закрыто] VBA, Составление программ
 
Вы подошли к двери, на которой написано "вытирайте ноги". Дверь открывается только после того, как вы подтвердите свое согласие вытереть ноги.
Однако, входя, вы это игнорируете.
На предложение прочитать заново, что написано на двери, вы становитесь в позу, и заявляете, что вы явились не за тем, чтобы вас учили вытирать ноги, а "за помощью".
[ Закрыто] VBA, Составление программ
 
В чем плохо разбираетесь? В буквах русского алфавита? Или вы смысла получившихся слов не понимаете?
Событие програмного изменения ячейки
 
Туда нет, зато обратно да.
А отслеживать что текстбокс, что комбо...
Событие програмного изменения ячейки
 
Цитата
БМВ написал:
и чем это отличается от Worksheet_Change
Миш, тем, что сработает.  :D
Ошибка при открытии гиперссылки на последнюю заполненую строку
 
У вас антивирус не Covid19 находит?
Событие програмного изменения ячейки
 
Юр, зачем?
При изменении комбо возникает ComboBox5_Change().
При изменении LinkedCell также возникает ComboBox5_Change().
НО
Цитата
Artmasterpro написал:
событие   ComboBox5_Chenge() не подходит
Правда, я склоняюсь к мысли, что кто-то готовить не умеет.
Событие програмного изменения ячейки
 
Цитата
Artmasterpro написал:
ComboBox5_Chenge() не подходит
Почему?
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 196 След.
Наверх