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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 94 След.
Проверить значение в Combobox на совпадение со значениями в диапазоне
 
Код
Private Sub CommandButton1_Click()
    Dim arr(), sht As Worksheet, i&
    Set sht = Worksheets("Календарь")
    arr = sht.Range("c3:c" & sht.Range("c" & sht.Rows.Count).End(xlUp).Row).Value
    For i = 1 To UBound(arr)
        If arr(i, 1) = ComboBox1.Value Then MsgBox "Есть такая строка в массиве!", vbInformation: Exit Sub
    Next i
    MsgBox "Строка в массиве не найдена!", vbInformation
End Sub
Изменено: Nordheim - 17 Янв 2020 23:32:30
"Все гениальное просто, а все простое гениально!!!"
Запускать каждый раз новую процедуру при прохождении цикла
 
А цикл в цикле не подойдет?
"Все гениальное просто, а все простое гениально!!!"
Макрос найти данные в определенной книги из активной книги, и перенести в определенную книгу
 
В вашем случае книгу необходимо открыть.
"Все гениальное просто, а все простое гениально!!!"
Копирование строк, содержащих признак, на другие листы
 
На вкладке "MyMacros", кнопка "Перенос данных на листы"
Но работать придется в этом файле, либо перенести все модули в свою книгу и вывести кнопку с привязкой к макрос.
Добавил проверку наличия таблицы на искомом листе.
Изменено: Nordheim - 15 Янв 2020 16:08:02
"Все гениальное просто, а все простое гениально!!!"
[ Закрыто] Проблема при создании цикла, Нужно создать цикл алгоритм такой выдялется диапазон ячейк, потом Selection.FillDown и ждем 9 секунд потом ниже следущи диапозон и т д
 
Код
For i = 1 To 40000 Step 10
   Range("a" & i).Resize(10, 5).Select
   Application.Wait Now + TimeSerial(0, 0, 9)
Next i

Зачем столько сообщений? можно же редактировать предыдущие.
Изменено: Nordheim - 14 Янв 2020 15:58:11
"Все гениальное просто, а все простое гениально!!!"
Найти в файле А пользовательское значение и перенести в файл Б всю строчку, содержащее данное значение
 
Цитата
DLUA написал:
Вставка осуществляется, на сколько я понял в первую пустую строчку, без добавления пустых строче
Совершенно верно, нет смысла вставлять строки, если снизу весь лист пустой
"Все гениальное просто, а все простое гениально!!!"
Копирование строк, содержащих признак, на другие листы
 
Пример
"Все гениальное просто, а все простое гениально!!!"
Копирование строк, содержащих признак, на другие листы
 
Приложите файл пример где должно быть как есть и как надо, ну и желательно с описанием.
"Все гениальное просто, а все простое гениально!!!"
Найти в файле А пользовательское значение и перенести в файл Б всю строчку, содержащее данное значение
 
Почему
Цитата
DLUA написал:
Почти то, что нужно
, что в итоге не так?
"Все гениальное просто, а все простое гениально!!!"
Найти в файле А пользовательское значение и перенести в файл Б всю строчку, содержащее данное значение
 
Если почти, то что не так?
Цитата
DLUA написал:
косяк был в том, что я объявлял переменными диапазон,
Не в курсе, мне ваш код непонятен, писал свой по вопросу, ваш разбирать не стал.
"Все гениальное просто, а все простое гениально!!!"
как посчитать в столбце Талон количество талонов (если название А001 это 1 талон), посчитать в столбце сколько раз повторяются значения в пределах одного имени
 
Так?
"Все гениальное просто, а все простое гениально!!!"
Найти в файле А пользовательское значение и перенести в файл Б всю строчку, содержащее данное значение
 
Может так.
"Все гениальное просто, а все простое гениально!!!"
Удаления текста после второго пробела, если смотреть справа налево
 
Код
Sub main()
    Dim arr(), txt$, i&
    arr = [a1].CurrentRegion.Value
    [b:b].ClearContents
    For i = 1 To UBound(arr)
        txt = Trim(Left(arr(i, 1), InStrRev(arr(i, 1), " ")))
        arr(i, 1) = Trim(Left(txt, InStrRev(arr(i, 1), " ")))
    Next
    arr(1, 1) = "Результат"
    [b1].Resize(UBound(arr)).Value = arr
End Sub
Изменено: Nordheim - 13 Янв 2020 16:08:40
"Все гениальное просто, а все простое гениально!!!"
Объединение значений 2-ух таблиц по частичному совпадающим ячейкам
 
Код
Sub main()
    Dim arr1(), arr2(), i&, j&, txt$
    arr1 = Worksheets("Лист1").[a1].CurrentRegion.Value
    arr2 = Worksheets("Лист2").[a1].CurrentRegion.Value
    For i = 2 To UBound(arr1)
        For j = 2 To UBound(arr2)
            txt = Join(Array("*", arr1(i, 1), "*"), "")
            If arr2(j, 1) Like txt Then arr1(i, 2) = arr2(j, 2): Exit For
        Next j
    Next i
    Worksheets("Лист1").[a1].Resize(UBound(arr1), UBound(arr1, 2)).Value = arr1
End Sub

Непонятно только, как быть если в таблице на листе 2 будет двойное совпадение?
"Все гениальное просто, а все простое гениально!!!"
Массовое обновление макросов в n-колличестве книг из Основной
 
А самое главное в этом процессе узнать все ли файлы из 100  обработаны верно, или что то пошло не так и в дальнейшем можно получить в итоге непредвиденный сюрприз  ;)
"Все гениальное просто, а все простое гениально!!!"
Из текста выбрать значение и подсчитать количество этих значений
 
Скрытый текст
"Все гениальное просто, а все простое гениально!!!"
Массовое обновление макросов в n-колличестве книг из Основной
 
Если макросами пользуетесь только вы, то лучше вникнуть в то, как написать универсальный код для обработки файлов и держать все в одной надстройке, а не плодить книги с макросами. Лично мое мнение.
"Все гениальное просто, а все простое гениально!!!"
Хардкорная форма ввода, хотя может для вас и не такая хардкорная, учитывая, что вы вытворяете
 
Про разные листы не видел. В этом случае нужно убрать привязку к листу в коде, структура листов должна быть одинаковой, ну и данные в ComboBox для заполнения листа внесете самостоятельно, я для примера закинул массив со значениями test1 - test...
Изменено: Nordheim - 10 Янв 2020 12:39:41
"Все гениальное просто, а все простое гениально!!!"
Хардкорная форма ввода, хотя может для вас и не такая хардкорная, учитывая, что вы вытворяете
 
Может для удобства это как то формой сделать, а не на самом листе?
"Все гениальное просто, а все простое гениально!!!"
Копирование данных по дате и ФИО с листа на форму
 
Сделал как понял  :D
Для двух файлов
Изменено: Nordheim - 10 Янв 2020 08:46:31
"Все гениальное просто, а все простое гениально!!!"
Отправка письма с другого почтового аккаунта Outlook - VBA
 
Татьяна Агафонова, Объявите все переменные в процедуре либо за комментируйте строку  Option Explicit
"Все гениальное просто, а все простое гениально!!!"
Формирование сводной таблицы из XML
 
Помочь и сделать все за вас это разные вещи, покажите , что у вас не получается.
"Все гениальное просто, а все простое гениально!!!"
Формирование сводной таблицы из XML
 
Цитата
katran написал:
вы встроенными функциями в эксель написали макрос ?
А что значит встроенными функциями? По моему в коде подключаются две библиотеки, и как по мне то это не совсем встроенные функции. Но если эти библиотеки считать встроенными функциями, то по сути все что используется в макросах будет "встроенная функция"  ;) .
PS: Какая то тавтология получилась  :D
Изменено: Nordheim - 4 Янв 2020 12:06:21
"Все гениальное просто, а все простое гениально!!!"
Нарезка одного файла на несколько по параметру
 
Цитата
mrgreeen написал:
Файл прикрепить не могу, объем не позволяет
А оригинальный и не нужен, вырезка из правил гласит - Приложите файл(ы) с примером (общим весом не более 300Кб) в реальной структуре и форматах данных того, что есть сейчас и того, что хотелось бы на выходе.
"Все гениальное просто, а все простое гениально!!!"
Нарезка одного файла на несколько по параметру
 
Цитата
mrgreeen написал:
чтобы макрос работал достаточно быстро
Можно использовать весь отбор в массивах с помощью словарей, а итог выкладывать на лист нового файла и сохранять этот файл. Логика такова. Забираете все данные в массив, далее берете критерий (ключ) и пробегаете по массиву занося ключи в словарь и суммируя в словаре значения ключей, что бы в дальнейшем определить размерность массива который будет в итоге переносится на лист. На форуме уже есть темы с такими условиями, просто нужно поискать.
"Все гениальное просто, а все простое гениально!!!"
Заполнение таблицы на листе данными из UserForm
 
RAN, А почему If..Then...ElseIf, а не Select Case?
Изменено: Nordheim - 26 Дек 2019 12:52:37
"Все гениальное просто, а все простое гениально!!!"
Заполнение таблицы на листе данными из UserForm
 
Для циклической очистки:
Один из вариантов в сообщении 8 от ocet p,
Второй вариант - создать для нужных элементов контейнер Frame (в файле примере)
Третий вариант - заполнить Tag нужными значениями и в цикле условие по этим значениям, но  придется "пробегать" по всем контролам.
Изменено: Nordheim - 26 Дек 2019 09:39:36
"Все гениальное просто, а все простое гениально!!!"
Заполнение таблицы на листе данными из UserForm
 
Logistic, Покажите пример кода. Что именно нужно делать с разноименными контролами?
"Все гениальное просто, а все простое гениально!!!"
Заполнение таблицы на листе данными из UserForm
 
Немного не по теме, но классы творят чудеса   ;)
Немного переработал код UserForm1, может пригодится, можно сравнить с кодом из файла первого сообщения  ;)
Все работает абсолютно идентично. А по теме можно воспользоваться функцией Join, загнать данные либо прямо в TextBox, либо через переменную String, это кому как нравится.
Изменено: Nordheim - 25 Дек 2019 21:51:16
"Все гениальное просто, а все простое гениально!!!"
Нечёткий поиск / Fuzzy Lookup: как повторить или подключиться через VBA
 
bedvit, для саморазвития, надстройка написана на C#?
"Все гениальное просто, а все простое гениально!!!"
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 94 След.
Наверх