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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 97 След.
Латинские слова сделать заглавными буквами
 
А в чем собственно проблема, приложите файл пример.
"Все гениальное просто, а все простое гениально!!!"
Создать новую книгу со списком документов
 
Код
    for each sht in book.Worksheets
      sht.Usedrange.value = sht.Usedrange.value
   next sht

Замените на
Код
worksheets("СПИСОК").[b13:e19].value = worksheets("СПИСОК").[b13:e19].value
"Все гениальное просто, а все простое гениально!!!"
Копируем код макроса и вставляем во все файлы в папке в код
 
А с какой целью это необходимо сделать?
"Все гениальное просто, а все простое гениально!!!"
Получить из ячейки свойства .Text определенные значения
 
Разделителем между цифрами и буквами всегда является пробел?
Если да то можно так:

Код
Sub main()
    Dim arr$()
    arr = Split([b7].Value, " ")
    [p7].Value = arr(UBound(arr))
End Sub


Если подойдет, в в цикл своими силами вставьте. При больших объемах можно забрать в массив
Изменено: Nordheim - 12 Фев 2020 14:52:33
"Все гениальное просто, а все простое гениально!!!"
Перемещение элементов ListBox вверх/вниз с несколькими колонками
 
Дык в чем проблема, забирайте в массив индексы выделенных строи и меняйте поочередно местами циклом, там получается необходимо мой цикл перемещения обернуть в цикл по оиндексам а в роли переменной j в моем варианте будет очередное значение массива. Ну вроде как все теоретически просто, так что дерзайте.
"Все гениальное просто, а все простое гениально!!!"
Перемещение элементов ListBox вверх/вниз с несколькими колонками
 
У вас в примере с одним столбцом так же переносится по 1 строке, а не по несколько.
И какие в итоге элементы выделить? Визуально даже не определите, что и куда перемещалось.
Я чстно даже не пойнимаю как это должно выглядеть и что с чем менятся
Изменено: Nordheim - 12 Фев 2020 10:33:29
"Все гениальное просто, а все простое гениально!!!"
Перемещение элементов ListBox вверх/вниз с несколькими колонками
 
как то так
"Все гениальное просто, а все простое гениально!!!"
Пароль, Пароль VBA
 
Весьма информативное название темы  :D
"Все гениальное просто, а все простое гениально!!!"
Создание фильтра для работы с данными в большой таблице параметров
 
Упрощенный вариант без учета а,b и с. На этими условиями уж сами подумайте, показал как можно обновлять. Возможно что и не совсем то но как стартовый вариант может подойдет.
"Все гениальное просто, а все простое гениально!!!"
Переименование открытого файла, с присвоением цифр если таковых файлов в папке имена совпадают.
 
Сделайте проверку на существование такого файла, к примеру заберите из этой папки при запуске макроса все имена файлов в словарь, при сохранении проверяйте есть ли в словаре такой файл,исходя из наличия или отсутствия  далее по условию.
"Все гениальное просто, а все простое гениально!!!"
Повернуть строку или столбец в обратном порядке
 
Как-то так?
Код
Sub main()
    Dim arr(), i&, j&, x&, y&
    arr = Selection.Value
    ReDim iarr(1 To UBound(arr), 1 To UBound(arr, 2))
    For i = UBound(arr) To 1 Step -1
        j = j + 1
        y = 0
        For x = UBound(arr, 2) To 1 Step -1
            y = y + 1
            iarr(j, y) = arr(i, x)
        Next x
    Next i
    Selection.Value = iarr
End Sub
"Все гениальное просто, а все простое гениально!!!"
Повернуть строку или столбец в обратном порядке
 
по вертикали
Код
Sub main()
    Dim arr(), i&, j&
    arr = Selection.Value
    ReDim iarr(1 To UBound(arr), 0)
    For i = UBound(arr) To 1 Step -1
        j = j + 1
        iarr(j, 0) = arr(i, 1)
    Next i
    Selection.Value = iarr
End Sub
"Все гениальное просто, а все простое гениально!!!"
Макрос замены значения с выводом дилогового окна или подстановкой следующего файла
 
Цитата
Breathe of fate написал:
Нет ни у кого идей?
Идей бесконечное множество, но без примера, как есть и как нужно в итоге, все идеи как то ни о чем получаются.
Изменено: Nordheim - 7 Фев 2020 08:30:44
"Все гениальное просто, а все простое гениально!!!"
Проверить наличие в каталге файлов XML и их список и содержимое поместить на лист
 
Цитата
Nordheim написал:
но с xml не работать не приходилось.
Вам же нужно тлько имя, а не парсить xml файлы?
"Все гениальное просто, а все простое гениально!!!"
Проверить наличие в каталге файлов XML и их список и содержимое поместить на лист
 
Если
Цитата
Джек Восмеркин написал:
С VBA знаком,
то что мешает искать в имени файла ".xml", к примеру функцией InStr и при наличии заносить имя в массив а затем выложить на лист, можно сразу на лист, как кому нравится.
"Все гениальное просто, а все простое гениально!!!"
VBA: Excel to Json (Nested Objects)
 
Может стОит сразу сохранять в файл с расширением ".json"?
"Все гениальное просто, а все простое гениально!!!"
Проблема отображения строк в Combobox и Listbox, строки с символом № обрезаются по вертикали
 
Либо так.
Вроде ничего никуда не заезжает. Хотя без примера от ТС не поручусь, что воспроизвел то же самое.
"Все гениальное просто, а все простое гениально!!!"
VBA. Напечатать лист несколько раз с изменяемыми значениями ячеек
 
Создайте 30 листов в которых число будет больше предыдущего на 1 и печатайте все листы.
"Все гениальное просто, а все простое гениально!!!"
VBA.Замена одних текстов на листе на другие
 
А что именно непонятно по первой ссылке, так вообще все подробно разжевали с примерами. Может стоит начать с азов, а не сразу пытаться писать сложные программы?
Почитайте про логические операторы If, Select case, что такое циклы, про переменные и типы данных, что такое процедура и функция и чем отличаются. Думаю, что проблема в незнании элементарной мат, части. Что же касается функции InStr то описание такое
Синтаксис
Код
Instr ([начало, ]строка1, строка2[, сравнение] )

InStr - Возвращает значение типа Variant (Long), определяющее положение первого вхождения одной строки в другую.
Описание параметров
Скрытый текст

Аргумент сравнение может принимать следующие значения:
Скрытый текст

Больше мне добавить нечего.
"Все гениальное просто, а все простое гениально!!!"
Доработка макроса отправки с Excel данных в новое письмо Outlook на нескольких получателей.
 
Двоеточие поставьте и внутренние кавычки уберите "b7:c7"
"Все гениальное просто, а все простое гениально!!!"
VBA.Замена одних текстов на листе на другие
 
Цитата
SanyaMan90 написал:
Я только начал разбираться и учиться макросам
Посмотрите функцию Instr если ее совместить с left то вариант с лицевым счетом можно решить этими двумя функциями, только в том случае если номер имеет всегда 6 символов, в противном слусае нужно немного иначе обрабатывать. так же посмотрите как занести данные в массив и циклом по массиву заменить то что не нужно на то что нужно (у меня в коде это есть), так же посмотрите, как выгрузить  обработанный масив на лист . На данный момент на работе загруз, поэтому нет времени писать код, да и если все написать за вас, то так ничему не научитесь. Пробуйте экспериментируйте, и все получится.  ;)
"Все гениальное просто, а все простое гениально!!!"
VBA.Замена одних текстов на листе на другие
 
Не совсем понятно, что вы хотите, первоначальный вопрос решен. Далее уже совсем другая история, конкретизируйте что да как желательно с примерами.
"Все гениальное просто, а все простое гениально!!!"
VBA.Замена одних текстов на листе на другие
 
Вы заполнили столбец d значениями из столбца a
"Все гениальное просто, а все простое гениально!!!"
VBA.Замена одних текстов на листе на другие
 
Цитата
SanyaMan90 написал:
оно меняло например и в ячейке А и в ячейке D
A это колонка №1, B - №2, С - №3 и т.д. Меняйте вторую мерность массива, это и будет перемещение по столбцам.
Но нужно учитывать что бы не было разрывов (пустыми строками и столбами между диапазонами) в коде прописано все вокруг ячейки [a1] в таблице с вашего фото это работать не будет, тут вместо
Код
[a1].currentregion.value
необходимо написать
Код
activesheet.usedrange.value
Изменено: Nordheim - 31 Янв 2020 14:19:26
"Все гениальное просто, а все простое гениально!!!"
VBA.Замена одних текстов на листе на другие
 
В массив забирается все что находится вокруг ячейки А1 без разрыва. замена производится только по 1 столбцу и выгружается только 1 столбец.
"Все гениальное просто, а все простое гениально!!!"
VBA.Замена одних текстов на листе на другие
 
Скрытый текст
Изменено: Nordheim - 31 Янв 2020 13:11:13
"Все гениальное просто, а все простое гениально!!!"
Из несколько книг в одну, макрос., проблема с кодом.
 
Вместо
Код
 For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy after:=ThisWorkbook.Sheets(1)
Next Sheet

запишите так
Код
worksheets("Data").copy after:=ThisWorkbook.worksheets(1) 
"Все гениальное просто, а все простое гениально!!!"
Из несколько книг в одну, макрос., проблема с кодом.
 
Уберите цикл по листам. У вас переносятся все листы из книги источника.
"Все гениальное просто, а все простое гениально!!!"
Из несколько книг в одну, макрос., проблема с кодом.
 
Цитата
Chin_Chin написал:
И не совсем понял на счет правильной кнопки.
Код должен выглядеть так:

Код
Sub GetSheets()
     'что то тут
End Sub
"Все гениальное просто, а все простое гениально!!!"
Из несколько книг в одну, макрос., проблема с кодом.
 
Цитата
Chin_Chin написал:
Лист - Data.
Так зачем цикл по листам, переносите этот лист, но если наименование листа во всех файлах одинаковое, то после переноса имя нужно поменять, в противном случае может вывалится ошибка совпадения листов.
"Все гениальное просто, а все простое гениально!!!"
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 97 След.
Наверх