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

Страницы: 1
Диапозон для макроса, Как сделать определенный диапозон для макроса
 
#
21.08.2024 10:39:34
Добрый день.

Есть экселевский файл, часть которого - это таблица, количество строчек которой заранее не известа, может быть 1, а может быть 450.
Как задать диапозон для макроса, которой эту таблицу форматирует определенным образом?
Важно: Над и под таблицей есть строчки, которые всегда там находятся и начинаются с одних и тех же строк. (Прим. над таблицей "Заявка на ВК...", под таблицей "Место, дата и время...".

Макрос делался при помощи записи макроса. Левый верхний угол так и останется A11, но правый нижний будет менять номер строки.
Код
Sub таб()
'
' таб Макрос
'
' Сочетание клавиш: Ctrl+q
'
    Range("A11:J16").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
 
Перейти    
Предпросмотр файлов excel с макросами, Не плучается посмотреть excel файл, где есть макросы
 
#
13.08.2024 11:29:36
Добрый день.

Вводные: для работы очень нужно, чтобы была опция предпросмотра файла без его открытия (см. изображение 1).
Ситуация: для упрощения процессов сделала себе шаблоны с макросами.
Проблема: фалы, сохраненные в формате "Microsoft Excel Macro-Enabled Worksheet", не дают возможности предворительного просмотра (см. изображение 2).

С этим можно что-нибудь сделать? Хотелось бы сохранить приемущества макросов, а также продолжить не тратить время на открытие и закрытие файлов.
 
Перейти    
Экспорт exl в pdf (макросы VBA), (сохранение экспортированного файла в папку с исходником)
 
#
05.08.2024 16:29:06
Добрый день.

Скажу сразу, что я не особо разбираюсь в макросах, но очень хочется.

Ситуация такая: есть файл excel, ты вносишь в него изменения, а после этого сохраняешь в ту же папку, только в формате pdf.
Попытки: нашла макрос, который сохраняет excel в pdf, с нужным именем, с этим все хорошо, но есть одна проблема - постоянно нужно выбирать место сохранения.

Вопрос: Можно ли это как-то пофиксить и прописать в макросе этот алгоритм.

Это макрос, который я нашла, он работает.
Код
Sub ExportAsPDF()
Dim Filename As String
With CreateObject("Scripting.FileSystemObject")
Filename = .BuildPath(ThisWorkbook.Path, .GetBaseName(ThisWorkbook.Name) & ".pdf")

End With
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Filename _
            , Quality:=xlQualityStandard, IncludeDocProperties:=True, ignoreprintareas _
            :=False, openafterpublish:=True
    
MsgBox "All PDF's have been successfully exported."
End Sub
 
Перейти    
Страницы: 1
Наверх