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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 164 След.
Указание аргументов для функций внутри SUMIFS
 
=СУММПРОИЗВ(--(МЕСЯЦ(A2:A21)=10);B2:B21;--(C2:C21 = "Опт"))
Потеря знаков при приобразовании текста в число
 
А я так порезвился.  :)
Код
Sub ReplaceNumToText()
    Dim objVBProj As Object, objVBComp As Object, objCodeMod As Object
    Dim sModuleName As String, sFullName As String
    Dim sProcLines As String
    Dim lLineNum As Long
    Dim sAdr$
    sAdr = Selection.Address(0, 0)
    sProcLines = "Sub Test()" & vbCrLf & _
                 "[" & sAdr & "] = [" & Chr(34) & Chr(39) & Chr(34) & "&" & sAdr & "]" & _
                 vbCrLf & "End Sub"
    'добавляем новый стандартный модуль в активную книгу
    Set objVBComp = ActiveWorkbook.VBProject.VBComponents.Add(1)
    'получаем ссылку на коды модуля
    Set objCodeMod = objVBComp.CodeModule
    'узнаем количество строк в модуле
    '(т.к. VBA в зависимости от настроек может добавлять строки деклараций)
    lLineNum = objCodeMod.CountOfLines + 1
    'вставляем текст процедуры в тело нового модуля
    objCodeMod.InsertLines lLineNum, sProcLines
    Application.Run objVBComp.Name & ".Test"
    objVBComp.Collection.Remove objVBComp

End Sub
Деактивация определённых листов книги при автоматическом заполнение бланков
 
У вас проблема с термИнами.
Что значит деативировалась?
Как можно деактивировать не активный лист (вкладку в ваших термИнах)?
Почему удаляются мои сообщения?
 
ФАС!
Поиск слов в списке фраз по списку неточных соответствий, ускорение процесса поиска
 
Не шибко выпендрежистый макрос на исходных данных работает 0,87с против 22с, выпендрежистый - 0,78с
При увеличении диапазона в столбце А до 55500 строк 40с и 36с соответственно.
Код
Sub Color_SubStr_ССМ_2()
    Dim sSubStr As String    'искомое слово или фраза
    Dim lCol As Long    'номер столбца с просматриваемыми значениями
    Dim lLastRow As Long, li As Long
    Dim avArr, lr As Long
    Dim arr, lInStr&
    Dim t!
    lCol = Val(InputBox("Укажите номер столбца, в котором искать указанное значение", "Запрос параметра", 1))
    If lCol = 0 Then Exit Sub
    t = Timer
    lLastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
    'заносим в массив значения листа, в котором необходимо удалить строки
    arr = Cells(1, lCol).Resize(lLastRow, 2).Value
    'Получаем с ССМ значения, которые надо удалить в активном листе
    With Sheets("ССМ")    'Имя листа с диапазоном значений на удаление
        avArr = .Range(.Cells(2, 6), .Cells(.Rows.Count, 6).End(xlUp))
    End With
    'удаляем
    For lr = 1 To UBound(avArr, 1)
        sSubStr = avArr(lr, 1)
        For li = 1 To lLastRow    'цикл с первой строки до конца
            lInStr = InStr(1, arr(li, 1), sSubStr, 1)
            If lInStr > 0 Then
                If lInStr = 1 Then
                    If Mid$(arr(li, 1), lInStr + Len(sSubStr), 1) = " " Then arr(li, 2) = "x"
                ElseIf lInStr - 1 + Len(sSubStr) = Len(arr(li, 1)) Then
                    If Mid$(arr(li, 1), lInStr - 1, 1) = " " Then arr(li, 2) = "x"
                Else
                    If Mid$(arr(li, 1), lInStr - 1, 1) = " " And Mid$(arr(li, 1), lInStr + Len(sSubStr), 1) = " " Then arr(li, 2) = "x"
                End If
            End If
        Next li
    Next lr
    Application.ScreenUpdating = 0
    For li = 1 To lLastRow    'цикл с первой строки до конца
        If Len(arr(li, 2)) Then Cells(li, 1).Interior.Color = 255
    Next
    Application.ScreenUpdating = 1
    Debug.Print Format(Timer - t, "0.0000")
End Sub
Поиск слов в списке фраз по списку неточных соответствий, ускорение процесса поиска
 
Ну, этот макрос в этих условиях вообще корректно работать не будет, ибо по поиску букет он найдет и букет, и букетик, которые искать нужно, и букетосик, который искать не нужно.
Вставка одного динамического диапазона за другим, сортировка
 
Цитата
Мотя написал:
Макрос можно использовать в формате *.xslx.
8-0  8-0  8-0  8-0  8-0
Это как понять?
Почему удаляются мои сообщения?
 
И тут коты виноваты!
Где найти инфо по регулярным выражениям?
 
Цитата
sokol92 написал:
Да я всё понимаю . У меня "слету" тоже не получилось (не уверен, что это возможно).
В Избушку  этим не пустят. Нужно рядом Шалаш ставить.  :)
Протяжка формулы ВПР по горизонтали и по вертикали
 
Цитата
Olga H. написал:
Но не работают формулы:=ИНДЕКС(Лист2!D$25:D$125;ПОИСКПОЗ($I3;Лист2!$B$25:$B$125;0))Как начинаю менять значения выпадающего списка в ячейке I2
Странно, не правда-ли?
Протяжка формулы ВПР по горизонтали и по вертикали
 
Сильнее трясти (тянуть вправо) не возможно.
Изменено: RAN - 10 Окт 2018 20:58:25
[ Закрыто] макрос поиска
 
Как "там", сказать сложно, а в правилах форума всего 5 пунктов.
Протяжка формулы ВПР по горизонтали и по вертикали
 
У вас пчелы не правильные.
Сильнее трясти надо.
=ВПР($I2;Лист2!$B$25:$XFD$125;СТОЛБЕЦ(C$1);0)
Изменено: RAN - 10 Окт 2018 20:31:33
Протяжка формулы ВПР по горизонтали и по вертикали
 
Цитата
Olga H. написал:
Попыталась расставить значки $ в формуле =ВПР(I2;Лист2!B25:D125;3;0), но ничего не выходит.
Как говорил Медведь, и входит, и выходит.  :D
=ВПР(I2;Лист2!$B$25:$D$125;3;0)
Преобразование строки в формулу с ссылкой на онлайн документ
 
Чуть что, и сразу коты виноваты.
А мы, между прочим, не Император Всероссийский, и, на обращение к своей персоне во множественном числе, не претендуем.  :)

А косяк-то, он, небось, дорогущий....
Изменено: RAN - 9 Окт 2018 20:32:21
Преобразование строки в формулу с ссылкой на онлайн документ
 
Цитата
БМВ написал:
спасибо никогда не жду
хош, не хош, как хош.  :D
Особливо "спасибу", думаю никто не ждет, но, как беее, выражение
Цитата
БМВ написал:
Мы тут не за спасибо
означает, что не плохо было бы и денюшку заплатить.  ;)
Выделение цветом одной ячейки по значению в другой
 
Если вам не хватило 4 месяцев, для того, чтобы разобраться, как работает код, то пример для "например" вам тоже не поможет.
Преобразование строки в формулу с ссылкой на онлайн документ
 
БМВ,  а за что тогда?
Не срабатывает макрос события листа
 
Цитата
Gagarin13 написал: А в модуле Листа что написано тогда?)
Не запускать событийные макросы (отключить обработку событий)
Цитата
Application.EnableEvents = False
:D
Макрос открытие книг, расположенных в сети
 
Название
Как в книгу Excel запихнуть еще несколько, и чтобы каждая работала сама по себе.
Как сбросить цвет (заливку) ячейки, чтобы Ctrl+End делал правильный переход?
 
Для Immediate
Код
ActiveCell.Delete
ActiveSheet.UsedRange
?ActiveSheet.UsedRange.Address
$A$1
Корректное удаление выбранной строки на листе через listbox
 
Код
Private Sub CommandButton3_Click()
    Dim i&
    For i = ListBox1.ListCount - 1 To 0 Step -1
        If ListBox1.Selected(i) Then
            Sheets("Справочная_базис").ListObjects("Базис_tb").ListRows(i + 1).Delete
        End If
    Next
    On Error Resume Next
    Me.ListBox1.List = Sheets("Справочная_базис").ListObjects("Базис_tb").DataBodyRange.Value
    If Err Then Err.Clear: Me.ListBox1.Clear
    On Error GoTo 0
End Sub
Как переместить фигуру по дуге (окружности)
 
Цитата
Жирный Тони написал: Как нарисовать фигуру с градусным отклонением?
Отклонение (-2 градуса)  :)
Скрытый текст
Изменено: RAN - 4 Окт 2018 11:01:39
удаление/изменение данных через userform в listbox
 
Код
Private Sub CommandButton2_Click()
    For i = 1 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
            Sheets("лист2").ListObjects("Клуб46").ListRows(i + 1).Delete
            Me.ListBox1.List = Sheets("лист2").ListObjects("Клуб46").DataBodyRange.Value
            Exit For
        End If
    Next
End Sub
Очистка ячеек, не выделенных условным форматированием
 
Можно. Но нужно-ли?
Очистка ячеек, не выделенных условным форматированием
 
Код
Sub мяу()
    Dim cl As Range
    For Each cl In Selection
        If cl.Interior.Pattern = xlNone Then cl.Value = Empty
    Next
End Sub
Нужны кнопки, которые всегда на виду, Как сделать так, что-бы кнопки в таблице не уезжали за пределы экрана.
 
Мишка после первой затяжки поплыл...  :D
Нужны кнопки, которые всегда на виду, Как сделать так, что-бы кнопки в таблице не уезжали за пределы экрана.
 
Разместить кнопки в первой строке, и закрепить оную.
Вставка выпадающего календаря
 
Идете в копилку, находите там календарь Слэна, берете из него код ZVI для позиционирования формы, и привязываете его к календарю Vovak.
Печать PDF файла в PDF с помощью VBA, PDF сохранить через печать PDF с помощью VBA и функцией при печати "Печать в градациях серого (черно-белая)"
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 164 След.
Наверх