Как сделать сайт:
  HTML
  JavaScript
  PHP
  CMS
Microsoft Office:
  Word
  Excel
  VBA
Просто о сложном
Список форумов on-line-teaching.com on-line-teaching.com
Онлайн курсы MS Office: Word, Excell. Как сделать сайт: HTML, JS, PHP
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

Помогите с Excel

 
Начать новую тему   Ответить на тему    Список форумов on-line-teaching.com -> Excel: общие вопросы
Предыдущая тема :: Следующая тема  
Автор Сообщение
zerofx
Prizivnik - draftee
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
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
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов on-line-teaching.com -> Excel: общие вопросы Часовой пояс: GMT + 2
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Powered by phpBB © 2001, 2005 phpBB Group
Русская поддержка phpBB