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

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

Код: 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
ПЕРЕДАЧА ПАРАМЕТРОВ ПРОЦЕДУРЕ EXCEL
    #32901785
Фотография funddd
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
не range (M_Range).select, а m_range.select
и не m_Range = Range("C47:F56"), а set m_Range = Range("C47:F56")
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / ПЕРЕДАЧА ПАРАМЕТРОВ ПРОЦЕДУРЕ EXCEL
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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