VBNet - Форум - Дано: VBA и Excel. Как прочертить границы вокру...

Вопрос: Дано: VBA и Excel. Как прочертить границы вокру... Добавлено: 10.01.03 16:24

Автор вопроса: SerJEANt | ICQ: 3132838

Народ! Помогите пжлста! Я уже измучался - чуть ли не все операторы перебрал, никак не могу програмным путём сдалать границы у ячеек.данные в теме вопроса.
Ответить

Ответы Всего ответов: 5

Номер ответа: 1
Автор ответа:

Phantom

Вопросов: 5
Ответов: 16

Web-сайт: www.infozone.ukrbiz.net
Профиль | | #1

Добавлено: 11.01.03 00:18

Dim objExcel As Excel.Application
Dim objBook As Excel.Workbook
Dim objSheet As Excel.Worksheet

Sub Rf ()

Set objExcel = CreateObject("Excel.Application")
'открытие файла с базой
Set objBook = objExcel.Workbooks.Open(App.Path & "\" & "file.xls")
Set objSheet = objBook.Worksheets(1)
objSheet.Range("A8", "A21").Borders.LineStyle = xlContinuous
objSheet.Range("A8", "A21").Borders.Weight = xlMedium
objSheet.Range("A8", "A21").BorderAround xlContinuous, xlMedium, xlColorIndexAutomatic

objExcel.ActiveWorkbook.Save
objExcel.Quit
End Sub

Borders - границы около каждой ячейки в регионе

BorderAround - границы региона

Ответить

Номер ответа: 2 Автор ответа: EROS Вопросов: 58 Ответов: 4255	Профиль \| \| #2	Добавлено: 11.01.03 04:03
	А ты не мучайся!!! Если не знаешь оператора, то включи запись макроса, сделай что тебе надо и посмотри что в макросе тебе нарисовалось! Ответить

Номер ответа: 3
Автор ответа:

SerJEANt

ICQ: 3132838

Вопросов: 10
Ответов: 38

Профиль | | #3

Добавлено: 13.01.03 09:53

To: Phantom!

Здравия желаю! Вот сейчас попробовал - всё отлично работает ! Большое спасиба , спасиба большое блин !!! Эта вещь просто мне очень нужна была...

Ответить

Номер ответа: 4 Автор ответа: SerJEANt ICQ: 3132838 Вопросов: 10 Ответов: 38	Профиль \| \| #4	Добавлено: 13.01.03 15:02
	И неистребима воля человека к прогрессу! Захотелось большего.... небудете ли любезны подсказать мне, (если такое вообще возможно), а можно ли таким же путём (через VBA) сделать объединение ячеек ??? тобишь слить две в одну. P.S. Макросы не предлагать. Ответить

Номер ответа: 5
Автор ответа:

Phantom

Вопросов: 5
Ответов: 16

Web-сайт: www.infozone.ukrbiz.net
Профиль | | #5

Добавлено: 13.01.03 23:46

Буду твоей палочкой-выручалочкой

Соединение к Экселю точно такое же как в предыдущем ответе. добавь вот это:

objSheet.Range("A7", "D7").Merge

В результате обьеденятся ячейки от A7 по D7.

надо что-то по VBA в Excel посылай вопросы на мыло.

Ответить

Страница: 1 |