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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 415 След.
Массив в Application, Массив в Application через метод
 
Формулу массива обработать методом Evalute не всегда(никогда?) возможно
Согласие есть продукт при полном непротивлении сторон.
Combobox с наполнением
 
Файл-пример в студию
Согласие есть продукт при полном непротивлении сторон.
Combobox с наполнением
 
Попробуйте событие
Код
Private Sub ComboBox1_Enter()
Согласие есть продукт при полном непротивлении сторон.
VBA. Заполнение нескольких ListBox'ов на одной UserForm данными с разных листов
 
Тема: VBA. Заполнение нескольких ListBox'ов на одной UserForm данными с разных листов  
Согласие есть продукт при полном непротивлении сторон.
Копирование из книги в другую книгу без дублей
 
Цитата
Vitor написал: но что это и как применить не знаю ..
Описание объекта Dictionary
Согласие есть продукт при полном непротивлении сторон.
VBA. Заполнение нескольких ListBox'ов на одной UserForm данными с разных листов
 
Там, по-хорошему, все переделывать нужно. Но это уже совсем другая история...
Согласие есть продукт при полном непротивлении сторон.
VBA. Заполнение нескольких ListBox'ов на одной UserForm данными с разных листов
 
Наворочено там у Вас...
Можно проще
Код
Private Sub AddListItem_t()
On Error Resume Next
ListBox1.Clear
With Worksheets("Лист3")
    Me.ListBox1.List = .Range("A2:A" & .Cells(.Rows.Count, 1).End(xlUp).Row).Value
End With
End Sub
Согласие есть продукт при полном непротивлении сторон.
VBA. Заполнение нескольких ListBox'ов на одной UserForm данными с разных листов
 
Цитата
MemorexTomsk написал: никак не могу его переключить на 3 лист на столбец А
Что Вы подразумеваете под 'переключить'? Объясните простыми словами, как желательно должна работать форма поиска?
Согласие есть продукт при полном непротивлении сторон.
Список уникальных значений
 
Сначала ЭТО, затем ЭТО
Согласие есть продукт при полном непротивлении сторон.
Нажатие кнопки на одном листе очищает диапазон ячеек на другом листе, Кнопка имеется ввиду макрос
 
Так у Вас проблема не в этом макросе а в процедуре обработки изменений на листе. Отключайте обработку событий
Код
Sub Макрос1()
On Error Resume Next
Application.EnableEvents = False
    Range("D5:D15, D17, D18, D20, D21, D20:D32, D35:D40, D44:D50, D53, D55, D57, D61:D65, D69:D73, D76:D87, D89:D99, D103:D108, D110, D111, D113, D114, D116, D118, D119, D121:D126, D129:D132, D136:D138, D140, D142:D146, D149:D163") = "0"
    Sheets("Шаблон").Range("A2:F45").ClearContents
Application.EnableEvents = True
End Sub
Согласие есть продукт при полном непротивлении сторон.
Нажатие кнопки на одном листе очищает диапазон ячеек на другом листе, Кнопка имеется ввиду макрос
 
Цитата
Corvus_Project написал: нет
Но почему у меня получилось, а у Вас нет? (см.сообщение #9)
Согласие есть продукт при полном непротивлении сторон.
Нажатие кнопки на одном листе очищает диапазон ячеек на другом листе, Кнопка имеется ввиду макрос
 
Точно троллинг
Согласие есть продукт при полном непротивлении сторон.
Расчёт рабочего времени в нескольких диапазонах на листе
 
Цитата
Ronin71 написал: Не знаю, на сколько это правильно и логично
ИМХО. Правильно начать с переорганизации исходных данных. В нормальную плоскую таблицу.
Согласие есть продукт при полном непротивлении сторон.
Нажатие кнопки на одном листе очищает диапазон ячеек на другом листе, Кнопка имеется ввиду макрос
 
В Вашем примере нет листа с именем 'Шаблон'
Согласие есть продукт при полном непротивлении сторон.
Заполнение листа эксель данными выбранными в ListBox MultiSelect
 
Вариант
Код
Private Sub CommandButton1_Click()
Dim iLastRow&, I&, J&, N&
On Error Resume Next
ReDim arr(0 To Me.ListBox1.ListCount - 1, 0 To 6)
For I = 0 To Me.ListBox1.ListCount - 1
    If Me.ListBox1.Selected(I) Then
        arr(N, 0) = Me.TextBox1
        arr(N, 1) = Me.ComboBox1
        For J = 1 To 5
            arr(N, J + 1) = Me.ListBox1.List(I, J)
        Next
        N = N + 1
    End If
Next
If N <> Empty Then
    With Worksheets("Итоги")
        iLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
        .Cells(iLastRow, 1).Resize(N, 7) = arr
    End With
End If
End Sub
Изменено: Sanja - 18 Июн 2018 06:50:33
Согласие есть продукт при полном непротивлении сторон.
Как присвоить форму UserForm для переменной
 
Цитата
Shadow.ua написал: У меня есть кнопка на листе, которая вызывает форму
Это все где-то у Вас, у нас тут ничего подобного не наблюдается. Думаете кому-то интересно сооружать файл с несколькими формами, воспроизводить в нем ВАШУ задачу и благополучно ее решать? Может сделаете сами файл-пример (как Правила рекомендуют)? Как есть - Как надо
Изменено: Sanja - 17 Июн 2018 16:53:35
Согласие есть продукт при полном непротивлении сторон.
Некорректно формируется подсчет денежных средств к оплате
 
Значения, получаемые из TextBox'ов являются ТЕКСТОМ (на то и TEXTbox). Для дальнейшего их использования в расчетах нужно преобразовывать в числа
Код
saldo = CDbl(TextBox7.Value)
Согласие есть продукт при полном непротивлении сторон.
Некорректно формируется подсчет денежных средств к оплате
 
Цитата
Logistic написал: Где ошибка,что неправильно в коде?
Пройдите по коду нажатия кнопки по-шагово и отследите значения переменных
Согласие есть продукт при полном непротивлении сторон.
Объединить два макроса событий листа
 
Во втором макросе строку
Код
On Error Resume Next
поставьте сразу после
Код
Dim n As Integer
Согласие есть продукт при полном непротивлении сторон.
Объединить два макроса событий листа
 
Цитата
axlgart написал: К сожалению это не так
Что ЭТО? И что с ним НЕ ТАК? У меня именно так и работает, как Вы описали
Согласие есть продукт при полном непротивлении сторон.
Сравнить два списка и найти недостающий элемент
 
Цитата
Pawel1 написал: Отлично работает только на вашем примере. На моем почему то не хочет.
Потому что в теме никакого ВАШЕГО примера нет.  
Согласие есть продукт при полном непротивлении сторон.
Объединить два макроса событий листа
 
Вот так должно работать без конфликтов
Код
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
For Each cell In Target
   If Not Intersect(cell, Range("O2:O200")) Is Nothing Then
        With cell.Offset(0, -14)
           .Value = Now
           .EntireColumn.AutoFit
        End With
   End If
Next cell
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim n As Integer
If Target.Count > 1 Then Exit Sub
On Error Resume Next
n = Target.Validation.Type
If n = 3 Then Application.SendKeys "%{DOWN}"
On Error GoTo 0
End Sub
Согласие есть продукт при полном непротивлении сторон.
Объединить два макроса событий листа
 
Опишите саму ЗАДАЧУ, а не способ, которым ее пытаетесь решить. Это два событийных макроса, причем на разные события.
Согласие есть продукт при полном непротивлении сторон.
Подсчет количества часов и минут между разными датами разных месяцев
 
Формула простая
Код
=(C6+E6)-(B6+D6)
В строках, где вместо данных видны одни решетки (#####...) некорректные исходные данные. Время окончания простоя не может быть раньше времени начала этого простоя. Или может?
Цитата
vestes написал: Хотелось бы, что бы колонка с результатом содержала числа, а не текст
И в Вашем примере и после подсчета формулой в ячейках числа
Согласие есть продукт при полном непротивлении сторон.
Текст по строкам, Для нескольких столбцев
 
Проверяйте. ВНИМАНИЕ! Макрос заменяет исходные данные на преобразованные
Код
Sub TextToCells2D()
Dim arr(), arrNew(), I&, J, K&, N&
dlm = Application.InputBox("Разделитель:")
If Selection.Count = 1 Then
    ReDim arr(1 To 1, 1 To 1)
    arr(1, 1) = Selection.Value
Else
    arr = Selection.Value
End If
ReDim arrNew(0 To UBound(arr, 2) - 1, 0 To 0)
For I = 1 To UBound(arr, 2)
    For J = 1 To UBound(arr)
        If arr(J, I) <> Empty Then
            iStr = Split(arr(J, I), dlm)
            For N = 0 To UBound(iStr)
                If UBound(arrNew, 2) < K Then ReDim Preserve arrNew(0 To UBound(arr, 2) - 1, 0 To K)
                arrNew(I - 1, K) = Trim(iStr(N))
                K = K + 1
            Next
        End If
    Next
    K = Empty
Next
Selection(1).Resize(UBound(arrNew, 2) + 1, UBound(arrNew, 1) + 1) = Application.Transpose(arrNew)
End Sub
Согласие есть продукт при полном непротивлении сторон.
Текст по строкам, Для нескольких столбцев
 
Что-то типа такого
Код
Sub TextToCells2D()
Dim arr, arrNew(), I&, J, K&, N&
dlm = Application.InputBox("Разделитель:")
arr = Selection.Value
For I = 1 To UBound(arr, 2)
    For J = 1 To UBound(arr)
        If arr(J, I) <> Empty Then
            iStr = Split(arr(J, I), dlm)
            For N = 0 To UBound(iStr)
                ReDim Preserve arrNew(0 To 100, 0 To K)
                arrNew(N, K) = Trim(iStr(N))
            Next
            K = K + 1
        End If
    Next
Next
Range("I1").Resize(UBound(arrNew, 1) + 1, K) = arrNew
End Sub
Согласие есть продукт при полном непротивлении сторон.
VBA: поиск наименьшего значения по нескольким условиям
 
Файл-пример в студию. Как есть - Как надо
Согласие есть продукт при полном непротивлении сторон.
VBA: поиск наименьшего значения по нескольким условиям
 
Цитата
serjj22 написал: Формула массива находит наименьшее значение по условию
В каком диапазоне ищите мин по условию?
Ищите найденное Мин в нужном диапазоне и получайте адрес, например
Код
clAddress = Range("$B$7:$B$204").Find(Cells(1, 1).Value).Address
Согласие есть продукт при полном непротивлении сторон.
Подстановка элементов массива в текст, Пытаюсь вывести в четные и нечетные ячейки разный текст с подстановкой в него элементов массива
 
Так?
Код
Sub adapt()
Dim Arrad(), I&
Arrad = Range(Cells(2, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1)).Value
For I = 1 To UBound(Arrad)
    If I Mod 2 = 0 Then
        Cells(I, 9) = "Текст Другой" & Arrad(I, 1) & "Текст Другой"
    Else
        Cells(I, 9) = "Текст Текст" & Arrad(I, 1) & "Текст Текст"
    End If
Next
End Sub
Согласие есть продукт при полном непротивлении сторон.
Вывести текст в ячейке в зависимости от цвета заливки другой ячейки
 
Макросом (UDF, как частный случай)
Согласие есть продукт при полном непротивлении сторон.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 415 След.