 |
on-line-teaching.com
Онлайн курсы MS Office: Word, Excell. Как сделать сайт: HTML, JS, PHP
|
| Предыдущая тема :: Следующая тема
|
| Автор |
Сообщение |
zerofx
Prizivnik - draftee
Зарегистрирован: 08.06.2008
Сообщения: 1
|
 Добавлено: Пн Июн 09, 2008 12:08 am Заголовок сообщения: Помогите с Excel |
 |
|
Привет всем! Такой вопрос - у меня єсть код макроса которой в автоматическом режиме заполняєт ячейки до строки с текстом (не зависимо колько строк в столбце 1 - или 1000)... Проблема в том что никак не могу понять как автоматически, тоєсть также в независимости от количества строк форматировать ячейку, а имено задавать єй граници, ну как ви знаєте в обычной жизни ячейка не имеєт никаких границ кроме сетки, вот и надо придумать как видильть єйо...
Вот сам код макроса
| Код: |
Sub Макрос2()
'
' Макрос2 Макрос
' Макрос записан 07.06.2008 (A-dmin)
'
Помогите пожалоста....
'
Range("A1:A1").Select
Selection.AutoFill Destination:=Range("A1:A" & CStr(ActiveSheet.UsedRange.Rows.Count - 1)), Type:=xlFillDefault
End Sub
|
|
|
| Вернуться к началу |
|
 |
abcde
Rjadovoj - the ranks
Зарегистрирован: 12.07.2008
Сообщения: 12
Откуда: Беларусь
|
| Добавлено: Сб Июл 12, 2008 7:26 pm Заголовок сообщения: |
|
|
Sub Макрос2()
'
' Макрос2 Макрос
' Макрос записан 07.06.2008 (A-dmin)
'Установим границы ячейки на основе, которой производим заполнение
Range("A1").BorderAround LineStyle:=xlContinuous, Weight:=xlThin, ColorIndex:=xlAutomatic
'и потом заполняем ячейки
Range("A1").AutoFill Destination:=Range("A1:A" & CStr(ActiveSheet.UsedRange.Rows.Count - 1)), Type:=xlFillDefault
End Sub |
|
| Вернуться к началу |
|
|
|
|
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
|
|
FAQ
Поиск
Пользователи
Группы
Регистрация
Профиль
Войти и проверить личные сообщения
Вход
