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

Страницы: 1 2 3 4 5 6 След.
как прономеровать строки в зависимости от групп
 
Вариант
как прономеровать строки в зависимости от групп
 
Если не хотите каждый раз вставлять формулу и протягивать - тогда только макросом.
как прономеровать строки в зависимости от групп
 
Добрый день!
А что мешает данные полученные формулой перевести в значения ? И тогда при сортировке уже ничего не изменится.
Макрос для выделенной области и цветовой шкалы
 
Добрый день!
Ни совсем понятна логика выделения цветом. Можете подробнее описать
Изменено: Андрей_26 - 6 Дек 2019 13:15:30
По выбранному номеру инструкции подставить профессии и ФИО лиц которые должны пройти ознакомление., Выборка значений по нескольким условиям и подстановка их в таблицу
 
Добрый день!
Если понял правильно то так (немного доработал макрос Mershik) .
Специальная вставка в макросе
 
Добрый день!
Запиши макрорекордером все что тебе нужно.
Вытащить ФИО из текста которое идёт перед индексом
 
ФИО + индекс
Копирование строк на другой лист по условию
 
Как вариант.
Пароль для листа
 
Посмотрите здесь и здесь.  
Как спарсить определённую строчку HTML кода в VBA, Нужно незаметно скопировать с сайта одну цифру в переменную VBA или хотя-бы в буфер обмена.
 
Цитата
Danya-asg написал:
Кто-нибудь знает варианты поумнее? Или хотя-бы в какую сторону думать?
Добрый день!. Почитайте про GET/POST-запросы ну и как уже выше упомянули RegExp вам в помощь.
Как рассчитать расстояние между двумя адресами?
 
Цитата
symmetry написал:
необходимо рассчитать расстояние между двумя адресами
Как была поставлена задача так и сделал. Немного зависает, так сделано специально, потому что необходимо время на загрузку данных
Определить расстояние между двух адресов с учетом дорог
 
Здесь смотрели ?
Макрос по созданию бирки для упаковки
 
Название темы не правильное. Думаю так лучше будет: "Необходимо доработать макрос вывода на печать или написать новый"
Заполнить ListBox в виде таблицы в несколько колонок
 
Так?
Как рассчитать расстояние между двумя адресами?
 
Да сразу на все.
Как рассчитать расстояние между двумя адресами?
 
Пробуйте
VBA. Простые способы сравнения 2 таблиц
 
Это плохо. Тогда я пас
VBA. Простые способы сравнения 2 таблиц
 
Таблицы всегда состоят из 4 столбцов и расположены также как в примере?  
Изменено: Андрей_26 - 23 Окт 2019 10:38:01
VBA. Простые способы сравнения 2 таблиц
 
Не увидел предыдущие комментарии, сейчас попробую макросом
Изменено: Андрей_26 - 23 Окт 2019 10:03:10
VBA. Простые способы сравнения 2 таблиц
 
Добрый день! Лучше будет если вы скажите для чего это делаете и каков желаемый результат, а также приложите небольшой файл с примером. Возможно вам предложат более быстрое решение вопроса....
Транспонирование столбцов с условиями
 
Цитата
svetik87 написал:
возможно ли реализовать такое с помощью одного VBA макроса?
Да, возможно. Но не знаю возьмется ли кто либо это делать здесь. В крайнем случае есть раздел Работа, там точно сделают.
Сдвиг данных под сводной таблицей
 
Либо макросом добавлять подписи в конце когда таблица сформирована )))
VBA, определить номер столбца для выделенной ячейки
 

Цитата
ageres1982 написал:
Сейчас действие выполняется только для столбца "А" - Cells(Rows.Count, "A"),
Здесь ни действие, а определение последней заполненной ячейки. Действие здесь:

Код
If (Left(Cells(i, 1), 4) <> "Z_BW") _
            And (Left(Cells(i, 1), 2) <> "Y_") _
            And (Left(Cells(i, 1), 3) <> "ZSA") _
            Then Cells(i, 1) = Cells(i, 1) & "_" & box
Цитата
ageres1982 написал:
как сделать так что бы столбец автоматически определялся по текущей выделенной ячейке ?
Определялся для чего ?
VBA. Циклично копировать значение строки до следующей.
 
Если правильно понял
Код
Sub test()
    For i = 12 To .Cells(.Rows.Count, 5).End(xlUp).Row
        If Cells(i, 4) = "" Then
           Cells(i - 1, 4).Copy
           Cells(i, 4).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End If
    Next
End Sub
Как перенести значения из ячеек из столбца С в одну по диапазону от 1-ой заполненной ячейки А до второй и так далее
 
Цитата
g_8 написал:
не знаю Вашу политику безопасности.
Есть такой пункт называется Правила. Макрос нужно написать заново, а чтобы это сделать желательно увидеть пример: как должен выглядеть конечный результат.
VBA. Среднее по столбцу в переменую
 
Код
Sub Sredneeznach()
    Summ = 0
    coll = 0
    With Sheets("Summary")
        For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
            If Cells(i, 1) <> "" And IsNumeric(Cells(i, 1)) Then
               Summ = Summ + Cells(i, 1)
               coll = coll + 1
            End If
        Next
    End With
    x = Summ / coll
End Sub
Удалить повторяющиеся строки
 
Ну это из таблицы умножения (5*5=25, 3*3=9), а если дубликатов 11, 17, 3 ?
VBA, редактирование каждой не пустой ячейки столбца при условии.
 
Код
Sub test()
     With Sheets(1)
        For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
            If Left(Cells(i, 1), 4) <> "Z_BW" Then
               Cells(i, 1) = Cells(i, 1) & "_1200"
            End If
        Next
    End With
End Sub
VBA, редактирование каждой не пустой ячейки столбца при условии.
 
Цитата
ageres1982 написал:
(дописываем к значению в ячейке "_1200"
дописываем в конец или в начало ?
Загрузка данных табличных данных из интернета
 
Таблицу можно скачать одним файлом excel. Что именно не устраивает ?
Страницы: 1 2 3 4 5 6 След.
Наверх