Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » FrinG
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Метод Replace замена формата времени
 
#
02.01.2021 03:33:21
Добрый день, ребят!

Глупый вопрос, но придется его задать, потому что сломал уже всю голову и искал на форумах - ответа не нашел.
С помощью стандартной команды Ctrl+H в столбце В изменяю "22:*:*" на "22:00". Записываю процедуру стандартной записью макросов, получаю данный код:
Код
    Columns("B:B").Select
    Selection.Replace What:="22:*:*", Replacement:="22:00", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

В данном коде меняю 22 на следующее, требующее замены: 21 или 20, или 19 - код не отрабатывает (значения в ячейках не изменяются).
Требуется так заменять время с 8:00:00 до 22:00:00. Вручную долго. Подозреваю, что дело в формате ячеек либо в том, что в vba время по-другому исчисляется. Помогите, пожалуйста.
 
Перейти    
Разбиение (разделение) данных по отделам на несколько листов
 
#
16.01.2020 17:23:02
Доброго времени суток, уважаемые эксперты!

Очень прошу помочь в написании макроса. В приложенном файле в листе "кто" перечислены 8 отделов и относящиеся к ним номера. Номера могут меняться (добавляться, удаляться). В листе "свод" содержатся в кучу данные, в которых фигурируют в хаотичном порядке все номера из листа "кто".
Задача состоит в том, чтоб из свода выдернуть (скопировать) данные и распределить их по отоносящимся к ним отделам на 8 листов с соответствующим названием отдела.
Если не затруднит, просьба прислать текст макроса в комментариях, т.к. это примерный файл и сварганил с телефона. Спасибо!
 
Перейти    
Возможно ли заменить код VBA (в макросе), не открывая сам макрос
 
#
17.07.2019 00:59:58
Доброго времени суток!

Для визуализации примера имеется код:

Код
Sub Макрос1()
'
' Макрос1 Макрос
'
Workbooks.Open Filename:="D:\10.07.2019\dead10.07.2019.xlsx"
    Range("A5:B6").Select
    Selection.Copy
    Windows("test1.xlsm").Activate
    ActiveSheet.Paste
Workbooks.Open Filename:="D:\10.07.2019\rip10.07.2019.xlsx"
    Range("A1:B4").Select
    Selection.Copy
    Windows("test1.xlsm").Activate
    ActiveSheet.Paste
Workbooks.Open Filename:="D:\10.07.2019\skull10.07.2019.xlsx"
    Range("A2:B5").Select
    Selection.Copy
    Windows("test1.xlsm").Activate
    ActiveSheet.Paste
End Sub

Обыскал весь интернет и форум данного сайта - решение не нашел.

Дело в том, что необходимо открывать файлы каждый день, копировать из них содержимое и вставлять в какой-то файл. Все наименования файлов приведены условные.

Экспериментальным методом выявил, что файлы открываются макросом, только если указан точный путь. Дата в названии папки соответствует дате в названии файла.

Суть задачи в том, что даты изменяются. Приходится каждый раз открывать макрос, заменять даты на требуемые и потом уже выполнять макрос.

Задача: возможна ли замена кода (дат) непосредственно из листа (не открывая макрос)?

Т.е., например, создать выпадающий список с датами, к ним привязать флажки (из элемента управления формы), а уже к ним макросы (в которых будут заменяться даты) (примерно как на скрине). Или есть более простой способ, который я не вижу?

Буду благодарен любым комментариям и рассуждениям.
 
Перейти    
Страницы: 1
Наверх