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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 426 След.
Видимый диапазон в ListBox
 
Цитата
Neyrovision написал: что я делаю не так?
Файл-пример не прикладываете. По кофейной гуще погадать. что у Вас там не так?
Согласие есть продукт при полном непротивлении сторон.
Вывод значений из множества комбинаций
 
Цитата
beldimon написал: по алгоритму, заложенному в таблице 2
И какой же алгоритм там заложен? Просто, по-русски, обычными словами
Согласие есть продукт при полном непротивлении сторон.
Создание новой книги макросом
 
Код
w = CreateObject("Scripting.FileSystemObject").GetBaseName(ActiveWorkbook.Name)
Согласие есть продукт при полном непротивлении сторон.
Создание новой книги макросом
 
Код
w = ActiveWorkbook.Name
Согласие есть продукт при полном непротивлении сторон.
Форматирование частей текста в ячейке, VBA
 
Цитата
deoniszp написал: возможные варианты решения
Согласие есть продукт при полном непротивлении сторон.
Userform закрыть через ESC
 
Вариант
Согласие есть продукт при полном непротивлении сторон.
Userform закрыть через ESC
 
ПОИСК forever!
Согласие есть продукт при полном непротивлении сторон.
Ввод в ячейку текущего времени (не обновляемого) по клику мышки, Ввести текущее время системы в ячейку мышкой и закрыть ячейку для любого другого ввода
 
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 Then Target = Time
End Sub
Без защиты от изменений
Согласие есть продукт при полном непротивлении сторон.
Макрос. Преобразование текста в чсило . замена разделительного знака .
 
Цитата
Doneck117 написал: Нужен простой макрос
Запишите нужные действия макрорекордером. В полученном коде замените конкретный диапазон на Selection
Изменено: Sanja - 13 Дек 2018 19:16:42
Согласие есть продукт при полном непротивлении сторон.
Combobox извлечь из второй колонки
 
Код
With Me.ComboBox1
    .BoundColumn = 2
    Range("A1") = .Value
End With
'или
With Me.ComboBox1
    Range("A1") = .List(.ListIndex, 1)
End With
Согласие есть продукт при полном непротивлении сторон.
Как найти данные по нескольким уникальным символам в коде?
 
Удалите из общего списка дубликаты, отсортируйте оставшееся по алфавиту
Согласие есть продукт при полном непротивлении сторон.
обновлять таблицу при системном изменении даты, обновлять таблицу при системном изменении даты
 
Запускайте макрос по времени, а не по событию листа
Код
Application.OnTime TimeValue("00:00:00"), "Мой_макрос"
Изменено: Sanja - 13 Дек 2018 14:13:33
Согласие есть продукт при полном непротивлении сторон.
макрос удаление строк кроме определенных
 
Код
Sub Удаление_строк()

Dim sSubStr()  'массив условий
Dim li&, I&
Dim arr()
Dim pp As Range
Dim iTemp
    Sheets("Выгрузка").Copy
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Format(Date, "dd.MM_Отчет_за ") & Format(Date - 1, "dd.mm") & ".xlsx"
Application.ScreenUpdating = 0
On Error Resume Next
sSubStr = Array("яблоко", "груша", "слива", "банан", "виноград")
 
With Sheets("Выгрузка")
    arr = .Cells(1, 15).Resize(.UsedRange.Row - 1 + .UsedRange.Rows.Count).Value
End With
 
With CreateObject("Scripting.Dictionary")
    For I = 0 To UBound(sSubStr)
        iTemp = .Item(sSubStr(I))
    Next
    For li = 1 To UBound(arr)
        If .Exists(CStr(arr(li, 1))) Then
            If pp Is Nothing Then
                Set pp = Sheets("Выгрузка").Cells(li, 1)
            Else
                Set pp = Union(pp, Sheets("Выгрузка").Cells(li, 1))
            End If
        End If
    Next li
End With
 
If Not pp Is Nothing Then pp.EntireRow.Delete
Application.ScreenUpdating = 1
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
Согласие есть продукт при полном непротивлении сторон.
макрос удаление строк кроме определенных
 
Код
Dim sSubStr()  'массив условий
Dim li&, I&
Dim arr()
Dim pp As Range
Dim iTemp
Application.ScreenUpdating = 0
On Error Resume Next
sSubStr = Array("яблоко", "груша", "слива", "банан", "виноград")

With Sheets("Выгрузка")
    arr = .Cells(1, 15).Resize(.UsedRange.Row - 1 + .UsedRange.Rows.Count).Value
End With

With CreateObject("Scripting.Dictionary")
    For I = 0 To UBound(sSubStr)
        iTemp = .Item(sSubStr(I))
    Next
    For li = 1 To UBound(arr)
        If .Exists(CStr(arr(li, 1))) Then
            If pp Is Nothing Then
                Set pp = Sheets("Выгрузка").Cells(li + 6, 1)
            Else
                Set pp = Union(pp, Sheets("Выгрузка").Cells(li + 6, 1))
            End If
        End If
    Next li
End With

If Not pp Is Nothing Then pp.EntireRow.Delete
Application.ScreenUpdating = 1
ActiveWorkbook.Save
ActiveWindow.Close
Евгения,  оформите код макроса в Вашем сообщении так же как в моем. Ищите на панели инструментов кнопку '<...>'
Согласие есть продукт при полном непротивлении сторон.
Добавление строки по условию изменения ячейки в строке, Макросы VBA
 
Код
If rCell.Offset(1, 0) <> rCell Then Rows("1:1").Insert
Согласие есть продукт при полном непротивлении сторон.
Связывание таблиц из разных книг, Отчеты
 
Цитата
egor19900 написал: нужно заполнять в поточном режиме
Заполняйте ВСЕ в Базу и стройте любые отчеты
Согласие есть продукт при полном непротивлении сторон.
Связывание таблиц из разных книг, Отчеты
 
Цитата
egor19900 написал: Сводные таблицы не подходят
Согласие есть продукт при полном непротивлении сторон.
Связывание таблиц из разных книг, Отчеты
 
Цитата
Пытливый написал: "вероятно"
Чуть расширим ответ. Более чем возможно. НАПРИМЕР
Согласие есть продукт при полном непротивлении сторон.
Как программно подавить предупреждения и ошибки при открытии файла?
 
Попробуйте в начале процедуры открытия файла вставить строку
Код
Application.DisplayAlerts = False
Изменено: Sanja - 12 Дек 2018 11:48:13
Согласие есть продукт при полном непротивлении сторон.
Использование подпрограмм-процедур
 
Что в Вашем понимании 'головная' программа? Как все это должно работать с точки зрения пользователя? Просто, по-русски, объясните
Согласие есть продукт при полном непротивлении сторон.
Найти если в тексте содержится
 
Судя по расширению файла макросы в нем используются? Тогда проще.
UDF. Тоже вводится как формула массива
Код
Function ИНДЕКСНЕТОЧН(rngCond As Range, iCond As String, Optional rngVal As Range)
Dim arr1(), arr2(), iArr(), I&, J&
ReDim iArr(Application.Caller.Rows.Count, 0)
If rngVal Is Nothing Then Set rngVal = rngCond
arr1 = rngCond.Value
arr2 = rngVal.Value
For I = 1 To UBound(arr1)
    If arr1(I, 1) Like iCond Then
        iArr(J, 0) = arr2(I, 1)
        J = J + 1
    End If
Next
ИНДЕКСНЕТОЧН = iArr
End Function

 
Изменено: Sanja - 12 Дек 2018 09:16:39
Согласие есть продукт при полном непротивлении сторон.
Найти если в тексте содержится
 
Файл-пример. Как есть - Как надо
Согласие есть продукт при полном непротивлении сторон.
Копирование элементов виртуального массива в другой виртуальный массив
 
Можно попробовать поиграть вложенными Application.Index
Здесь пример
Согласие есть продукт при полном непротивлении сторон.
Копирование элементов виртуального массива в другой виртуальный массив
 
Цитата
Borrusale написал: что бы было похоже примерно на такое
Примерно похоже
Код
Sub Borrusale()
    ARR_1 = Range("A2:D11").Value
    ARR_2 = Range("F2:I11").Value
    ARR_2(5, 2) = ARR_1(5, 2)
    Range("K2").Resize(10, 4) = ARR_2
End Sub
Согласие есть продукт при полном непротивлении сторон.
Выставление в столбце данных, в зависимости от наличия в другом столбце цифры
 
Код
=ЕСЛИ(ЕЧИСЛО(O4);"1 пол.";"")
Согласие есть продукт при полном непротивлении сторон.
Замена текста до каждого повторяющегося символа, заменить столько раз, сколько повторяется символ.
 
Цитата
БМВ написал: если нужно отступы, то только макрос
В модуль листа
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim intCount&
On Error Resume Next
If Target.Count = 1 Then
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    intCount = UBound(Split(Target, "/"))
    With Target.Offset(, 2)
        .Value = Split(Target, "/")(intCount)
        .IndentLevel = intCount
    End With
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Согласие есть продукт при полном непротивлении сторон.
Замена текста до каждого повторяющегося символа, заменить столько раз, сколько повторяется символ.
 
kazakboris, Вам нужна именно табуляция или пробелы тоже подойдут?
Согласие есть продукт при полном непротивлении сторон.
Замена текста до каждого повторяющегося символа, заменить столько раз, сколько повторяется символ.
 
Цитата
kazakboris написал: ПРИМЕРЫ.
Сделайте Ваши примеры в файле Excel. Как есть - Как надо. И приложите к сообщению
Согласие есть продукт при полном непротивлении сторон.
подтащить данные из другой книги.
 
Читаем справку по функции ВПР. Пошагово
Код
=ВПР(A1;[КНИГА_А.xlsx]Лист1!$A:$AZ;52;0)
Согласие есть продукт при полном непротивлении сторон.
Запрет печати, если столбец содержит...
 
В модуль 'ЭтаКнига'
Код
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet
    Set iCl = Intersect(.UsedRange, Union(.Columns("C"), .Columns("K"))).Find("/", , , xlPart)
    If Not iCl Is Nothing Then
        MsgBox "Найден символ '/' !" & vbCrLf & _
                "Печать будет отменена!"
        Cancel = True
    End If
End With
End Sub
Изменено: Sanja - 10 Дек 2018 16:47:33
Согласие есть продукт при полном непротивлении сторон.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 426 След.
Наверх