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

Страницы: 1
Преобразовать текст в дату
 
#
31.10.2022 06:27:47
Доброго времени суток.
На выходных для работы написал парсер данных с word файлов на питоне с сохранением результата в таблицу excel.  Проблема возникает с датой она сохраняется как текст в дальнейшем не работают формулы. Как можно преобразовать текст в дату?
Текст сохраняется в таком формате "12 Апреля 2022" без кавычек.
 
Перейти    
Объединение файлов с таблицами с многоуровневой шапкой
 
#
28.03.2022 19:01:00
Доброго времени суток. Прошу помочь с объединение файлов с многоуровневой шапкой при помощи PQ или иного способа (файлы в папке).
Еще один нюанс последняя строка одного файла это первая строка следующего файла где необходимые данные пустые.
Скидываю исходники так как будет более яснее картина.
Необходимые столбцы закрашены.
Спасибо.
 
Перейти    
Сбой инициализации источника данных
 
#
03.12.2020 05:59:50
Здравствуйте, у меня появилась проблема с таблицей. Заказал работу раньше работало все хорошо, но сейчас вылазит ошибка. Помогите разобраться.
Автор работы не отвечает.  
 
Перейти    
Вставка комментария в каждую ячейку
 
#
06.11.2020 13:06:53
Здравствуйте.
Как сделать чтобы по выделению вставлялось один и тот же комментарии (примечание) в каждую ячейку?
Код
Sub Макрос2()

       Selection.Comment.Text Text:="Асет:" & Chr(10) & "Готово" & Chr(10) & ""
   
End Sub
 
Перейти    
перевод данных из ворд в excel
 
#
20.10.2020 16:44:31
Здравствуйте. Нужен макрос для перевода данных из word в excel.
Нужный формат за месяц.xlsx
Бюджет 500 руб.
 
Перейти    
Сумма между определенными значениями в диапозоне
 
#
04.08.2020 10:37:33
Здравствуте. Понадобился макрос чтобы суммировал в выбранном диапазоне между определенными значениями( в данном случае между пикетами) немного передела макрос который дал мнеJack Famous, но данных много  более 5к строк, как сделать так чтобы результат выносился на в столбце P, а на на столбце где исходные данные? Условия для суммирование столбец C
Изменено: aset224 - 04.08.2020 10:39:09 (корректировка)
 
Перейти    
Макрос Автовысота
 
#
22.06.2020 17:48:15
Здравствуйте, нужна помощь в корректировки макроса.
Суть такова, макрос коректирует высоту строки в замисимости от содержания текста в области печати, игнорируя скрытые строки, но макрос не игнорирует скрытые столбцы.

Задание сделать в коде игнорирование скрытых столбцов. Обсуждение и исходники в личку.
Изменено: aset224 - 22.06.2020 18:32:36
 
Перейти    
Проблема с логическом выражение ИЛИ
 
#
02.06.2020 12:01:41
Здравствуйте, посмотрите пожалуйста с логическим выражение ИЛИ что я не так делаю.
 
Перейти    
Формирование разрыва страниц по условию
 
#
29.04.2020 20:32:56
Здравствуйте.
Нужен макрос для нанесение  разрыва страниц для всего файла
Если в листе  ориентация страницы книжная А4 поля одни (отккоректирую дальше по настройке принтера (желательно указать в коде)) если альбоная А4 другие (отккоректирую дальше по настройке принтера(желательно указать в коде)) . Также с А3 только альбомная ориентация также  297х631  и 297х841.
Макрос должен пройтись по всем листам.
Важное условие если в столбце B после ячейкой  с содержим "2" встречается жирный текст с выравниванием по центру то разрыв страницы сместить.
Оплата по договорённости
Изменено: aset224 - 30.04.2020 04:30:43
 
Перейти    
Макрос сделать выбранную строку сквозной, далее перевод в пдф, с расположение оригинала
 
#
14.04.2020 10:56:19
Здравствуйте Всем. помогите правильно пересобрать макрос для корректной работы, Работа такова при выборе определенной строки он делает ее сквозной строкой (Разметка страниц - Печатать заголовки - Лист - Сквозные строки), далее переводить в ПДФ в папку с исходным фаилом. Спасибо
Код
Sub Макрос1()
Dim activeRow As Long
activeRow = ActiveCell.Row
     .PrintTitleRows = ActiveCell.Row
End Sub
Макрос для перевода в пдф в папку с исходным фаилом( Рабочий)
Код
Sub PDF()    
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=(Left(ActiveWorkbook.FullName, InStrRev(ActiveWorkbook.FullName, ".")) & "pdf"), Quality:=xlQualityStandard, IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
 
Перейти    
Вычисление макросом среднего арифметического в промежуточных итогах таблицы
 
#
09.04.2020 10:21:09
Здравствуйте помогите пожалуйста сутки уже ковыряюсь не могу решить задачку для вычисления среднего значения, суть такова в столбце А ищет похожий текст (в примере "Итогона ПК")  и в этой строчке уже в столбце "С" и в столбце "Е" вычисляет среднее значения на 100м в среди данных в этом диапозоне . Всем спасибо за помощь
Код
Sub Среднее_по_искомому_тексту()
    Dim strFistCell As String
    Dim strLastCell As String
    Dim strFormula As String
    Dim c As Range
    Dim SrchRng
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    Set c = Range("A:A").Find("Итого на ПК:", LookIn:=xlValues)
    For i = 1 To lr
    If Cells(i, 1).Value Like c Then
    Range("C" & i).Select
    Range("E" & i).Select
    Selection.Row = 1 Then Exit Sub
    strFistCell = ActiveCell.Offset(-1, 0).End(xlUp).Address
    strLastCell = ActiveCell.Offset(-1, 0).Address
    strFormula = "=AVERAGE(" & strFistCell & ":" & strLastCell & ")"
    ActiveCell.Formula = strFormula
    End If
    Next i
 End Sub
Изменено: aset224 - 09.04.2020 12:23:03 (несоответствие правилам форума)
 
Перейти    
Страницы: 1
Наверх