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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 196 След.
Постоянно возникает сообщение при открытии книги - об ActiveX.
 
Удаляйте из книги все подряд. Как ругаться перестанет, значит оно самое.
Не проигрывается звук из файлов *.mp4
 
Файл ZVI
Не проигрывается звук из файлов *.mp4
 
Макрос ничего не проигрывает. В вашем случае, он просит винду воспроизвести файл.
Не проигрывается звук из файлов *.mp4
 
Заберитесь в mciExecute, или (и) PlaySound, и объясните винде, что mp4 тоже нужно знать!
Удаление всех дубликатов слов на листе документа csv файла с помощью макроса, Удаление дублей в колонке
 
Цитата
seregasss435 написал:
21 Май 2020 17:11:08
Цитата
seregasss435 написал:
31 Май 2020 10:27:40
А воз и ныне там.
Извлечь из текста только фамилию
 
А если встретятся отдельно фамилии Ватман или Айсберг, то как быть? И как вы будете определять, это фамилии, или бумага и лед?
Подсветка строки при выборе ячейки, Макрос
 
А не надо событийные процедуры руками прописывать, тогда и ошибок не будет.
Workscheet
Вернуть корень слова и подставить к нему новое окончание
 
Совхозовская
Обращение к ячейкам в цикле по листам
 
Вот сейчас модеры проснутся, глаза протрут, и все сразу оптимизируют.
Задать дробный формат чисел для TextBox, Доброговремени суток, форумчане. Возможно тема простая, но у меня не получается ее решить: есть TextBox1 и TextBox2ю
Вставить текст в ячейки в конце таблицы с помощью макроса
 
Код
Sub qq()
    Cells.Find("*", , , , xlByRows, xlPrevious).Offset(1).EntireRow.Resize(, 2).Value = [D1:E1].Value
End Sub
Передача аргументов пользовательской форме.
 
Цитата
slepoi_kamin написал:
Надеюсь понятно объяснил.
Вполне.
Но отсутствие сиих форм превращает эту задачу в совершенно не разрешимую.

PS Я пытался писать макросы в картинках, не работают, заразы!
VBA VLOOKUP, Проблема с адресом диапазона
 
Nikita N, а вот здесь уже  суть вопроса выходит за пределы заявленной темы.
VBA VLOOKUP, Проблема с адресом диапазона
 
Вить, на мой взгляд, название темы совершенно адекватно вопросу.

Цитата
N N написал:
Нужно через впр получить данные из csv файла.
А ВПР() способна работать и с закрытыми файлами. Поэтому, Excel не верит, что вы вставляете формулу, ссылающуюся в никуда. А поскольку вы путь не указали, то он предполагает, что этот файл CSV лежит там же, где и файл Excel, и вносит свои коррективы.
Так что получается, VBA тут вообще не при делах.
Для того, чтобы вставить ссылку без пути, нужно иметь открытый вновь созданный и не сохраненный файл. С xls это просто, а вот с CSV, боюсь, не прокатит.

PS Пардону прошу
Адекватное название конечно так "VBA VLOOKUP, Проблема с адресом диапазона"
Т.е. именно так, как я его вижу в заголовке темы.
Изменено: RAN - 27 Май 2020 19:14:59
[ Закрыто] Cтрока нулевой длины в excel
 
Запустите код, и поймете.
[ Закрыто] 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
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 196 След.
Наверх