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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 102 След.
Как с помощью CheckBox выделить нужные листы и снять выделение листов
 
Из 6 сообщения вариант не подошел?
"Все гениальное просто, а все простое гениально!!!"
Как с помощью CheckBox выделить нужные листы и снять выделение листов
 
Вариант
Изменено: Nordheim - 1 окт 2020 23:30:26
"Все гениальное просто, а все простое гениально!!!"
Выпадающий список combobox из списка по условию
 
GRIM, Коллега, позволил немного подправить Ваш код, и получилось как-то так:

Код
Private Sub UserForm_Initialize()
    Dim i&, j&
    For j = 2 To 4
        Me.Controls("ComboBox" & j).Clear
        With CreateObject("scripting.dictionary")
            For i = 2 To Worksheets("Список").Cells(Rows.Count, 2).End(xlUp).Row
                If Worksheets("Список").Cells(i, 1) = "Ресурсы" Then
                    If Not .Exists(Trim(Worksheets("Список").Cells(i, 2))) Then
                        .Add Trim(Worksheets("Список").Cells(i, 2)), i
                        Me.Controls("ComboBox" & j).AddItem Worksheets("Список").Cells(i, 2).Value
                    End If
                End If
            Next i
        End With
    Next j
End Sub
"Все гениальное просто, а все простое гениально!!!"
Выпадающий список combobox из списка по условию
 
Alex32, А кто же мешает сделать цикл по таблице и внести во все ComboBox(ы) только ресурсы?
Изменено: Nordheim - 29 сен 2020 08:57:18
"Все гениальное просто, а все простое гениально!!!"
как открыть файл с расширением хlsm, в офисе 2013-2016
 
Поменял в разрешении последнюю букву с "m" на "x" и все открылось . Попробуйте, может получится
"Все гениальное просто, а все простое гениально!!!"
Выпадающий список combobox из списка по условию
 
В предыдущей теме показал пример с несколькими ComboBox(ами). Может подойдет.
"Все гениальное просто, а все простое гениально!!!"
Как связать combobox без повторов
 
Сделал как можно проще.
"Все гениальное просто, а все простое гениально!!!"
Как связать combobox без повторов
 
Я вам показал как это можно сделать, загоните группы комбобоксов во фреймы и обрабатывайте по аналогии. Я бы только осмысленные названия комбобоксам дал, а не дефолтные оставил.
Изменено: Nordheim - 27 сен 2020 22:43:16
"Все гениальное просто, а все простое гениально!!!"
Как связать combobox без повторов
 
Как показано на примере, так и сделал. Данные в комбобоксах заполнил вашим кодом
"Все гениальное просто, а все простое гениально!!!"
Как связать combobox без повторов
 
Вариант, полноценно не тестировал
"Все гениальное просто, а все простое гениально!!!"
UserForm имя нажатой кнопки
 
Примитивно, можно так сделать
"Все гениальное просто, а все простое гениально!!!"
Поиск последней пустой строки в столбце и вставка туда данных из буфера
 
Nick, у вас рабочий код, только копирует определенную ячейку, укажите активную ячейку и все заработает, либо заполните ту которая указана в макросе.
"Все гениальное просто, а все простое гениально!!!"
Если ячейка не пустая, заполнить значением выше, макрос не совсем корректный
 
Код
Sub test()
    Dim rngUR As Range
    Dim rngBlank As Range
    Set rngUR = Intersect(ActiveWorkbook.ActiveSheet.UsedRange, ActiveWorkbook.ActiveSheet.Range("d:f"))
    Set rngBlank = rngUR.Find("")
    While Not rngBlank Is Nothing
        rngBlank.Value = rngBlank.Offset(-1, 0).Value
        Set rngBlank = rngUR.Find("", rngBlank)
    Wend
End Sub
Изменено: Nordheim - 7 сен 2020 13:48:56
"Все гениальное просто, а все простое гениально!!!"
Как узнать ключ словаря по значению без цикла?
 
Цитата
Бахтиёр написал:
2) Порядковый номер по ключу?
У словаря нет такого метода.
"Все гениальное просто, а все простое гениально!!!"
VBA. Применение макроса ко всем Exel файлам в папке по заданному пути
 
Код
Sub OpenDialod()
    Dim ipath$, fname$, book As Workbook
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show Then ipath = .SelectedItems(1) Else Exit Sub
    End With
    fname = Dir(ipath & "\*.xls*")
    Do While fname <> ""
        Set book = Workbooks.Open(ipath & Application.PathSeparator & fname)
        Call Общиймакрос
        book.Close True
        fname = Dir
    Loop
End Sub
Изменено: Nordheim - 3 сен 2020 11:20:44
"Все гениальное просто, а все простое гениально!!!"
VBA. Применение макроса ко всем Exel файлам в папке по заданному пути
 
Проблема непонятна
"Все гениальное просто, а все простое гениально!!!"
VBA. Применение макроса ко всем Exel файлам в папке по заданному пути
 
А причина какая по поводу
Цитата
Vlad_Sm написал:
Application.FileDialog(msoFileDialogFolderPicker), но с моим кодом мне не вышло настроить работу моего файла
?
Покажите код с применением Application.FileDialog(msoFileDialogFolderPicker)
Изменено: Nordheim - 3 сен 2020 10:08:49
"Все гениальное просто, а все простое гениально!!!"
Excel VBA Копирование вставка данных из одной папки с файлами в другую папку с файлами
 
Посмотрите в сторону FileSystemObject
"Все гениальное просто, а все простое гениально!!!"
Ссылка на диапазон другого листа по имени указанном в ячейке
 
Цитата
Сливочный написал: ормула собрала информацию с соответствующего листа книги эксель,
Насколько я знаю, формула так не работает, она не ищет сама листы, возможно Excel скакнул вперед и теперь есть такие формулы, но, как по мне то вам поможет макрос
"Все гениальное просто, а все простое гениально!!!"
Ссылка на диапазон другого листа по имени указанном в ячейке
 
Возможно.
"Все гениальное просто, а все простое гениально!!!"
Проблема. Срабатывание события ComboBox1_Change при вызове ComboBox1.Clear, Application.EnableEvents = False не помогает
 
Kb,j
Цитата
RAN написал:
сей запрет надо прописывать как-то так
Либо так
Код
Private Sub ComboBox1_Change()
       If Len(ComboBox1.Value)>0  Then   MsgBox Me.ComboBox1
End Sub
"Все гениальное просто, а все простое гениально!!!"
Проблема. Срабатывание события ComboBox1_Change при вызове ComboBox1.Clear, Application.EnableEvents = False не помогает
 
Combobox.clear, так же чистит список а не сбрасывает текущее значение.
Очищается значение вот так    
Код
ComboBox1.Value = ""
Изменено: Nordheim - 20 авг 2020 15:22:47
"Все гениальное просто, а все простое гениально!!!"
Проблема. Срабатывание события ComboBox1_Change при вызове ComboBox1.Clear, Application.EnableEvents = False не помогает
 
Цитата
kefirko написал:
а вот если сразу нажать еще раз
Нажал раз 50 не сработало, потому что стоит
Код
On Error Resume Next
"Все гениальное просто, а все простое гениально!!!"
Проблема. Срабатывание события ComboBox1_Change при вызове ComboBox1.Clear, Application.EnableEvents = False не помогает
 
Все правильно работает .
Вт так очистите и ошибки не будет
Код
Private Sub CommandButton1_Click()
    ComboBox1.RowSource = ""
End Sub

А вообще я бы не пользовался заполнением этого типа контрола при помощи свойства RowSource
Изменено: Nordheim - 20 авг 2020 15:05:58
"Все гениальное просто, а все простое гениально!!!"
VBA. Имя файла в каждой строке
 
Можете файл приложить с полным кодом?
Мария -, Если ваш код записать вот так:

Код
Dim FSO As Object, ifile As Object
Dim lrow&
Set FSO = CreateObject("Scripting.FileSystemObject")
lrow = Range("aq" & Rows.Count).End(xlUp).Row + 1
For Each ifile In FSO.getFolder("C:\Users\......").Files
'        ....часть макроса с копированием строк
    Range("aq" & lrow).Value = ifile.Path      ' Записывает полный путь к файлу
    Range("aq" & lrow).Value = ifile.ShortName ' Записывает только имя файла
    lrow = lrow + 1
Next

Закомментируйте ту строку с записью данных которая вам не нужна
Изменено: Nordheim - 20 авг 2020 15:00:12
"Все гениальное просто, а все простое гениально!!!"
Повреждение XML карты после сохранения файла., Повреждение XML карты после сохранения файла.
 
Предположу, что мысли может и есть у кого, но ссылка доступна не каждому.
"Все гениальное просто, а все простое гениально!!!"
заполнить данными из массива ComboBox UserForm
 
Пкажите как заполняете массив полный код
"Все гениальное просто, а все простое гениально!!!"
Перебор ComboBox на листе по условию, ComboBox
 
Я вам не про Combobox пишу, а про нормальную структуру таблицы? из которой в эти Combobox будут вставляться данные, сам обработчик вставки данных в Combobox, не сложен если есть грамотная структурированная база данных с зависимостями, у вас же наляпано все на одном листе, и по такой структуре писать код,я бы не взялся
"Все гениальное просто, а все простое гениально!!!"
Перебор ComboBox на листе по условию, ComboBox
 
Цитата
Михаил Витальевич С. написал:
Она для базы данных, типа Access и т.п. ...
Я пытался донести это в двух письмах, тут либо будет плоская таблица  с кучей повторений, либо сделать на отдельный листах связки, брать данные с одного листа , как сейчас реализовано, это жесткий подход, ну я бы так не делал. А ну как вдруг что то добавится, то ищи в коде где это берется и как поправить, что бы не пропустить
"Все гениальное просто, а все простое гениально!!!"
Перебор ComboBox на листе по условию, ComboBox
 
Цитата
Tidus1988 написал:
Логика списков заполнена в Private Sub ComboBox1_Change, Private Sub ComboBox2_Change.
Вот это не интересует, сделайте плоскую табллицу с зависимостями и все будет нормально, у вас же все разбросано по листу
"Все гениальное просто, а все простое гениально!!!"
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 102 След.
Наверх