VPF::Com Excel - ошибка, при обведении области (границы

Demokratizator

Дата 12.4.2008, 21:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 86
Регистрация: 25.7.2006

Репутация: нет
Всего: нет

Добрый день.
Как задать границы области ячеек на одной строке?
т.е. область A40:R40 например.
делаю так:

Код


With _workbook.WorkSheets(1).Range("B40:R40")
                With .Borders(12) 'xlInsideHorizantal
                     .LineStyle = 1 'xlContinuous
                     .Weight = 2 'xlThin
                End With

                With .Borders(11) 'xlInsideVertical
                    .LineStyle = 1 'xlContinuous
                    .Weight = 2 'xlThin
                End With

                With .Borders(7) 'xlLeft
                    .LineStyle = 1 'xlContinuous
                    .Weight = 2 'xlMedium
                End With

                With .Borders(8) 'xTop
                    .LineStyle = 1 'xlContinuous
                    .Weight = 2 'xlMedium
                End With

                With .Borders(9) 'xlBottom
                    .LineStyle = 1 'xlContinuous
                    .Weight = 2 'xlMedium
                End With

                With .Borders(10) 'xlRight
                    .LineStyle = 1 'xlContinuous
                    .Weight = 2 'xlMedium
                End With
            End With

вываливается ошибка, что нельзя установить свойство LineStyle класса Borders, причем только у Borders(12) — xlInsideHorizontal и у Borders(11) — xlInsideVertical ...
если брать область With _workbook.WorkSheets(1).Range("B40:R41") — т.е. 2 строки, то все ок!
Как побороть траблу?
спасибо.

Freak_FB

Дата 13.4.2008, 01:15 (ссылка)

(нет голосов)

Загрузка ...

Ктулхувед

Профиль
Группа: Участник
Сообщений: 296
Регистрация: 13.10.2006

Репутация: 1
Всего: 4

Не знаю, есть ли в VBA TRY-CATCH, если есть - попробуй.
А так, в принципе, логично, что среди одной единственной ячейки не даёт провести среднюю линию (вертикальную или горизонтальную). Как вариант - перед тем как выполнить такой код - проверь, не тот ли это случай, когда ячейка одна.

Ещё как вариант:

Код


Sub Macro1()
    On Error GoTo 1
    
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
1:
End Sub

И вообще, этот топик к теме раздела не относится, так что закругляемся...

Это сообщение отредактировал(а) Freak_FB - 13.4.2008, 01:19

--------------------

Тонет Ктулху, все медведы горят в огне.
Я Креведко, очень страшно сегодня мне.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Общие вопросы по .NET и C# \| Следующая тема »