Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / ПЕРЕДАЧА ПАРАМЕТРОВ ПРОЦЕДУРЕ EXCEL / 2 сообщений из 2, страница 1 из 1
04.02.2005, 15:41
    #32901709
GUEST_3
GUEST_3
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕРЕДАЧА ПАРАМЕТРОВ ПРОЦЕДУРЕ EXCEL
Как передать процедуре диапазон ячеек
и как им воспользоваться ?

Обращение к процедуре имеет вид:

Код: plaintext
1.
2.
Dim m_Range As Range
m_Range = Range("C47:F56")
Call Abolition_Frames_2(m_Range)

Ниже приведен код процедуры,
снимающий линии – БОРДЮРЫ вокруг ячеек
(обрамление, если так можно назвать)

Private Sub Abolition_Frames_2(m_Range As Range)
'+ Range("C47:F55").Select ' так работает !
Range(m_Range).Select ' а так НЕ РАБОТАЕТ
Application.CutCopyMode = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("C56").Select
End Sub
СПАСИБО
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2005, 16:06
    #32901785
funddd
funddd
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕРЕДАЧА ПАРАМЕТРОВ ПРОЦЕДУРЕ EXCEL
не range (M_Range).select, а m_range.select
и не m_Range = Range("C47:F56"), а set m_Range = Range("C47:F56")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / ПЕРЕДАЧА ПАРАМЕТРОВ ПРОЦЕДУРЕ EXCEL / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]