Смена направления ввода

Пользователь

Сообщений: 6 Регистрация: 24.06.2015

07.09.2015 11:37:58

Т.к. часто требуется менять стиль ссылок и направление ввода с "вправо" на "вниз" и обратно - решил сделать себе кнопочки с макросом.
И вот не тут-то было. В первом случае все работает как часы, а направление ввода сопротивляется.
Помогите, пожалуйста, понять, в чем может быть причина и как с этим бороться.

Код

Sub поменять_стиль_ссылок()
R = Application.ReferenceStyle = xlR1C1
A = Application.ReferenceStyle = xlA1
If R = True Then Application.ReferenceStyle = xlA1
If A = True Then Application.ReferenceStyle = xlR1C1

End Sub

Sub поменять_направление_ввода()
'
'
RightInput = Application.MoveAfterReturnDirection = xlToRight
DownInput = Application.MoveAfterReturnDirection = xlDown
If RightInput = True Then Application.ReferenceStyle = Application.MoveAfterReturnDirection = xlDown
If DownInput = True Then Application.MoveAfterReturnDirection = xlToRight

    
End Sub

Изменено: mrozengaus - 07.09.2015 11:39:36

JayBhagavan

Пользователь

Сообщений: 11833 Регистрация: 17.01.2014

ПОЛ: МУЖСКОЙ | Win10x64, MSO2019x64

07.09.2015 11:46:05

mrozengaus, и Вам здравия. Не тестировал.

Код

Sub поменять_стиль_ссылок()
If Application.ReferenceStyle = xlR1C1 Then 
Application.ReferenceStyle = xlA1
else
Application.ReferenceStyle = xlR1C1
end if 
End Sub
 
Sub поменять_направление_ввода()
If Application.MoveAfterReturnDirection = xlToRight Then 
Application.MoveAfterReturnDirection = xlDown
else
Application.MoveAfterReturnDirection = xlToRight
end if
End Sub

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori

The_Prist

Пользователь

Сообщений: 15492 Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

07.09.2015 11:46:13

А как должна отработать эта строка?

Код
Application.ReferenceStyle = Application.MoveAfterReturnDirection = xlDown

и как она по-Вашему должна влиять на направление ввода? Опечатка?

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...

mrozengaus Пользователь Сообщений: 6 Регистрация: 24.06.2015	#4 07.09.2015 12:14:14 The_Prist, спасибо большое! Действительно, банальная опечатка, которую в упор не видел. Убрал лишний во втором коде "Application.ReferenceStyle" и все заработало, как часы. JayBhagavan, спасибо за помощь, но в моем случае "ларчик просто открывался".

Читают тему