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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 102 След.
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.
Вот это не интересует, сделайте плоскую табллицу с зависимостями и все будет нормально, у вас же все разбросано по листу
"Все гениальное просто, а все простое гениально!!!"
Перебор ComboBox на листе по условию, ComboBox
 
Сделайте нормальную таблицу зависимостей а не то безобразие , что на листе LocationRE и можно будет все настроить, а так даже браться не хочется, тут что бы вытащить что к чему принадлежит, код больше будет, чем обработчик комбобоксов
"Все гениальное просто, а все простое гениально!!!"
Подтягивание данных из другого файла
 
Можете описать саму задачу, что и куда должно подтягиваться, и по какому событию, а не показывать код, который у вас на данный момент не работает так как вам хочется?
"Все гениальное просто, а все простое гениально!!!"
Удаление листов из книги по заданому списку, Удаление листов из книги по заданому списку_макрос
 
А что именно не получается?
"Все гениальное просто, а все простое гениально!!!"
Как разрешить редактировать данные только по двойному клику для всех TextBox и ComboBox в форме
 
Попытался через модуль класса сделать, но для того что бы убрать цвета с уже подсвеченных пришлось вынести глобальные переменные в отдельный модуль.
Сделал, как понял  :D
Изменено: Nordheim - 7 июл 2020 19:25:12
"Все гениальное просто, а все простое гениально!!!"
Универсальный календарь, вызываемый из любой формы управления
 
так?
"Все гениальное просто, а все простое гениально!!!"
Выполняется только последнее IF
 
Цитата
vadim-kholkin написал:
БМВ , для меня это очень навороченно.
Попробуйте разобраться, там ничего навороченного, наоборот все упрощено, а вот в вашем коде разобраться действительно та еще задачка  8-0
"Все гениальное просто, а все простое гениально!!!"
Выполняется только последнее IF
 
Цитата
БМВ написал:
А вам удобно работать с таким количеством объектов
Тут как то пару лет назад выкладывали форму на которой объектов было столько что даже машина с 16 (или 32) гигабайтами оперативки выдавала Out of Memory
Ну а если по теме , то тут весь код нужно оптимизировать, в таком если, что сломается потом, думаю даже автор не разберется через пару тройку месяцев :)
Изменено: Nordheim - 16 июн 2020 20:58:20
"Все гениальное просто, а все простое гениально!!!"
Выполняется только последнее IF
 
Off
Цитата
Андрей VG написал:
ТС может с С++ или java пришёл - там нет ElseIf
Не скажу по С++ но в Java есть такое ветвление    
Код
public static void main(String[] args) {
        String txt = "test2";
        if (txt.equals("test")) {
            System.out.println("if");
        }else if(txt.equals("test1")){
            System.out.println("else if 1");
        }else if(txt.equals("test2")){
            System.out.println("else if 2");
        }
    }
Вот вполне себе рабочий код
"Все гениальное просто, а все простое гениально!!!"
Автоматическое подставление строки с данными по выбранному из списка номеру., Автоматическое подставление строки с данными по выбранному из списка номеру.
 
Настя_Nastya, Если ваш код использовать в файле xls то получим ошибку.
я бы
Код
LastRow = Range("A1000000").End(xlUp).Row
заменил на
Код
LastRow = Range("а" & Rows.count).End(xlUp).Row
 
"Все гениальное просто, а все простое гениально!!!"
Как сделать выпадающий список на листе с именами открытых книг?
 
Код
Workbooks("книга куда выводим список")

замените на
Код
ThisWorkbook
"Все гениальное просто, а все простое гениально!!!"
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 102 След.
Наверх