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

Страницы: 1
Копирование данных по маске., Перенос данных из таблицы в таблицу.
 
#
06.12.2023 10:59:04
Всем доброго дня. Возник небольшой вопрос с копированием данных в таблице. Есть две таблицы на разных листах в одной книге. (Таблица_1 и таблица_2).
Суть такова, в таблицу №1 в колонку Ф.И.О. рандомно заносятся имена сотрудников (заносятся рандомно но список определённый). Во второй колонке ставится число (дата, день, например 2 - 2-е число, текущего месяца), в третьей количество отработанных часов. В четвёртой выполненные работы (эта колонка не учитывается, с неё данные не забираются). Далее, при нажатии кнопки выполняется алгоритм: начиная с первой ячейки данных Ф.И.О сканируется значение в ней, далее находится строка с Такой же фамилией в таблице №2, в таблице №1 сканируется значение в ячейке дата и находится столбец в таблице№2 с этой датой. Данные из третьей ячейки, копируются в ячейку полученную на перекрёстке фамилии и даты в таблице №2. И так вся таблица слева - направо, сверху вниз. Т.е. проверяется заданный диапазон. И данные переносятся в таблицу №2.  Если писать каждую ячейку через условие IF-Else, то код будет километровый. Другие функции пока не знаю. Есть что-то более действенное, для работы в заданном диапазоне?
 
Перейти    
Не строится график после преобразования csv в xlsx, Не строится график после преобразования csv в xlsx
 
#
18.09.2020 19:47:38
После преобразования csv файла в xlsx не строится адекватно график. Формат ячеек выставлен общий, либо числовой и.т.д. не влияет на итог. При попытке выделить область данных с построением, выделяет непонятно что.
 
Перейти    
Поиск по маске массива, Необходимо изменить код для работы не с одной ячейкой, а с массивом.
 
#
10.03.2019 14:38:10
Взял за основу код взятый в одной из тем. Немного "допилил" под свои нужды. Но если с одной таблицей  помогло, то с другой загвоздка. В ней надо данные не одной ячейки сравнивать и копировать, а  с массива ячеек. Грубо говоря не с "B2". А взять ("B2:AM2") и занести итоговые данные в массив пустых ячеек ("B3:B40"). Далее будет автоматический сдвиг столбцов на +1 вправо. Есть сомнения по поводу некоторых строк. Но пока ещё неуверенно ориентируюсь в этом.
Код
Sub Расчёт_простоя()
     Dim strFindData As String

   Dim rgFound As Range

   Dim i As Integer

  Sheets("Расчёты").Select
    Range("B2").Select

   ' Ввод строки для поиска

   strFindData = Range("B2")

   ' Просмотр всех рабочих листов книги

   For i = 1 To Worksheets.Count ' (сомневаюсь на счёт этой строки)

      With Worksheets("Время простоев").Cells

         ' Поиск на  листе "Время простоев"

         Set rgFound = .Find(strFindData, LookIn:=xlValues)

         If Not rgFound Is Nothing Then

            ' Ячейка с заданным значением найдена - выделим ее

            Sheets("Время простоев").Select

            rgFound.Select

 Do While Not IsEmpty(ActiveCell.Value) ' ищем последнюю непустую ячейку и смещаемся на одну вправо

      ActiveCell.Offset(0, 1).Select

   Loop
  
    
   

   ActiveCell = Workbooks("ТОиР ОГМ.xlsm").Sheets("Расчёты").Range("B1") ' Занесение в активную ячейку результата из ячейки А1
Sheets("Время простоев").Select
'*****************************************
'Сохранение отчёта в папку
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "D:\Отчёты\Отчёты_по_простоям\Отчёт_по_простоям_" & Format(Now, "_DD_MMMM_YYYY") & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
        
Exit Sub

         End If

      End With

   Next  ' расчёт времени простоя завершён
        
End Sub
 
Перейти    
Макрос для сохранения файла в папку с именем, идентичным введённому в ячейку., Не получается сохранить файл в нужную папку.
 
#
28.02.2019 13:46:29
Доброго времени суток. Не нашёл в сети ничего похожего. Создаю документ с автоматическим сохранением в формате PDF. Смог добиться только того чтобы после заполнения таблицы, файл преобразовался в PDF, открылся и сохранился в папку. Но требования ужесточили, необходимо чтобы сохранение шло в разные папки, по названию оборудования. Т.Е. например имеется ячейка A2, куда при  вбивается наименование (оно однотипное, выбирается из списка), например "Станок", далее при нажатии на кнопку, должен запуститься макрос, который сохранит PDF в папку с именем "Станок". А при вводе в А2 наименования "Мотор", в папку с именем "Мотор". Папки созданы заранее. Пока получилось создать документ в папке "Оборудование" с именем "Станок" + ДАТА.
Код
Sub Сохранение
Sheets ("Лист2"). Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=
"D:\Отчёты\Оборудование\Ремонт_"& Format(Now, "_DD_MMMM_YYYY") & ".pdf"
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False,
OpenAfterPublish:=True
End Sub
Изменено: cheiz - 28.02.2019 13:58:52
 
Перейти    
Страницы: 1
Наверх