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

Страницы: 1
Склеить дату и время.
 
#
08.03.2020 14:49:50
Нашел тоже решение. Зашел написать что решение найдено, пока мне не успели сказать что я дурак. Но увы. Не успел)
Спасибо за помощь.
 
Перейти    
Склеить дату и время.
 
#
08.03.2020 14:01:44
Добрый день.
Есть отчет. В одном столбце идет дата в другом идет время. Таких столбцов 3 пары которые необходимо сравнить.
Как сравнить я понимаю. Делал это в старых отчетах(сейчас изменилась система)
Но не могу склеить дату со временем.
Во вложении отчет. Разными цветами пометил столбцы которые необходимо склеить и сделал рядом пустой столбец для этого склеивания. Но вывести в нормальном формате после склейки не могу.
 
Перейти    
Макросом найти точки и заменить их на "/"
 
#
04.06.2019 15:59:28
Добрый день.
Записан макрос авто записью.
Его цель произвести в ячейках поиск "." и заменить их на "/".
Занчение исходное такого вида
10.05.2019   14:41
Необходимо превратить в такой
10/05/2019 14:41
Макрос который это делал
Код
Sub замена_на_слеш()
Workbooks("Своевременность отгрузки_.xlsm").Worksheets("147").Activate 'активируем книгу с отчетом
    Columns("E:P").Select
    Selection.Replace What:=".", Replacement:="/", _
        MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        Workbooks("Своевременность отгрузки_.xlsm").Worksheets("Панель управления").Activate 'активируем книгу с отчетом
End Sub
Все было ничего когда таты были высше 24 числа. Но как только начался новый месяц стало происходить нечно не понятное для меня.
После поиска с заменой дата стала изменятся данные в яч стали выглядить вот так
05/10/2019 14:41
Макрос стал перестовлять местами день и месяц.
Подскажите из за чего так происходит? и как поправить?
Заранее благодарю за помощь.  
 
Перейти    
Как записать несколько макросов в одном модуле?
 
#
12.10.2018 21:47:49
JayBhagavan,  огромное спасибо.
Так же спасибо опытным тролям, с хорошей фантазией.
 
Перейти    
Как записать несколько макросов в одном модуле?
 
#
11.10.2018 08:58:25
Подскажиет как прописывать несколько макросов в одном модуле Экселя?
 
Перейти    
VBA: открыть несколько книг Excel с условием.
 
#
24.08.2018 14:04:51
Проблему решил. Тем что добавил закрытие файла. Если хотя бы один файл открыт макросом то он не работает далее.
 
Перейти    
VBA: открыть несколько книг Excel с условием.
 
#
23.08.2018 14:03:17
при втором цикле ругается на 6 строку.
Число в не диапазона.
Изменено: Exo - 23.08.2018 14:14:39
 
Перейти    
VBA: открыть несколько книг Excel с условием.
 
#
23.08.2018 13:07:31
У меня это делается формулами. Единственное после выкачки из WMS эти файлы нужно открыть для обновления связей.
Но почему я не могу запустить цикл. С точки зрения моей логики он должен работать. а он выходит из цикла после первой обработки.
Изменено: Exo - 23.08.2018 13:08:08
 
Перейти    
VBA: открыть несколько книг Excel с условием.
 
#
23.08.2018 13:02:52
Код
Sub Open_file()      '?????? ???????? ?????
    Dim A As Integer
    A = 1
    Do While A < 37
    A = A + 1
    FilePath = Sheets("Адреса").Cells(A, 1) '???????? ?????? ???? ? ????? ?? ?????? A1 ?? ????? "????1"
    Workbooks.Open Filename:=FilePath  '???????? ?????
    Loop
    
End Sub

Почему то данный цикл отрабатывает лиш раз и останавливается. Хотя должен пройти 37 циклов. В чем проблема.
А скрипт который написал БМБ открывает 12 файлов после чего зависает.
Код
Sub Open_file() 'Макрос открытия файла
    Dim i As Integer: Application.ScreenUpdating = False
    For each WB in ThisWorkbook.Sheets("Адреса").Range("A1:A37")
        Workbooks.Open WB
    Next
End Sub
Изменено: Exo - 23.08.2018 13:05:54
 
Перейти    
VBA: открыть несколько книг Excel с условием.
 
#
23.08.2018 12:59:14
Вы правы открытыми их держать не нужно. Их нужно открыть и закрыть по одному. Но Я не хочу получить тут готовый код. У нас есть обходное решение. Это просто облегчит работу логистам склада. Я больше хочу обучится. Поэтому в первую очередь реализую открытие а после уже закрытие. Этот фаил я больше использую для обучения чем для решения производственных нужд.
 
Перейти    
VBA: открыть несколько книг Excel с условием.
 
#
22.08.2018 11:36:30
Спасибо
 
Перейти    
VBA: открыть несколько книг Excel с условием.
 
#
22.08.2018 11:25:13
Цитата
Alemox написал:
Потому что у вас нет цикла. Поэтому после открытия одного файла макрос останавливается.
Да вы правы. Я тоже понял что это оператор выбора. Сделал Do while но без then
вроде как синтаксис должен так выглядить. Но он выполнив один цикл возвращает ошибку Run time error.
Увидел ваш код и добавил Then но редактор стал ругаться на синтаксис(((
 
Перейти    
VBA: открыть несколько книг Excel с условием.
 
#
22.08.2018 11:07:38
Код
Sub Open_file()      'Макрос открытия файла
    Dim A As Integer
    A = 1
    If A < 38 Then
    FilePath = Sheets("Адреса").Cells(A, 1) 'Забираем полный путь к файлу из ячейки
    Workbooks.Open Filename:=FilePath  'Открываем фаил
    A = A + 1
    End If
End Sub
Не срабатывает оператор IF.
Имеется фаил со списком полных адресов до файлов которые нужно открыть.
принцип который закладывал вовремя написания файла.
переменная А изначально ровна 1.
Если А меньше 38 то берем адрес файла из ячейке 1,1 первое значение установлено переменной.
после открытия файла значение переменной увеличиваем на один. и открываем вторую строку первого столбца. Но почему то открыв первый фаил макрос останавливается.
 
Перейти    
[ Закрыто] Формула для условного форматирования
 
#
19.06.2018 04:26:24
Работаю на складе. Хочу сделать визуальное отображение заполнености ряда товаром.  фрагмент ряда который я сгенерировал в Excel.



В WMS есть отчет по ячейкам в которых есть товар. из него я могу выташить номеря ячеек. Но номера записаны в столбик.

Не могу ни как додуматься какую формулу написать, чтоб условное форматирование в моей таблице окрасила только те ячейки которые есть в столбце.
Может кто подскажет?

Изменено: Exo - 19.06.2018 05:26:51
 
Перейти    
Страницы: 1
Наверх