Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Перенесено из VB6/MS Access]Проблема с созданием макросов! Возник косяк при создании макроса в Эксе 
:(
    Опции темы
DanteVolk
Дата 5.4.2009, 17:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Доброго вам времени суток !!! Заранее извеняюсь  возможно за нубский вопрос, но проблема есть проблема !! Как сделать чтобы макрос в экселе автоматически брал в рамку текст причем нефексированого размера!!

Код

    Range("A1:I11").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
End Sub

чтото примерно вот так !! Только размер текста должен быть любым а рамка точно подгонятся под этот размер ЗАРАНИЕ СПАСИБО 

Это сообщение отредактировал(а) Akina - 5.4.2009, 21:01
PM MAIL   Вверх
mihanik
Дата 5.4.2009, 21:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 9
Всего: 109
А теперь ещё раз и поподробнее...



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Данкинг
Дата 5.4.2009, 21:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130
Тебе надо узнать число занятых строк и столбцов (уж не знаю, как на VBA это сделать). А затем пройтись двумя циклами по строкам и ячейкам, каждой ячейке делая Cells(x,y).Borders.lineStyle=1. smile 



--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
DanteVolk
Дата 5.4.2009, 21:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(mihanik @ 5.4.2009,  21:15)
А теперь ещё раз и поподробнее...

Вобщем смотри !!! Есть иходный текст который фильтруется определенным образам по наименованию товара по сериям ну и. т. д. неважно как он фильтруется в результате получаем конечный текст Причем количество столбцов фиксировано а количество строк всегда разное !! Так вот мне надо чтобы (да кстати вся фильтрация исходного текста происходит через макрос ) можно было добавить чтото чтобы макрос помимо фильтрации делал еще и рамку на этот текст (все тоже услови с разным количеством строк )
PM MAIL   Вверх
Akina
Дата 5.4.2009, 21:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454
Цитата(DanteVolk @  5.4.2009,  22:32 Найти цитируемый пост)
количество строк всегда разное 

SpecialCells в помощь.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
TEH3OP
Дата 6.4.2009, 11:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: 1
Цитата(DanteVolk @  5.4.2009,  21:32 Найти цитируемый пост)
Вобщем смотри !!! Есть иходный текст который фильтруется определенным образам по наименованию товара по сериям ну и. т. д. неважно как он фильтруется в результате получаем конечный текст

Так у тебя текст или таблица Excel? Ты уж определись... smile

Цитата(DanteVolk @  5.4.2009,  21:32 Найти цитируемый пост)
Причем количество столбцов фиксировано а количество строк всегда разное !! Так вот мне надо чтобы (да кстати вся фильтрация исходного текста происходит через макрос ) можно было добавить чтото чтобы макрос помимо фильтрации делал еще и рамку на этот текст (все тоже услови с разным количеством строк ) 

Так всётаки это таблица Excel. Какой бы тип фильтрации не делался и AdvancedFilter и AutoFilter, форматирование будет всегда такое же как у фильтруемого списка. Добавь все рамки в ихсодную таблицу и в отфильтрованном виде она будет выглядеть так же.
PM MAIL   Вверх
RockClimber
Дата 6.4.2009, 14:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: 7
Всего: 15
Попробуй так. Выполни такой макрос:
Код
Sub test()
Range("A1").CurrentRegion.Select ' Допустим, что наша табличка всегда начинается с ячейки А1
End Sub
Посмотри результат. Если после этой строчки будет выделено то, что тебе надо, тогда в своем макросе из первого поста вместо
Код
Range("A1:I11").Select
пиши
Код
Range("A1").CurrentRegion.Select
Я так понял условие задачи...


--------------------
Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.
PM MAIL GTalk   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела

Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0741 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.