по VBA, используя МАКРОРЕКОДЕР!

[avensis]

Очертите созданную таблицу полями с помощью макрорекодера (отформатируйте ее).
Программа написана, при ее запуске формируется книга с таблицей и эта таблица не имеет границ (не очерчена), что и требуется разработать. Программа должна работать при многократном запуске.
Таблица, которую необходимо поместить в код, дополнительный файл и сама программа прилагаются.
Код программы находится в файле "Программа Отели"
САМ КОД ПЕРЕДЕЛЫВАТЬ НЕ НУЖНО.

БУДУ ОЧЕНЬ ПРИЗНАТЕЛЬНА!!!

[Sasha_Smirnov]

Что ж, записал:

Sub Макрос1()
    Selection.CurrentRegion.Select 'выделяет таблицу, в которой находится курсор (фокус ввода)
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
End Sub

P/s: спасибо за «секретную» базу.

[avensis]

спасибо за код, мозги кипят..не подскажете в какое место необходимо его вставить?

[Sasha_Smirnov]

Вряд ли подскажу. Лучше вас кто разберётся-то?..

Вообще говоря, в то, где таблица уже создана, но ещё не обрамлена.

(Кстати, удивился, что в примере приложена таблица как раз уже с рамкой.)